<%
' 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 Country
Dim E-mail

' get posted data into variables
EmailFrom = "info@onlineforextradingsite.com"
EmailTo = "guitru@gmail.com"
Subject = "Contact us"
Name = Trim(Request.Form("Name")) 
Country = Trim(Request.Form("Country")) 
E-mail = Trim(Request.Form("E-mail")) 

' 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 & "Country: " & Country & VbCrLf
Body = Body & "E-mail: " & E-mail & 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("ok.htm?" & EmailFrom)
%>