% dim lflag username=trim(Request.Form("username")) password=trim(Request.Form("password")) if username<>"" and password<>"" then Set rs=Server.CreateObject("ADODB.RECORDSET") str="select * from REGISTRATION where REGISTRATION_USERNAME='" & username & "' and REGISTRATION_PASSWORD='" & password & "'" rs.Open str,conn,1,3 if rs.EOF and rs.BOF then lflag="false" 'Response.Redirect("login.asp") else session("email")=rs("REGISTRATION_EMAIL_ID") session("firstname")=rs("REGISTRATION_FIRSTNAME") session("lastname")=rs("REGISTRATION_LASTNAME") session("registration_id")=rs("REGISTRATION_ID") session("username")=rs("REGISTRATION_USERNAME") session("password")=rs("REGISTRATION_PASSWORD") if isnull(rs("REGISTRATION_LASTNAME")) then Response.Redirect("registration/registration_form2.asp") end if firstname=rs("REGISTRATION_FIRSTNAME") dob=rs("REGISTRATION_BIRTH_DATE") sex=rs("REGISTRATION_GENDER") city=rs("REGISTRATION_BIRTH_PLACE") bthour=rs("REGISTRATION_BIRTH_TIME_HOUR") btmin=rs("REGISTRATION_BIRTH_TIME_MINUTES") btsec=0 'Response.Redirect("predict_process1.asp?fname="&firstname&"&dob="&dob&"&sex="&sex&"&city="&city&"&bth="&bthour&"&btm="&btmin&"&bts="&btsec) end if end if %>
|
||||||||||||||||||||||