<%
 

' declare variables
Dim EmailFrom
Dim EmailTo
Dim Subject
Dim Name
Dim Tel
Dim City
Dim Email
Dim Comments

' get posted data into variables
EmailFrom = Trim(Request.Form("EmailFrom")) 
EmailTo = "info@jadica.co.za"
Subject = "Jadica Website Enquiry"
Name = Trim(Request.Form("Name")) 
Tel = Trim(Request.Form("Tel")) 
City = Trim(Request.Form("City")) 
Email = Trim(Request.Form("Email")) 
Comments = Trim(Request.Form("Comments")) 

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

' prepare email body text
Dim Body
Body = Body & "Name: " & Name & VbCrLf
Body = Body & "Tel: " & Tel & VbCrLf
Body = Body & "City: " & City & VbCrLf
Body = Body & "Email: " & Email & VbCrLf
Body = Body & "Comments: " & Comments & 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("thanx.asp?" & EmailFrom)
%>