<% GetKid KidID dim szPorts, szOtherServices szPorts = PortsnServices(0) szOtherServices = PortsnServices(1) ' Print out the values of the usersetting that we have got from the function Response.Write("KidId = " & KidId) Response.Write("
Language Value = " & LanVal ) Response.Write("
Language Context = " & LanCon) Response.Write("
SexNudity Value = " & SexNVal) Response.Write("
SexNudity Context = " & SNCon) Response.Write("
Animal Violence = " & VAni) Response.Write("
Character Violence = " & VChar) Response.Write("
Human Violence = " & VHum ) Response.Write("
Violence Context = " & VCon ) Response.Write("
Chat = " & Chat) Response.Write("
Email = " & Email) Response.Write("
IM = " & ID) Response.Write("
KidGuide = " & KidGuide) Response.Write("
Kid Settings:
") For i = 0 to 63 Response.Write BitArray(i)& "
" & CRLF Next Response.Write(CRLF) Response.Write("
Ports = " & PortsnServices(0) & CRLF) Response.Write("
Other Services = " & PortsnServices(1) & CRLF)%>
<%=retValue%> 2