<%
' 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 Corporate
Dim CocktailReception
Dim Wedding
Dim PersonalChef
Dim Other
Dim Budget
Dim DateofEvent
Dim NumberofGuests
Dim LocationPreference
Dim FoodPreference
Dim SpecialRequests
Dim Name
Dim PhoneNumber
Dim EmailAddress

' get posted data into variables
EmailFrom = "futureclient@emailaddress.com"
EmailTo = "phil@infinitywebdesign.org"
Subject = "Questionaire"
Corporate = Trim(Request.Form("Corporate")) 
CocktailReception = Trim(Request.Form("CocktailReception")) 
Wedding = Trim(Request.Form("Wedding")) 
PersonalChef = Trim(Request.Form("PersonalChef")) 
Other = Trim(Request.Form("Other")) 
Budget = Trim(Request.Form("Budget")) 
DateofEvent = Trim(Request.Form("DateofEvent")) 
NumberofGuests = Trim(Request.Form("NumberofGuests")) 
LocationPreference = Trim(Request.Form("LocationPreference")) 
FoodPreference = Trim(Request.Form("FoodPreference")) 
SpecialRequests = Trim(Request.Form("SpecialRequests")) 
Name = Trim(Request.Form("Name")) 
PhoneNumber = Trim(Request.Form("PhoneNumber")) 
EmailAddress = Trim(Request.Form("EmailAddress")) 

' validation
Dim validationOK
validationOK=true
If (Trim(Name)="") Then validationOK=false
If (Trim(PhoneNumber)="") Then validationOK=false
If Not (IsNumeric(PhoneNumber)) Then validationOK=false
If (Trim(EmailAddress)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom)

' prepare email body text
Dim Body
Body = Body & "Corporate: " & Corporate & VbCrLf
Body = Body & "CocktailReception: " & CocktailReception & VbCrLf
Body = Body & "Wedding: " & Wedding & VbCrLf
Body = Body & "PersonalChef: " & PersonalChef & VbCrLf
Body = Body & "Other: " & Other & VbCrLf
Body = Body & "Budget: " & Budget & VbCrLf
Body = Body & "DateofEvent: " & DateofEvent & VbCrLf
Body = Body & "NumberofGuests: " & NumberofGuests & VbCrLf
Body = Body & "LocationPreference: " & LocationPreference & VbCrLf
Body = Body & "FoodPreference: " & FoodPreference & VbCrLf
Body = Body & "SpecialRequests: " & SpecialRequests & VbCrLf
Body = Body & "Name: " & Name & VbCrLf
Body = Body & "PhoneNumber: " & PhoneNumber & VbCrLf
Body = Body & "EmailAddress: " & EmailAddress & VbCrLf

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

' redirect to success page 
Response.Redirect("success.html")
%>