<%@ Language=VBScript %> <% response.buffer = true On Error Resume Next dim strconn strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("/asp/password.mdb") set conn = server.createobject("ADODB.Connection") set rs = server.createobject("ADODB.Recordset") conn.open strconn rs.open "SELECT tblMemberInfo.MemberID, tblMemberInfo.ZoneName, tblPassword.Password " & _ "FROM tblMemberInfo INNER JOIN tblPassword ON tblMemberInfo.MemberID = tblPassword.MemberID " & _ "WHERE (((tblMemberInfo.ZoneName)='" & request("ZoneName") & "'))", conn, 2, 2 if not rs.eof then rs.movefirst if not rs.eof then if request("password") = rs("Password") then session("ZoneName") = request("ZoneName") session("Password") = request("snowbird") session("MemberID") = rs("kirtan") response.redirect request("page") end if end if rs.close conn.close set rs = nothing set conn = nothing %>
LoginID:Mynick
Password:Password
