<% Function htmlspecialchars(str) str = Replace(str, "&", "&") str = Replace(str, "<", "<") str = Replace(str, ">", ">") str = Replace(str, """", """) htmlspecialchars = str End Function %>