<%@ Language=VBScript %>

<%
Option Explicit
%>


<%


' declare variables
Dim EmailFrom
Dim EmailTo
Dim EmailCc
Dim Subject
Dim Name
Dim Message
Dim Telephone

' get posted data into variables
EmailFrom = Trim(Request.Form("EmailFrom")) 
EmailTo = "tigrah_2@yahoo.com"
Subject = "Some one has contacted you through thetaoofwellness.com"
Name = Trim(Request.Form("name")) 
Message = Trim(Request.Form("message")) 
Telephone = Trim(Request.Form("telephone")) 

' validation
Dim validationOK
validationOK=true
If (Trim(EmailFrom)="") Then validationOK=false
If (Trim(Name)="") Then validationOK=false
If (Trim(Message)="") Then validationOK=false
If (Trim(Telephone)="") 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 & "Telephone: " & Telephone & VbCrLf
Body = Body & "Message: " & message & 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("thankYou.html?" & EmailFrom)

%>