<%@ Language=VBScript %> <% set cn = Server.CreateObject("ADODB.Connection") 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.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 if datediff("d",date(),rs("exd")) =< 0 then 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")%>
Enter New Serial Number

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%>
Kid Accounts
<%end if%> <% session("KidCnt") = 0 if rs2.EOF <> true then do while rs2.EOF = false session("KidCnt") = session("KidCnt") + 1 %> <% rs2.MoveNext loop else%> <%end if%>
Kid's ID Password <%if rs("KidCount") <= 5 or isNUll(rs("KidCount")) = true then%>
<%=rs2("KidId")%> &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">
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 %>