<%@ Language=VBScript %> <%' Enable encryption method If Request("ID") = "" and Request("PW") = "" then 'Hey you just got here. I don't need to do anything.... else Set encrypt = Server.CreateObject("ASENCRYPT.AsEncryptCtrl.1") 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") id = lcase(Request("ID")) 'Parents ID coverted to lower case pw = Request("PW") 'Parents Password hpw = encrypt.Hash(pw) 'Parents Password Hashed erMac = "" 'ErMac defines error messages *** Toasty *** rs.Open "Select * from parent where ParentID = '" & id & "'",cn if rs.EOF <> true then select Case(left(rs("serial"),5)) case "egix1" Response.Redirect "http://egix.kidsnet.com?id=" & ID & "&pw=" & pw Case "ISPyr" Response.Redirect "http://isp.kidsnet.com?id=" & ID & "&pw=" & pw Case "USIYr" Response.Redirect "http://USinternet.kidsnet.com?id=" & ID & "&pw=" & pw Case "NTTYr" Response.Redirect "http://nettally.kidsnet.com?id=" & ID & "&pw=" & pw Case "ESD03" Response.Redirect "http://setup.kidsnet.com?id=" & ID & "&pw=" & pw Case "ESD04" Response.Redirect "http://setup.kidsnet.com?id=" & ID & "&pw=" & pw End select if hpw = rs("HashedPWd") or pw = rs("HashedPWd") then session("id") = id session("sid") = hpw if isnull(rs("serial")) = true then Response.Redirect "register.asp" else Response.Redirect "main.asp" end if else ErMac = "Password is not correct" end if else ErMac = "Parent ID not found" end if end if %> Account Setup
Log in to configure or modify your child's Internet experience
<%if ErMac <> "" then%> <%end if%>
<%=ErMac%>

Please enter your ID:

 ">

Please enter your Password:
Password is case sensitive.

You must have cookies enabled to use this site.
If your session is inactive for 5 minutes you will be returned to the login page.