<%@ Language=VBScript %> <% set cn = Server.CreateObject("ADODB.Connection") cn.ConnectionTimeout = 6000000 cn.CommandTimeout = 6000000 cn.Open "DSN=Kidsnet_Parent;uid=sa;pwd=sgmkj;APP=ASP Script;DATABASE=KIDSNET" Set rs = Server.CreateObject("ADODB.Recordset") set cn2 = Server.CreateObject("ADODB.Connection") cn2.ConnectionTimeout = 6000000 cn2.CommandTimeout = 6000000 cn2.Open "DSN=Kidsnet_Parent;uid=sa;pwd=sgmkj;APP=ASP Script;DATABASE=Exception" Set rs2 = Server.CreateObject("ADODB.Recordset") Parentid = session("id") sql = "select * from Kids where parentid = '" & ParentId & "' order by kidid" rs.Open sql,cn %>
Please select Allow, Block, or the default of Kidsnet's Rating for each Kid account.
Once you have completed your review and selected the appropriate settings for the Kid accounts, click "Save Settings".
<%do while rs.eof <> true%> <%Sql2 = "select * from ExceptionList where kidid like '" & rs("KidID") & "' and url like '" & request("url") & "'" rs2.open sql2,cn2 if rs2.EOF <> true then if rs2("allowed") = true then%> <%Else%> <%end if%> <%else%> <%end if rs2.Close%> <%rs.MoveNext loop%>
"><%=request("url")%> Allow
 Block
 Use Kidsnet's Rating
<%=replace(rs("Kidid"),ParentID & "_","")%> value=1 checked> value=0> value=X> value=1> value=0 checked> value=X> value=1> value=0> value=X checked>

Please note that selecting "Use Kidsnet's Rating" will cause the site to drop from the list.

Click link to open " width="95%" height=300 target="site"><%=request("url")%>

.