<%@ 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") set cn3 = Server.CreateObject("ADODB.Connection") cn3.ConnectionTimeout = 6000000 cn3.CommandTimeout = 6000000 cn3.Open "DSN=Kidsnet_Parent;uid=sa;pwd=sgmkj;APP=ASP Script;DATABASE=Exception" Set rs3 = Server.CreateObject("ADODB.Recordset") if session("id") = "" then Response.Redirect "default.asp" end if if request("id") = "" then Parentid = session("id") else Parentid = request("id") end if sql = "select * from Kids where parentid = '" & ParentId & "' order by kidid" rs.Open sql,cn sql2 = "select distinct url from exceptionlist where kidid like '" & parentid & "_%'" rs2.Open sql2,cn2 %>

Website Manager

The Website Manager allows Parents to Override the Kidsnet Safe Backyard database.

Add New URL http:// 
For Example www.website.com or www.website.com/directory
To edit a URL, click the link in the URL column. <%do while rs.EOF <> true%> <%rs.MoveNext loop%> <%if rs2.EOF <> true then%> <%do while rs2.EOF <> true%> <%rs.movefirst do while rs.EOF <> true%> <%rs3.Open "Select * from exceptionlist where url like '" & rs2("url") & "' and kidid like '" & rs("kidid") & "'",cn3 %> <%if rs3.eof <> true then%> <%if rs3("allowed") = true then%> <%else%> <%end if%> <%else%> <%end if%> <%rs3.close rs.MoveNext loop%> <%rs2.MoveNext loop%> <%else%> <%end if%>
URL<%=replace(rs("Kidid"),ParentID & "_","")%>
" title="Click to Edit"><%=rs2("url")%>
There are no URLs at this time
Click to return to the Parent's page.