<%@ 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") set cn3 = Server.CreateObject("ADODB.Connection") cn3.Open "DSN=Kidsnet_Parent;uid=sa;PWD=sgmkj;APP=ASP Script;DATABASE=Kidsnet" Set rs3 = Server.CreateObject("ADODB.Recordset") SQL = "SELECT prefix.Prefix, prefix.class, serialz.Reg, serialz.ParentID FROM prefix INNER JOIN serialz ON prefix.Prefix = serialz.prefix WHERE (prefix.Prefix = '" & request("prefix") & "') AND (serialz.Reg = '" & request("serial") & "')"' AND (serialz.ParentID LIKE 'esd%' OR serialz.ParentID IS NULL)" rs.Open sql,cn Sql2 = "Insert into trakkar (parentid,indate,outdate) values ('" & request("id") & "','" & Date & "','" & Date + 365 + 15 & "')" rs2.Open Sql2,cn2 if rs.EOF <> true then if cint(rs("class")) < 89 then if request("t") = "e" then Response.Redirect "upgrade.asp?t=e&prefix=" & request("prefix") & "&serial=" & request("serial") & "&ermac=2" else Response.Redirect "upgrade.asp?prefix=" & request("prefix") & "&serial=" & request("serial") & "&ermac=2" end if end if Sql3 = "Update parent set exd = '" & date() + cint(rs("class")) + 15 & "', serial = '"& request("prefix") & "-" & request("serial") & "' where ParentID = '" & request("id") & "'" rs3.Open sql3,cn3 Sql4 = "Update serialz set parentid ='" & request("id") & "' where reg = '" & request("serial") & "'" rs3.Open sql4,cn3 else if request("t") = "e" then Response.Redirect "upgrade.asp?t=e&prefix=" & request("prefix") & "&serial=" & request("serial") & "&ermac=1&class=" & rs2.EOF else Response.Redirect "upgrade.asp?prefix=" & request("prefix") & "&serial=" & request("serial") & "&ermac=1" end if end if %>

Your Account Has been Upgraded


	Click to return to the Parent's page.
You may add additional Kid Accounts and edit the Parent Information there.