<%@ 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 %>
<% IF action = "authorize_new_agent" THEN IF CheckApp("20/20 Realtor") THEN %> /admin.asp?action=add_agent&i=authorize> <% ELSEIF CheckApp("20/20 Auto Gallery") THEN %> /admin.asp?action=add_agent&i=authorize> <% END IF END IF %> <% IF active_apps_list = "" THEN %> <% ELSE IF UBound(active_apps_array) > 1 THEN %> <% ELSE SELECT CASE active_apps_array(0) CASE "20/20 Realtor" %> <% CASE "20/20 Auto Gallery" %> <% END SELECT END IF END IF %>
Use this form to login to the 20/20 Applications administration area. height=30>Use this form to login to the 20/20 Applications administration area. height=30>Use this form to login to the 20/20 Realtor administration area. height=30>Use this form to login to the 20/20 Auto Gallery administration area. height=30>
Username:
">
Password:
">
> Save my password
on this computer.

Instructions:
<%=text_string%>

Please note:
You do not need to log-in to use our site.

New <%=LCase(Agent_plural)%> should click here to set up their account on this web site. Not
Registered?

Please
click here
to sign-up!
Click here if you forgot your password and need to have it emailed to you. Forget
Your Password?

Please
click here for
a reminder.
<% END SUB %>