<%@ Page Language="VB" %> <html> <head> <title>Encoding HTML Strings</title> <script runat="server"> Sub HtmlEncode() Dim StrToEncode As String Dim StrToReturn As String StrToEncode = "<%@ Page Language=""VB"" %>" StrToReturn = Server.HtmlEncode(StrToEncode) Response.Write(StrToReturn) End Sub </script> </head> <body> <% HtmlEncode %> </body> </html>