<%@ Language=VBScript %> <% ' 'Date.asp ' 'Author: Nick Heap 'Date: August 10 2003 'Version: 1.0 'Description: A Dynamic web page using ASP ' Dim strOut strOut = "The break
and paragraph

tags " & _ "create whitespace around blocks of text." 'strOut=Replace(strOut, Chr(60), "<",-1,1) 'strOut=Replace(strOut, Chr(61), ">",-1,1) 'Response.Write strOut Response.write Server.HTMLEncode(strOut) 'Response.Write Replace(Replace(strOut, "<", "<",0),">",0) 'Response.Write Server.URLEncode(strOut) 'Response.Write Replace(Replace(strOut, "<", "<",1),">",1) %> Strings