<% 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 %>

Deepak Kapoor : Bejan Daruwalla : Ajai Bhambi : P. K. Sharma : Bharat Bhushan : Inhouse Astrologers Business Report INR - Rs. 750 / $ 15 order Finance Report INR - Rs. 750 / $ 15 order Deepak Kapoor Business Report INR - Rs. 995 / $ 20 order Finance Report INR - Rs.995 / $ 20 order Stock Report  INR - Rs. 750 / $ 15 order Bejan Daruwalla Business Opportunities INR - Rs.1000 / $ 20 order Ajai Bhambi Business Report INR - Rs.1100 / $ 25 order P. K. Sharma Business Compatiblity INR - Rs.2500 / $ 50 order Bharat Bhushan Business Opportunities INR - Rs.699 / $ 14 order