string.gsub, string.gsub замена > < аналогом < >

LastTenMessages = {}
NumberOfMessages = 0
botname = "R[Bot]"
logfile= "/home/madnesss/hosts/toa/verlilog/35.html?#34;
tMagic = {
    ["%^"] = "%%%^",
    ["%["] = "%%%[",
    ["%)"] = "%%%)",
    ["%("] = "%%%(",
    ["%+"] = "%%%+",
    ["%*"] = "%%%*",
    ["%$"] = "%%%$",
    ["%?"] = "%%%?",
    ["%."] = "%%%.",
    ["%-"] = "%%%-",
}

function MakeNormMagicCharacters(sData)
    local sData = string.gsub(sData, "%%", "%%%%")
    for sFrom, sTo in pairs(tMagic) do
        sData = string.gsub(sData, sFrom, sTo)
    end
    return sData
end

function VH_OnParsedMsgChat(nick, data)
    if (string.find(data, "^[%.%+!]")) then
    else
        nick1 = "<<b>"..nick.."</b>>"
        nick2 = "<b>*"..nick.."</b>"
        nowdate = os.date("%X")
        zamena = data:gsub("<", "<"):gsub( ">", ">"):gsub( "/me", ""):gsub( "8%-\\", "<img src='dckolobok/blush2.bmp.png'>"):gsub( "%%%-\\", "<img src='dckolobok/wacko.bmp.png'>"):gsub( "%$%-\\", "<img src='dckolobok/beee.bmp.png'>"):gsub( "{:%-\\", "<img src='dckolobok/unsure.bmp.png'>")
        if (string.find(data, "/me")) then
        AddMessage("<font face=MS Sans Serif>["..nowdate.."] "..nick2.." "..zamena.." </font></i></br>")
        else
        AddMessage("<font face=MS Sans Serif>["..nowdate.."] "..nick1.." "..zamena.." </font></i></br>")
        end
    end
handle =  io.open(logfile,"w+")
io.output(handle)
if (handle) then
date =  os.date ("*t")
io.write("<link rel='stylesheet' href='/templates/system/css/system.css' type='text/css' /><link rel='stylesheet' href='/templates/siteground-j15-154/css/template.css' type='text/css' /><style type'text/css'>body {font-family: Tahoma, Verdana, Arial, sans-serif; line-height: 1.3em;    margin: 0;    padding: 0;    font-size: 11px; color: #424242;    background: #efeeee;}</style>")
io.write(string.format("")..GetMessages())
io.flush()
end
    return 1
end

function AddMessage(message)
    if (NumberOfMessages == 0) then
        LastTenMessages[1] = message
        NumberOfMessages = 1
    elseif (NumberOfMessages < 35) then
        NumberOfMessages = NumberOfMessages + 1
        LastTenMessages[NumberOfMessages] = message
    elseif (NumberOfMessages == 35) then
         for i = 1, 34, 1 do
            LastTenMessages[i] = LastTenMessages[i+1]
        end
        LastTenMessages[35] = message
    end
end

function GetMessages()
    if (NumberOfMessages == 0) then
        return ""
    else
        TempString = ""
        for i = 1, NumberOfMessages, 1 do
            TempString = TempString.."   "..LastTenMessages[i]
        end
        return TempString
    end
end