<%@ Language=VBScript %> <% Response.Expires = -1 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" 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=Kidsnet" Set rs2 = Server.CreateObject("ADODB.Recordset") id = session("id") sid = session("sid") rs.Open "Select * from parent where ParentID = '" & id & "'",cn rs2.Open "Select * from Kids where ParentID = '"& id & "'",cn2 on error resume next if datediff("d",date(),rs("exd")) =< 0 then if err.number = "-2147352567" then Response.Redirect "cookie.asp" end if Response.Redirect "upgrade.asp" else end if %> Parent's Page
Parent's Page
  
Parent ID:  <%=rs("ParentID")%>

E-mail address: 

<%=rs("email")%>

Serial Number: 

<%=rs("serial")%>
<% if datediff("d",date(),rs("exd")) < 30 then%> Enter Upgrade Serial Number <%end if%>

Account Expires on: 

<%=rs("exd")%> (<%if datediff("d",date(),rs("exd")) < 7 then%><%=datediff("d",date(),rs("exd"))%> days remaining<%else%><%=datediff("d",date(),rs("exd"))%> days remaining<%end if%>)
Edit Parent Information
Kid Accounts
<%end if%> <% session("KidCnt") = 0 if rs2.EOF <> true then do while rs2.EOF = false session("KidCnt") = session("KidCnt") + 1 %> <%if isnull(rs2("home")) = true then%> <%else%> <%end if%> <% rs2.MoveNext loop else%> <%end if%>
Kid's ID Password <%if rs("KidCount") <= 5 or isNUll(rs("KidCount")) = true then%>
<%=replace(rs2("KidId"),rs2("ParentID") & "_","")%> &pass=<%=rs2("Pwd")%>" title="Click to change <%=rs2("KidId")%> password."><%=rs2("Pwd")%> " title="Click to edit <%=rs2("KidId")%> account"> " title="Click to delete <%=rs2("KidId")%> account">
 Home Page: http://www.hazoo.com " title="Click to Change <%=rs2("KidId")%>'s homepage">
 Home Page: " target="newkid"><%=rs2("home")%> " title="Click to Change <%=rs2("KidId")%>'s homepage">
You have no Kid Accounts set up at this time.
<% rs.close if session("KidCnt") >= 0 then rs.Open "update parent set KidCount=" & session("KidCnt") & " where ParentID = '" & id & "'",cn end if %> .