<% IF Session("email")="" OR Session("UserPass")="" THEN
IF Request.FORM("EMAIL")="" OR Request.FORM("PWORD")="" THEN
%>
Enter Password
To access this page, you must enter a password.
<%
Response.End
ELSE
' Ready Database Objects
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open sDSN, optimistic
' Check The Password
MySQL="SELECT Email FROM members " _
& "WHERE Email='" & REQUEST.FORM("EMAIL") _
& "' AND Password= '" & Request.FORM("PWORD") & "' ;"
SET RS=MyConn.execute(MySQL)
' If the password is bad, redirect to the registration page
IF RS.EOF THEN
RS.CLOSE
MyConn.Close
Session("GoBack")=Request.ServerVariables("Script_Name")
Response.Redirect "invalidpassword.htm"
Response.END
ELSE
RS.CLOSE
MyConn.Close
Session("email")=Request.FORM("EMAIL")
Session("UserPass")=Request.FORM("PWORD")
END IF
END IF
END IF
%>