<%@ 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>
|