<%@ Page Language="VB" %>
Encoding HTML Strings
Sub HtmlEncode()
Dim StrToEncode As String
Dim StrToReturn As String
StrToEncode = "<%@ Page Language=""VB"" %>"
StrToReturn = Server.HtmlEncode(StrToEncode)
Response.Write(StrToReturn)
End Sub
<% HtmlEncode %>