<%@ 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 * from prefix where prefix = '" & request("prefix") & "'" rs.Open sql,cn sql2= "select * from serialz where prefix like '" & request("prefix") & "' and reg like '" & request("serial") & "' and (parentID is null or parentID = 'ESD')" rs2.Open sql2,cn2 if rs.EOF <> true then if rs2.eof <> true then 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 Response.Redirect "register.asp?prefix=" & request("prefix") & "& serial=" & request("serial") & "&ermac=1" end if else Response.Redirect "register.asp?prefix=" & request("prefix") & "& serial=" & request("serial") & "&ermac=1" end if Trak="Insert into trakkar (parentid,indate,outdate,promo) values ('" & session("id") & "','" & Date & "','" & Date + 365 & "','" & session("promo") & "')" cn3.Execute Trak Response.Redirect "edit_parent.asp"%> <%=Sql%>
<%=SQl2%>
<%=sql3%>
<%=sql4%>
<%=rs("class")%>
<%=sql4%>