<% IF Session("email")="" OR Session("UserPass")="" THEN IF Request.FORM("UserName")="" OR Request.FORM("PassWord")="" THEN %> Enter Password

To access this page, you must enter a password.

User Name
PASSWORD
<% Response.End ELSE ' Ready Database Objects Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open sDSN, optimistic ' Check The Password MySQL="SELECT UserName FROM yvv " _ & "WHERE UserName='" & REQUEST.FORM("UserName") _ & "' AND Pass1= '" & Request.FORM("PassWord") & "' ;" 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("UserName") Session("UserPass")=Request.FORM("PassWord") END IF END IF END IF %>