Password a File/Directory using Usernames & Passwords from Access:

Code:

login.asp
authenticate.asp
default.asp

login.asp

Highlight

<%Option Explicit%>

</head>
<body bgcolor=#ffffff topmargin=8 leftmargin=8>

<%if request.form <> "" then

Dim conn, rs, strconn, DBQValue, strsql
	set conn = server.createobject("adodb.connection")
	set rs = server.createobject("adodb.recordset")
	conn.open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & server.mappath("DATABASE NAME.mdb")

strsql = "select * from TABLE OR QUERY NAME where"

strsql = strsql & " UserName = '" 		&_ 
	Request.Form("UserName") & "' and "

strsql = strsql & " Password = '" 	& _
	Request.Form("Password") & "' and "

strsql=left(strsql,(len(strsql) - 5))
	rs.open strsql,conn, 2, 2

if NOT rs.EOF then
		if lcase(Request.Form("UserName")) = lcase(rs("UserName")) and lcase(Request.Form("Password")) = lcase(rs("Password")) then
			Session("Validated") = True
			rs.close
			conn.close 
			set rs = nothing
			set conn = nothing
			response.redirect (request.querystring("URL"))
		end if
	else
		response.redirect "login.asp?Pass=False&" & "URL=" & (request.querystring("URL"))
	end if

end if%>

<font face=arial size=5><b>Login</b></font>

<%if request.querystring("Pass") = "False" then
	response.write "<p><font color=#ff0000><b>Sorry, please try again.</b></font>"
end if%>

<table>

<tr>
<td valign=middle class=font><b>Password: </b></td>
<td><input type="password" size="20" name="Password"></td>
</tr>

</table>

</form>

</center>

</font>

</body>
</html>

authenticate.asp

default.asp