<% If Request.Form("Submit") = "Submit" Then Call GetFormData Call CheckErrors If Len(Errors) > 1 Then Call TheForm Else Call ProcessEmail Call ThankYou End If Else Call TheForm End If %> <% Sub TheForm %>

To be reminded of your existing password, use the form below to request that the information be sent to you again.

<% If Len(Errors) > 0 Then Response.Write "

" Response.Write "

Errors:

" & Errors & "

" End If%> Type of account, plan name, name, phone and either mailing address or e-mail address are required before submitting this form.

Type of Account:	Select One >401(k) >Investment
Plan Name:
Name:
Phone:
E-mail Address:
Street:
City:
State:
ZIP:
How should we send you the login information? "plan_sponsor" Then Response.Write " checked"%>> Send it to the mailing address in your records > Send it to my Plan Sponsor

<% End Sub Sub ProcessEmail 'Set message format sendText = sendText & VbCrLf sendText = "Trust Point Inc. Web Site submission." & VbCrLf sendText = sendText & "Forgotten password form submitted on: " & FormatDateTime(Now(),vbGeneralDate) & vbCRLF sendText = sendText & vbcrlf sendText = sendText & "Type of Account: " & account_type & vbCRLF sendText = sendText & "Plan Name: " & plan_name & vbCRLF sendText = sendText & "Name: " & name & vbCRLF sendText = sendText & "Phone: " & phone & vbCRLF sendText = sendText & "E-Mail: " & email & vbCRLF sendText = sendText & "Street: " & street & vbCRLF sendText = sendText & "City: " & city & vbCRLF sendText = sendText & "State: " & state & vbCRLF sendText = sendText & "Zip: " & zip & vbCRLF If how_send = "mailing_address" Then sendText = sendText & "Send login information to: My Mailing Address" & vbCRLF Else sendText = sendText & "Send login information to: My Plan Sponsor" & vbCRLF End If sendText = sendText & vbCRLF & vbCRLF 'Find the correct recipient and mail server CurrServerName = Request.ServerVariables("SERVER_NAME") If account_type = "401k" Then recipientName = "Retirement" recipientEmail = "retirement@trustpointinc.com" Else recipientName = "Trust and Financial Services" recipientEmail = "trustservices@trustpointinc.com" End If SMTPServer = "smtp.innerhost.com" 'Start up mail object and send mail Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Trust Point Inc Forgotten Password Form" If account_type = "401k" Then Mailer.FromAddress = "retirement@trustpointinc.com" Else Mailer.FromAddress = "trustservices@trustpointinc.com" End If Mailer.RemoteHost = SMTPServer Mailer.QMessage = True Mailer.AddRecipient recipientName, recipientEmail Mailer.Subject = "Forgotten Password Submission" Mailer.BodyText = sendText If not Mailer.SendMail Then Response.Write "Mail send failure. [" + SMTPServer + "]" + " Reason: " + Mailer.Response End if If Len(email) > 1 AND InStr(email,"@") > 0 Then sendText = "We have received your request for access to the Account Information section of the Trust Point web site at www.trustpointinc.com. Once we verify your account status we will send the login and password that you requested. You can expect to receive this information within 5 business days." Mailer.ClearRecipients Mailer.AddRecipient name, email Mailer.ClearBodyText Mailer.BodyText = sendText If not Mailer.SendMail Then Response.Write "Mail send failure. [" + SMTPServer + "]" + " Reason: " + Mailer.Response End if End If End Sub Sub CheckErrors Errors = "" If Len(account_type) < 1 Then Errors = Errors & "

Type of Account is a required field.
" If Len(plan_name) < 1 Then Errors = Errors & "

Plan Name is a required field.
" If Len(name) < 1 Then Errors = Errors & "

Name is a required field.
" If Len(phone) < 1 Then Errors = Errors & "

Phone is a required field.
" If Len(street) > 0 OR Len(city) > 0 OR Len(state) > 0 OR Len(zip) > 0 Then If Len(street) < 1 Then Errors = Errors & "

Street is required for the mailing address.
" If Len(city) < 1 Then Errors = Errors & "

City is required for the mailing address.
" If Len(state) < 1 Then Errors = Errors & "

State is required for the mailing address.
" If Len(zip) < 1 Then Errors = Errors & "

Zip is required for the mailing address.
" ElseIf Len(email) < 1 Then Errors = Errors & "

Either E-Mail or a Mailing address is required.
" End If End Sub Sub GetFormData account_type = Request.Form("account_type") how_send = Request.Form("how_send") plan_name = Request.Form("plan_name") name = Request.Form("name") phone = Request.Form("phone") email = Request.Form("email") street = Request.Form("street") city = Request.Form("city") state = Request.Form("state") zip = Request.Form("zip") End Sub Sub ThankYou %>

Thank you for your interest in accessing retirement and investment account information online. Your login information will be sent to you within 5 business days.
<% End Sub %>