<%@ LANGUAGE="VBSCRIPT" %> <% ' eVerify is called from eLogon.asp ' if verified TRUE, then goes to eadmin.asp ' if FALSE then go back to eLogon.asp ' ZIPSEARCH is the database. ALl placed in Islamicbase.mdb qLogin = cStr(request.form("txtLogin")) qPassword = cStr(request.form("txtPassword")) Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Data\islamicbase.mdb" ' Forming a Query String to check ID and Password adminSQL = "SELECT * FROM AdminInfo WHERE" adminSQL = adminSQL & " Login= " & "'" & qLogin & "'" & " AND " adminSQL= adminSQL & "Password = " & "'" & qPassword & "'" & ";" ' Execute method is intended for commands that dont return data ' execute return fast but static-cursor, forward only Recordset obj Set adminQuery = Conn.Execute(adminSQL) If (adminQuery.BOF = FALSE) then Session("logid") = qLogin Session("verified")=TRUE adminQuery.close Response.Redirect "eadmin.asp" else Session("verified") = False adminQuery.close Response.Redirect "elogon.asp" End if %>