< Dim rsLogin Dim sSQL Set rsLogin = Server.CreateObject("ADODB.RecordSet") IF Request.Form.Count > 0 THEN if trim(Request.Form("username"))<>"" then sSQL = "Select * from memdetails Where rno =" & trim(Request.Form("username")) & " And pwd = '" & trim(Request.Form("password")) & "' " Set rsLogin = conn.Execute(sSQL) if rsLogin.BOF or rsLogin.EOF then rsLogin.Close Set rsLogin = Nothing Response.Redirect "register.asp?sMsg=9999" else Session("subscriber_id") = rsLogin.Fields("rno") Session("subscriber_fname") = rsLogin.Fields("name") rsLogin.Close Set rsLogin = Nothing Response.Redirect "profile.asp" end if end if END IF conn.Close Set conn = Nothing %>

 

 

 

 

 

 

BEST LIFE GROUP DISPATCH
PARCEL No. 
:
PASSWORD 
:
( D123 ) Only
BLG FOR BETTER LIFE