% function HTMLEncode(fString)
fString = replace(fString, ">", "gt;") fString = replace(fString, "", "lt;") fString = Replace(fString, CHR(32), "nbsp;") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) CHR(10), "/P>P>") fString = Replace(fString, CHR(10), "BR>") HTMLEncode = fString
end function %>
|