<%Response.Buffer = True DIM Errors, account_type, plan_name, name, phone, email, street, city, state, zip, how_send %> Trust Point Inc. | One of the oldest and largest independent trust companies in the nation
<% 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 %>
You will need a USER ID and PASSWORD to access the demonstration area. Please use the form below to request this information. Shortly after pressing the "Submit" button you will receive an email containing the access information for the demonstration account.

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

" Response.Write "
Errors:
" & Errors & "

" End If%> Plan name, name, phone and e-mail address are required before submitting this form.


Plan Name: 
Name: 
Phone: 
E-mail: 
Street: 
City: 
State: 
Zip Code: 

<% End Sub Sub ProcessEmail 'Set message format sendText = sendText & VbCrLf sendText = "Trust Point Inc. Web Site submission." & VbCrLf sendText = sendText & "Demo password request form submitted on: " & FormatDateTime(Now(),vbGeneralDate) & vbCRLF sendText = sendText & 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 sendText = sendText & vbCRLF & vbCRLF 'Find the correct recipient and mail server CurrServerName = Request.ServerVariables("SERVER_NAME") recipientName = "Demo Password" recipientEmail = "demopassword@trustpointinc.com" SMTPServer = "smtp.innerhost.com" 'Start up mail object and send mail Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "NCTC Demo Password Request Form" Mailer.FromAddress = "demopassword@trustpointinc.com" Mailer.RemoteHost = SMTPServer Mailer.QMessage = True Mailer.AddRecipient recipientName, recipientEmail Mailer.Subject = "Demo Password Request 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 Demonstration Account Information section of the Trust Point web site at www.trustpointinc.com. The USER ID is: DEMOUSER and the PASSWORD is: 999999. Please review http://www.trustpointinc.com/account_access/access_instructions_print.htm for directions on accessing the account information area." 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(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(email) < 1 Then Errors = Errors & "E-Mail address is required.
    " End Sub Sub GetFormData 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 the demonstration account information online. The login information will be sent to you shortly. <% End Sub %>

    •