Mega Code Archive
Sending a PICS label (VB net)
<![CDATA[
<%@ Page Language="vb" %>
<html>
<head>
<title>Sending a PICS label in ASP.NET</title>
<script runat="server">
Sub Page_Load()
Dim PICSLabel As String
PICSLabel &= "(PICS-1.1 <http://www.rsac.org/ratingsv01.html> "
PICSLabel &= "labels on " & Chr(34)
PICSLabel &= "2001.08.01T06:00-0000" & Chr(34)
PICSLabel &= " until " & Chr(34)
PICSLabel &= "2002.02.28T23:59-0000" & Chr(34)
PICSLabel &= " ratings (V 1 S 2 L 3 N 1))"
Response.PICS(PICSLabel)
Message.Text = PICSLabel
End Sub
</script>
</head>
<body>
<asp:label id="Message" runat="server"/>
</body>
</html>
]]>