<%
function change(str)
    str = replace(str, ">", "&gt;")
    str = replace(str, "<", "&lt;")
    str = Replace(str, CHR(32), "&nbsp;")
    str = Replace(str, CHR(9), "&nbsp;")
    str = Replace(str, CHR(34), "&quot;")
    str = Replace(str, CHR(39), "&#39;")
    str = Replace(str, CHR(13), "")
    str = Replace(str, CHR(10) & CHR(10), "</P><P> ")
    str = Replace(str, CHR(10), "<BR> ")
    str = replace(str, "&nbsp;", "")
    str = replace(str, "http", "")
    str = replace(str, ":", "")
    str = replace(str, "£º", "")
    str = replace(str, "£»", "")
    str = replace(str, ";", "")
    str = replace(str, "/", "")
change=str
end function
%>