<% dim strconn, redirPage, LoginFailed redirPage = "../Secure/Downloads.asp" 'if Request.Cookies("AccentureActivityTracker")("LoggedIn")="Yes" then ' response.redirect redirPage 'end if response.buffer = true LoginFailed="False" Username = request("Username") if Len(Username)>0 then 'you'll need to change the path to meet your setup strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("/_dbs/admin.mdb") set conn = server.createobject("ADODB.Connection") set rs = server.createobject("ADODB.Recordset") conn.open strconn rs.open "SELECT tblMembers.* FROM tblMembers WHERE (((tblMembers.Username)='" & request("Username") & "'))", conn, 2, 2 if not rs.eof then if request("Password") = rs("Password") then Response.Cookies("meadewebtracker")("LoggedIn")="Yes" Response.Cookies("meadewebtracker")("ID")=rs("ID") Response.Cookies("meadewebtracker")("Username")=Username response.redirect redirPage else LoginFailed="True" end if else LoginFailed="True" end if rs.close conn.close set rs = nothing set conn = nothing end if Session.Timeout=120 %> Meade100.com