<%
Set cn = Server.CreateObject("ADODB.Connection")
set objRS = server.createobject("ADODB.Recordset")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\DB\letshaveapartynow.mdb") & ";"
cn.open strConn
if lcase(Request.ServerVariables("request_method")) ="post" then
sql = "select * from members"
objRS.open sql, cn, 0, 3
if not objrs.EOF then
if lcase(Request.Form("password")) = lcase(objrs("password")) then
Response.Cookies("loggedin") = "1"
objrs.Close
cn.Close
Response.Redirect ("membersarea.asp")
else
errors = "Not an authorised member."
end if
end if
objrs.Close
cn.Close
set objrs = nothing
set cn = nothing
end if
%>
