<%
Response.Buffer = true
'************************************************************************************************************************************************
'Dynamic Values - Enter these values before running this script
'************************************************************************************************************************************************
'************************************************************************************************************************************************
%>
<%
dim results
set conn = Server.CreateObject("ADODB.Connection")
conn.Open dsn
sql = "Select * From DocLibAccess"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open sql, conn, adOpenDynamic, adLockOptimistic
Validuser = False
do until objRS.EOF
user = objRS.Fields("username")
if Request.Form("username") = user then
if Request.Form("password") = objRS.Fields("password") then
validuser = True
Session("doclib_user") = user
Session.Timeout = 240
response.Redirect("doclibrary_NewMemberCorrespondence.asp")
end if
end if
objRS.MoveNext
Loop
%>
STCFOC
<%
if validuser = true OR Session("doclib_user") <> "" then
%>
<%
else
if request.form("username") = "" AND request.form("password") = "" then
response.redirect("doclibrary_login_nm.asp")
end if
%>
