<%
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
%>
Zeenews - Astro & Horoscopes
Is it a moment of crisis, and you need to take an immediate
decision? Is it a business situation that requires prompt action or a personal
crisis in which you require guidance as soon as possible. Receive your answers
within 48 hours in your email
