<%


' declare variables
Dim EmailFrom
Dim EmailTo
Dim Subject
Dim Name
Dim Address
Dim PostalCode
Dim City
Dim State
Dim Phone
Dim Email
Dim Comments

' get posted data into variables

EmailTo = "mherron54@gmail.com"
Subject = "Form Submission"
Name = Trim(Request.Form("Name")) 
Address = Trim(Request.Form("Address")) 
PostCode = Trim(Request.Form("PostalCode")) 
City = Trim(Request.Form("City")) 
State = Trim(Request.Form("State")) 
Tel = Trim(Request.Form("Phone")) 
email = Trim(Request.Form("Email")) 
Comments = Trim(Request.Form("Comments")) 

' validation
Dim validationOK
validationOK=true
If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom)

' prepare email body text
Dim Body
Body = Body & "Name: " & Name & VbCrLf
Body = Body & "Address: " & Address & VbCrLf
Body = Body & "PosaltCode: " & PostalCode & VbCrLf
Body = Body & "City: " & City & VbCrLf
Body = Body & "State: " & State & VbCrLf
Body = Body & "Phone: " & Phone & VbCrLf
Body = Body & "Email: " & Email & VbCrLf
Body = Body & "Comments: " & Comments & VbCrLf

' send email 
Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail") 
mail.To = MailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send 

' redirect to success page 
Response.Redirect("index.html?" & EmailFrom)
%>