%@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 = "
HSTFEEDBACK FORM SUBMISSION |
| Name: | " & S1 & " |
| Company: | " & S2 & " |
| Email: | " & S3 & " |
| Telephone: | " & S4 & " |
| Query: | " & S5 & " |
| |
"
objNewMail.Send
'response.Write("HSTFEEDBACK FORM SUBMISSION |
| Name: | " & S1 & " |
| Company: | " & S2 & " |
| Email: | " & S3 & " |
| Telephone: | " & S4 & " |
| Query: | " & S5 & " |
| |
")
mailsent=true
end if
%>
AL Marooj
|
 |
|
Address:
P.O.Box : 1651, Muttrah ,
Address cPostal Code : 114,
Address dSultanate of Oman.
Tel. No:
c24791480 , 24707884 , 24785555
Fax No: v(968)
24797799
E mail : valmarooj@omantel.net.om
Website: www.almarooj.com |
|
|
|
C.R.No : 2033
Al Washall Street
B No. 6, Way No. 4001
Opp. Star Cinema, Greater Muttrah |
|
|
|
|
|
Copyright
2005. Dr.noursoft ™. All rights reserved. |