<% on error resume next Go2Url = "index.asp" response.write Go2Url session("logN") session("nme") session("msg") session("ER") Dim Nme Dim PassCode Nme = request.form("TXTName") PassCode = request.form("TXTPwd") Dim AdoCon Dim RsLOG Dim SQLEN set AdoCon = server.createobject("ADODB.CONNECTION") set RsLOG = server.createobject("ADODB.RECORDSET") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") SQLEN ="select Visname,Vispassword from registrations where Visname='" & Nme &"' AND Vispassword ='" & PassCode &"'" 'response.write SQLEN RsLOG.Open SQLEN, AdoCon,3,3 response.write RsLOG(1) response.write RsLOG.RECORDCOUNT if RsLOG.RECORDCOUNT = 0 THEN response.write "incorrect login" session("msg") = "No such user found" response.redirect Go2Url session("ER")= ERROR response.write "Er=Error" 'response.end else response.write "success" session("logN")= true n = RsLOG(0) session("nme") = n session("msg") = "Welcome" response.redirect Go2Url session("ER")=SUC response.write "Sucess" end if %> Login <%response.write session("logN")%>