<%
' 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 comapny
Dim tel
Dim email
Dim enquiry
' get posted data into variables
EmailFrom = "perkasaforce.com"
EmailTo = "zahyat@perkasaforce.com"
Subject = "perkasaform"
name = Trim(Request.Form("name"))
comapny = Trim(Request.Form("comapny"))
tel = Trim(Request.Form("tel"))
email = Trim(Request.Form("email"))
enquiry = Trim(Request.Form("enquiry"))
' validation
Dim validationOK
validationOK=true
If (validationOK=false) Then Response.Redirect("index.asp" & EmailFrom)
' prepare email body text
Dim Body
Body = Body & "name: " & name & VbCrLf
Body = Body & "comapny: " & comapny & VbCrLf
Body = Body & "tel: " & tel & VbCrLf
Body = Body & "email: " & email & VbCrLf
Body = Body & "enquiry: " & enquiry & 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("index.asp" & EmailFrom)
%>
PerkasaForce Sdn Bhd
Thank-you
<% = Request.Form("name") %>
for completing the form.
We'll get to you shortly.
Regards,
Business Development PERKASAFORCE SDN BHD
