%@ Language = "VBScript"%> <% response.buffer = true 'On Error Resume Next 'Connection to the database strconn = "Provider=Microsoft.jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("\") & "\db\password.mdb" strPage = "password.asp" set conn = server.createobject("ADODB.Connection") set rs = server.createobject("ADODB.Recordset") conn.open strconn rs.open "SELECT tblMemberInfo.ZoneName, tblPassword.Password " & _ "FROM tblMemberInfo INNER JOIN tblPassword ON tblMemberInfo.MemberID = tblPassword.MemberID " & _ "WHERE (((tblMemberInfo.ZoneName)='" & Session("ZoneName") & "'))", conn, 2, 2 if not rs.eof then rs.movefirst if rs.eof then response.redirect "login.asp?page=" & strPage else if session("password") <> rs("password") then response.redirect "login.asp?page=" & strPage end if end if rs.close conn.close set rs = nothing set conn = nothing %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
©Copyright
2000, ERM, Inc., All Rights Reserved
|