<%@ LANGUAGE="VBSCRIPT" %> <% qLogin = cStr(request.form("txtLogin")) qPassword = cStr(request.form("txtPassword")) Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DSN=zipsearch" ' verify login user id and pass adminSQL = "SELECT * FROM Companies 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 "zadmin.html" else Session("verified") = False adminQuery.close Response.Redirect "zlogon.asp" End if %>