") IF rs.bof AND rs.eof THEN response.write("

Important

Before "& LCase(Agent_plural) &" can use this form, 20/20 Applications Software needs to be configured for your web site.

To do this, visit the login page and sign in using the following username and password:

• Username: admin
• Password: admin

") ELSE rs.movefirst %>

New <%=Agent%> Sign-Up

<% IF request.querystring("action") = "" THEN %>

Before you begin...

This form is intended for <%=LCase(Agent_plural)%> of <%=rs("companyname")%>. Please note that visitors to this site do not need to sign up here to browse our web site.

If you are an <%=LCase(Agent)%> of <%=rs("companyname")%> then please read the following details and then proceed to the sign-up form.

1. If you already have an account set up on this site, you should go here to login. You do not need to complete this process again.

2. This sign-up process takes only a few moments to complete.

3. When you are finished this process, you will be able to log in to the administration area where you can manage your account information (such as address, phone numbers, username and password), and you will have access to other tools for managing the contents of this web site.

4. If you need help through these forms, you should contact:

   <% IF rs("imageURL") <> "" THEN response.write("
   ") %> <%=rs("companyname")%>

   Contact <%=rs("title")%> <%=rs("firstname")%> <%=rs("lastname")%>
   <% IF len(rs("phone")) > 2 THEN response.write(fieldPhone &": "& rs("phone") &"
   ") %> <% IF len(rs("secondaryphone")) > 2 THEN response.write(fieldSecondaryPhone &": "& rs("secondaryphone") &"
   ") %> <% IF len(rs("faxphone")) > 2 THEN response.write(fieldFaxPhone &": "& rs("faxphone") &"
   ") %> <% IF rs("address") <> "" THEN response.write(rs("address") &"
   ") %> <% IF rs("city") <> "" THEN response.write(rs("city")) %> <% IF rs("city") <> "" AND rs("province") <> "" THEN response.write(", "& rs("province") &"
   ") ELSEIF rs("city") = "" AND rs("province") <> "" THEN response.write(rs("province") &"
   ") ELSE response.write("
   ") END IF %> <% IF rs("county") <> "" THEN response.write("("& rs("county") &")
   ") %> <% IF rs("postalcode") <> "" THEN response.write(rs("postalcode") &"
   ") %> <% IF rs("country") <> "" THEN response.write(rs("country") &"
   ") %> <% IF rs("email") <> "" THEN response.write("
   "& fieldEmail &": "& rs("email") &"
   ") %>

<% ELSEIF request.querystring("action") = "agent_login_form" THEN %>

Your Account Security

The first step is to choose a username and password which you will use to access the private area of this web site where you can update your personal information.

Username: > Tip... Password: > Tip... Your Current <%=fieldEmail%>: >

We suggest you use your current <%=LCase(fieldEmail)%> on this form. This new username and password will be automatically emailed to the address you provide here when you finish this process. This is to ensure that you have this information on record.

<% ELSEIF request.querystring("action") = "agent_info_form" THEN %>

Your Contact Information

This information will be displayed on the pages of your web site. Also, the address, phone numbers, and email address you provide here may be used by incoming and outgoing email messages through this web site.

Required fields are marked with an asterisk (*)

<% dim this_URL dim sub_rs IF request.cookies("agent_info")("URL") = "" THEN IF rs("URL") = "" THEN this_URL = request.servervariables("SERVER_NAME") ELSE this_URL = rs("URL") END IF ELSE this_URL = request.cookies("agent_info")("URL") END IF IF showAgentURL THEN %> <% ELSE %> <% END IF %> <% CALL WriteUpdateFormScript("agent_form") %> <%=fieldCompanyName%>: " selected><%=request.cookies("agent_info")("companyname")%> Add New <%=fieldCompanyName%> "><%=rs("companyname")%> <% set sub_rs = cn.Execute("SELECT DISTINCT companyname FROM people WHERE peopleID <> 1 ORDER BY companyname;") IF NOT sub_rs.eof THEN sub_rs.movefirst DO UNTIL sub_rs.eof IF sub_rs("companyname") <> "" AND sub_rs("companyname") <> rs("companyname") THEN %> "><%=sub_rs("companyname")%> <% END IF sub_rs.movenext LOOP %> "> <% END IF sub_rs.close set sub_rs = nothing %> <%=fieldTitle%>: <% set sub_rs = cn.Execute("SELECT DISTINCT title FROM people ORDER BY title;") IF NOT sub_rs.eof THEN %> " selected><%=request.cookies("agent_info")("title")%> Add New <%=fieldTitle%> <% sub_rs.movefirst DO UNTIL sub_rs.eof IF sub_rs("title") <> "" THEN %> "><%=sub_rs("title")%> <% END IF sub_rs.movenext LOOP %> "> <% ELSE %> "> <% END IF sub_rs.close set sub_rs = nothing %> <%=fieldFirstName%>: "> * <%=fieldLastName%>: "> * <%=fieldEmail%>: <% dim this_email IF request.cookies("agent_info")("email") = "" THEN IF request.cookies("login")("email") = "" THEN this_email = rs("email") ELSE this_email = request.cookies("login")("email") END IF ELSE this_email = request.cookies("agent_info")("email") END IF %> > * URL: <%=fieldAddress%>: "> <%=fieldCity%>: <% set sub_rs = cn.Execute("SELECT DISTINCT city FROM people ORDER BY city;") IF NOT sub_rs.eof THEN %> " selected><%=request.cookies("agent_info")("city")%> Add New <%=fieldCity%> <% sub_rs.movefirst DO UNTIL sub_rs.eof IF sub_rs("city") <> "" THEN %> "><%=sub_rs("city")%> <% END IF sub_rs.movenext LOOP %> "> <% ELSE %> "> <% END IF sub_rs.close set sub_rs = nothing %> <%=fieldProvince%>: <% set sub_rs = cn.Execute("SELECT DISTINCT province FROM people ORDER BY province;") IF NOT sub_rs.eof THEN %> " selected><%=request.cookies("agent_info")("province")%> Add New <%=fieldProvince%> <% sub_rs.movefirst DO UNTIL sub_rs.eof IF sub_rs("province") <> "" THEN %> "><%=sub_rs("province")%> <% END IF sub_rs.movenext LOOP %> "> <% ELSE %> "> <% END IF sub_rs.close set sub_rs = nothing %> <%=fieldCounty%>: <% set sub_rs = cn.Execute("SELECT DISTINCT county FROM people ORDER BY county;") IF NOT sub_rs.eof THEN %> " selected><%=request.cookies("agent_info")("county")%> Add New <%=fieldCounty%> <% sub_rs.movefirst DO UNTIL sub_rs.eof IF sub_rs("county") <> "" THEN %> "><%=sub_rs("county")%> <% END IF sub_rs.movenext LOOP %> "> <% ELSE %> "> <% END IF sub_rs.close set sub_rs = nothing %> <%=fieldPostalCode%>: "> <%=fieldCountry%>: <% set sub_rs = Server.CreateObject("ADODB.RecordSet") sub_rs.Open "SELECT DISTINCT country FROM people ORDER BY country;",cn,3,1,-1 IF sub_rs.RecordCount > 0 THEN %> " selected><%=request.cookies("agent_info")("country")%> Add New <%=fieldCountry%> <% sub_rs.movefirst DO UNTIL sub_rs.eof IF sub_rs("country") <> "" THEN %> " <% IF sub_rs.RecordCount = 1 THEN response.write(" selected") %>><%=sub_rs("country")%> <% END IF sub_rs.movenext LOOP %> "> <% ELSE %> "> <% END IF sub_rs.close set sub_rs = nothing %> <%=fieldPhone%>: Preferred calling or Toll-Free "> <%=fieldSecondaryPhone%>: "> <%=fieldFaxPhone%>: "> Registered with <%=rs("companyname")%> on: (ex. <%=Date()%>) "> Notes: You may choose to put a short description of yourself here. This information will be displayed following your contact information and photograph. <%=request.cookies("agent_info")("notes")%>

<% ELSEIF request.querystring("action") = "display_agent_info" THEN %>

Finished!

<% IF agentIsApprovedByDefault THEN %>

Your account has been automatically approved and is now ready for use.

Please check your email inbox for important information about your account and instructions to log in to our web site and begin using the online tools.

<% ELSE %>

Your account is now set up and is awaiting authorization from <%=rs("title")%> <%=rs("firstname")%> <%=rs("lastname")%>.

An automatic email message has been sent to this administrator and you will be notified the moment they authorize your new account.

Also, an email message has been sent to your inbox as a record of this registration. You should check your email shortly, and keep that message on record to help you remember your username and password.

<% END IF %>

The information you provided is as follows: (Note: When your account is authorized, you will be able to log in and make necessary changes if this information is inaccurate.)

<%=request.cookies("agent_info")("companyname")%>

<%=request.cookies("agent_info")("title")%> <%=request.cookies("agent_info")("firstname")%> <%=request.cookies("agent_info")("lastname")%>
<% IF len(request.cookies("agent_info")("phone")) > 2 THEN response.write(fieldPhone &": "& request.cookies("agent_info")("phone") &"
") %> <% IF len(request.cookies("agent_info")("secondaryphone")) > 2 THEN response.write(fieldSecondaryPhone &": "& request.cookies("agent_info")("secondaryphone") &"
") %> <% IF len(request.cookies("agent_info")("faxphone")) > 2 THEN response.write(fieldFaxPhone &": "& request.cookies("agent_info")("faxphone") &"
") %> <% IF request.cookies("agent_info")("address") <> "" THEN response.write(request.cookies("agent_info")("address") &"
") %> <% IF request.cookies("agent_info")("city") <> "" THEN response.write(request.cookies("agent_info")("city")) %> <% IF request.cookies("agent_info")("city") <> "" AND request.cookies("agent_info")("province") <> "" THEN response.write(", "& request.cookies("agent_info")("province") &"
") ELSEIF request.cookies("agent_info")("city") = "" AND request.cookies("agent_info")("province") <> "" THEN response.write(request.cookies("agent_info")("province") &"
") ELSE response.write("
") END IF %> <% IF request.cookies("agent_info")("county") <> "" THEN response.write(request.cookies("agent_info")("county") &"
") %> <% IF request.cookies("agent_info")("postalcode") <> "" THEN response.write(request.cookies("agent_info")("postalcode") &"
") %> <% IF request.cookies("agent_info")("country") <> "" THEN response.write(request.cookies("agent_info")("country") &"
") %> <% IF request.cookies("agent_info")("email") <> "" THEN response.write("
"& fieldEmail &": "& request.cookies("agent_info")("email") &"
") %> <% IF showAgentURL THEN IF Len(request.cookies("agent_info")("URL")) > 0 THEN response.write("
www: "& Replace(request.cookies("agent_info")("URL"),"http://","") &"
") END IF %>

<% END IF END IF response.write("