<% @LANGUAGE="VBScript" %> <% Session.Abandon %> <% Dim border_color border_color = "#0000FF" Dim request_text request_text = "In order to use this system you must have a valid email address on record with our office. If you do not have an email address on record, call your local office for assistance." Dim request_text2 request_text2 = "Once your email address is on record, enter your email address below. A new password will be automatically generated and emailed to you." Dim company_logo company_logo = "Images/logo.gif" Dim clsData Set clsData = GetDataObject() %> <% Dim sEmail sEmail = "" IF NOT ISEMPTY(Request("txtEmail")) THEN sEmail = CStr(Request("txtEmail")) IF clsData IS NOTHING THEN Response.Redirect "error.asp" END IF END IF %> <%= Session("company")%> Online Services ">
">
">
<%= request_text%>
<%= request_text2%>

<% IF sEmail = "" THEN %>
E-mail:
 
<% ELSE 'Do the update and send the email ON ERROR RESUME NEXT IF clsData.ResetUserPassword(CLng(Session("OrgID")), CStr(sEmail),Cstr(Session("email_contact")), CStr(Request.ServerVariables("REMOTE_ADDR"))) = TRUE THEN %> Password update successful.

You should receive an e-mail with your new password in the next few minutes.

Click here to return to the login page. <% ELSE %> Password update failed.

Please check that the e-mail address you entered is the same one stored with your record at our office. <% END IF %> <% END IF %>
Please contact your local <%= Session("company")%> office with any questions

<% 'Release memory SET clsData = NOTHING %>