<%@ 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=Kidsnet" 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=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,promo) values ('" & session("id") & "','" & Date & "','" & Date + 366 & "','" & request("promo") & "')" 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 If (lcase(request("promo")) = "riskfree" or lcase(request("promo")) = "urlaudit") and cint(rs("class")) > 90 then Sql3 = "Update parent set exd = '" & date() - 1 + cint(rs("class")) + 60 & "', serial = '"& request("prefix") & "-" & request("serial") & "' where ParentID = '" & session("id") & "'" Else Sql3 = "Update parent set exd = '" & date() - 1 + cint(rs("class")) & "', serial = '"& request("prefix") & "-" & request("serial") & "' where ParentID = '" & session("id") & "'" End if rs3.Open sql3,cn3 Sql4 = "Update serialz set parentid ='" & session("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.