% Dim Conn dim lf public SQL dim cnt dim cnt1 dim strall Session.Timeout = 20 cnt = 0 cnt1 = 0 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=" & Server.Mappath("Data/data.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" if CStr(request.form("postr")) = "true" then SQL = "select * from member where memberID = '" & trim(request.form("memberID")) & "' and password = '" & trim(request.form("password")) & "'" Set rsuser = conn.Execute(SQL) if rsuser.bof = true and rsuser.eof = true then session("message") = "Inalid username or password" response.redirect "login.asp" else lf = "true" Session("LoggedIn") = "yes" Session("username") = request.form("memberID") end if else 'if session("LoggedIn") <> "yes" then ' session("message") = "Invalid username or password" ' response.redirect "login.asp" 'end if end if %>
Home
| About
Us | Contact Us
© Copyright 2005, Spiritual Science & Research Foundation. All Rights
Reserved.