<%@ 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") sql = "SELECT Parent.ParentID AS ParentID, serialz.prefix AS PreFix, prefix.ResID AS ResID, reseller.Name AS Name, reseller.CSCont AS CSCont, reseller.CSEmail AS CSEmail, reseller.url AS URL FROM Parent INNER JOIN serialz ON Parent.ParentID = serialz.ParentID INNER JOIN prefix ON serialz.prefix = prefix.Prefix INNER JOIN reseller ON prefix.ResID = reseller.ResID where parent.ParentID like '" & Session("id") & "'" rs.Open sql,cn %> <%if request("t") = "e" then %>
<%else%> <%end if%>
<%if request("t") = "e" then %> <%else%> <%end if%>
Upgrade Your Account
Your Account Has Expired
<%if request("ermac") = 1 then%> <%end if%> <%if request("ermac") = 2 then%> <%end if%>
This serial number is not valid.
Please double check that it is entered correctly or contact Customer Service.
A Trial serial number is not valid for upgrading accounts. Please double check that it is entered correctly or contact Customer Service.
If you have already purchased an upgrade, please enter the serial number below.

Please enter your new serial #:

 " maxlength="5">-" maxlength="10">
Your current serial number was provided by <%=rs("name")%>
Customer Service Phone #: <%=rs("CSCont")%>
Customer Service Email: "><%=rs("CSEmail")%>
Company Web Site: " target="_reseller"><%=rs("URL")%>