<%@ Page Language="vb" %>
Sending a PICS label in ASP.NET
Sub Page_Load()
Dim PICSLabel As String
PICSLabel &= "(PICS-1.1 "
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)
myMessage.Text = PICSLabel
End Sub