<%
' 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 Name
Dim Tel
Dim Company
Dim Project_Needs

' get posted data into variables
EmailFrom = Trim(Request.Form("EmailFrom")) 
EmailTo = "info@displaymaxmerchandising.com"
Subject = "Website Contact Form"
Name = Trim(Request.Form("Name")) 
Tel = Trim(Request.Form("Tel")) 
Company = Trim(Request.Form("Company")) 
Project_Needs = Trim(Request.Form("Project_Needs")) 

' validation
Dim validationOK
validationOK=true
If (Trim(EmailFrom)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error.html" & EmailFrom)

' prepare email body text
Dim Body
Body = Body & "Name: " & Name & VbCrLf
Body = Body & "Tel: " & Tel & VbCrLf
Body = Body & "Company: " & Company & VbCrLf
Body = Body & "Project_Needs: " & Project_Needs & 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("thank-you.html" & EmailFrom)
%>