<%
' 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 EmailTo
Dim Subject
Dim PenName
Dim FirstName
Dim LastName
Dim Emailad
Dim Signature
Dim Date
Dim Address
Dim City
Dim State
Dim Zip


' get posted data into variables
EmailTo = "speakoutclc@gmail.com"
Subject = "Permission to Publish"
Pen Name = Trim(Request.Form("PenName")) 
First Name = Trim(Request.Form("FirstName")) 
Last Name = Trim(Request.Form("LastName")) 
Email Address = Trim(Request.Form("Emailad")) 
Electronic Signature = Trim(Request.Form("Signature")) 
Date Signed = Trim(Request.Form("Date")) 
Mailing Address = Trim(Request.Form("Address")) 
City = Trim(Request.Form("City")) 
State = Trim(Request.Form("State")) 
Zip = Trim(Request.Form("Zip")) 

' validation
Dim validationOK
validationOK=true
If (Trim(EmailFrom)="") Then validationOK=false
If (Trim(Name)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom)

' prepare email body text
Dim Body
Body = Body & "PenName: " & Name & VbCrLf
Body = Body & "FirstName: " & FirstName & VbCrLf
Body = Body & "LastName: " & LastName & VbCrLf
Body = Body & "Emailad: " & Emailad & VbCrLf
Body = Body & "Signature: " & Signature & VbCrLf
Body = Body & "Date: " & Date & VbCrLf
Body = Body & "Address: " & Address & VbCrLf
Body = Body & "City: " & City & VbCrLf
Body = Body & "State: " & State & VbCrLf
Body = Body & "Zip: " & Zip & VbCrLf



' send email 
Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail") 
mail.To = "speakoutclc@gmail.com"
mail.Subject = Subject
mail.Body = Body
mail.Send 

' redirect to success page 
Response.Redirect("http://wordpress.speakoutclc.com" & EmailFrom)
%>