<%Option Explicit%>
<%=maintitle%>
<%
' Intercept all exceptions to display user-friendly error
if Request.Form("email") = "" then
Response.Redirect("admin_confirm.asp?l=email_blank")
elseif Request.Form("mynumber") = "" then
Response.Redirect("admin_confirm.asp?l=password_blank")
End If
Dim mrs, FormLogin, FormPwd, LoginID, DateCode, logincount, whtSQL
'set variables from form
FormLogin = Request.Form("email")
FormLogin = replace(FormLogin,"'","''")
FormPwd = Request.Form("mynumber")
FormPwd = replace(FormPwd,"'","''")
'run login or return to login page
if formlogin = systemusername and formpwd = systempassword then
dim email
LoginID = systemusername
email = systemusername
Session("LoginID") = LoginID
Session("email") = email
'SET Cookie for email
if request.form("rememberme") = 1 then
Response.Cookies("email") = email
Response.Cookies("email").Expires = Date + 30
end if
else
Response.Redirect("admin_confirm.asp?l=incorrect_login_or_password")
End if
'final redirect
Response.Redirect "admin_add.asp"
%>
Okay it worked!