%@ Language = VBScript %>
<% Option Explicit %>
<%
response.buffer = true
response.expiresAbsolute = #1/1/2000#
response.CacheControl = "Private"
dim action
action = request.querystring("action")
IF action = "" THEN
action = "default"
ELSEIF action = "logout" THEN
IF request.cookies("login")("remember_login") <> "Yes" THEN response.cookies("login") = ""
response.cookies("permit") = ""
END IF
IF request.cookies("permit") = "2020applications" THEN
response.redirect "admin.asp"
END IF
dim relative_path_to_database
relative_path_to_database = "2020applications.mdb"
%>
<%
CALL GetTemplate_Styles_Header("login")
cn.close
set cn = nothing
SUB WriteLoginForm
dim errormessage
dim text_string
text_string = "If you already signed up on our site, enter your username and password in the log-in box on the left."
errormessage = request.querystring("errormessage")
IF errormessage = "error" THEN
text_string = text_string & "
Sorry, the username and/or password you typed was incorrect. Please try again."
ELSEIF errormessage = "unauthorized" THEN
text_string = text_string & "
Sorry, your account has not been authorized yet by the administration. Please be patient. You will receive an email when your account is authorized."
ELSEIF action = "logout" THEN
text_string = text_string & "
You've successfully logged out."
ELSEIF action = "authorize_new_agent" THEN
text_string = "
Please sign in before proceeding."
END IF
%>