%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if (request("submit")<>"") then
s1=replace(request("s1"),"'","'")
s2=replace(request("s2"),"'","'")
s3=replace(request("s3"),"'","'")
s4=replace(request("s4"),"'","'")
s5=replace(request("s5"),"'","'")
s5=replace(s5,chr(13),"
")
Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = s3
objNewMail.To = "feedback@hst.com"
objNewMail.Subject = "Hamed&Said.com: Feedback Form Submission"
objNewMail.bcc = "support@gulfcybertech.com"
objNewMail.MailFormat = 0
objNewMail.BodyFormat = 0
objNewMail.Body = "
FEEDBACK FORM SUBMISSION | |
| Name: | " & S1 & " |
| Company: | " & S2 & " |
| Email: | " & S3 & " |
| Telephone: | " & S4 & " |
| Query: | " & S5 & " |
FEEDBACK FORM SUBMISSION | |
| Name: | " & S1 & " |
| Company: | " & S2 & " |
| Email: | " & S3 & " |
| Telephone: | " & S4 & " |
| Query: | " & S5 & " |
|
||||||||||||||||||||||||||||||||
Designed
and Maintained by GulfCyberTech.com |