|
Email Address Stillwater Township is looking to start leveraging email addresses for those residents who voluntarily would like to receive their Township communications (newsletters, etc) via your email accounts instead of the postal service. This is a voluntary request. For those residents not interested in receiving their communications via email, normal mailing via the postal service will continue as normal. For those residents interested in this service, Stillwater Township wants it to be known that any information collected by Stillwater Township will not be sold or otherwise used for any reason other then authorized Stillwater Township mailings. If, at any time, you would like to remove your email address and go back to your normal mailing address, simply click on the following link: Remove Email Account For those interested in submitting your email address for future Stillwater Township communications, please complete the following information and click on the "submit" button. Created by Contact Form Generator <% ' Website Contact Form Generator ' http://www.tele-pro.co.uk/scripts/contact_form/ ' This script is free to use as long as you ' retain the credit link ' declare variables Dim EmailFrom Dim EmailTo Dim Subject Dim FirstName Dim LastName Dim Address ' get posted data into variables EmailFrom = Trim(Request.Form("email")) EmailTo = "feedback@stillwatertownship.com" Subject = "Township Email Submission" FirstName = Trim(Request.Form("FirstName")) LastName = Trim(Request.Form("LastName")) Address = Trim(Request.Form("Address")) ' validation Dim validationOK validationOK=true If (validationOK=false) Then Response.Redirect("FAQ.htm" & EmailFrom) ' prepare email body text Dim Body Body = Body & "FirstName: " & FirstName & VbCrLf Body = Body & "LastName: " & LastName & VbCrLf Body = Body & "Address: " & Address & VbCrLf ' send email Dim mail Set mail = Server.CreateObject("CDONTS.NewMail") mail.To = EmailTo mail.From = "Stillwater Township Resident" mail.Subject = Subject mail.Body = Body mail.Send ' redirect to success page Response.Redirect("FAQ.htm" & EmailFrom) close ("email.htm") %> |
||
| © Copywright 2006 Stillwater Township, Stillwater, MN | ||