% IF Session("email")="" OR Session("UserPass")="" THEN
IF Request.FORM("FEMAIL")="" OR Request.FORM("FPWORD")="" 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("FEMAIL") _
& "' AND Password= '" & Request.FORM("FPWORD") & "' ;"
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("FEMAIL")
Session("UserPass")=Request.FORM("FPWORD")
END IF
END IF
END IF
%>