<% Dim strCustEmail Dim strCustPWD IF NOT Request.Cookies("CustLogin").HasKeys THEN strCustEmail = Session("CustEmail") strCustPWD = Session("CustPWD") Else strCustEmail = Request.Cookies("CustLogin")("CustEmail") strCustPWD = Request.Cookies("CustLogin")("CustPWD") End If DIM mySQL200, objRS200 mySQL200 = "SELECT * FROM Customers Where Email='"& strCustEmail &"' and PWD='" & strCustPWD & "'" Set objRS200 = Server.CreateObject("ADODB.Recordset") objRS200.Open mySQL200, objConn IF objRS200.EOF THEN Response.Redirect "error.asp?Error=
You are not logged in. You must login to access this area.

" &_ "Login Here" Response.End END IF %>