Postal Address GAMA Hotel Management, P.O. Box 15572, Manama, Kingdom of Bahrain.
Tel +973 17 292 304 / +973 17 293 380
Fax +973 17 290 238
e-mail and
  


<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then strCAPTCHA = Trim(Request.Form("strCAPTCHA")) if CheckCAPTCHA(strCAPTCHA) = true then %>

Thank You <%=Request.Form("txtName")%> for having the time to fill in our online contact form
The <%=Request.Form("txtKaun")%> representative will be contacting you accordingly.

If you have any other topics on which you would like to write to us about,
please click " class="bsnormalStyle">HERE .


<% Dim objMail Set objMail = CreateObject("CDO.Message") Dim MailBody 'Dim kaun 'kaun = request.Form("txtKaun") 'Set objMail = Server.CreateObject("CDONTS.NewMail") MailBody = "Date : " + Request.Form("myDate") + vbCrLf + vbCrLf + vbCrLf MailBody = MailBody + "From : " + Request.Form("txtName") + " !!!" + vbCrLf + vbCrLf MailBody = MailBody + "Email : " + Request.Form("txtEaddress") + vbCrLf + vbCrLf MailBody = MailBody + "Phone : " + Request.Form("txtPhone") + vbCrLf + vbCrLf MailBody = MailBody + "Country : " + Request.Form("select2") + vbCrLf + vbCrLf MailBody = MailBody + "Subject : " + Request.Form("txtSubject") + vbCrLf + vbCrLf MailBody = MailBody + "Comments : " + vbCrLf + vbCrLf MailBody = MailBody + " " + Request.Form("txtComments") objMail.From = Request.Form("txteAddress") objMail.Subject = "New Enquiry via GAMA website from " + Request.Form("txtName") objMail.To = "info@gamahotels.com;admin@gamahotels.com" objMail.cc = "support@clickbahrain.com" 'objMail.Body = MailBody objMail.TextBody = MailBody objMail.Send set objMail = nothing %> <% Dim objMail2 Set objMail2 = CreateObject("CDO.Message") 'Set objMail2 = Server.CreateObject("CDONTS.NewMail") Dim MailBodyCust MailBodyCust = "Dear" + Request.Form("txtName") + vbCrLf + vbCrLf MailBodyCust = MailBodyCust + "Thank you for submitting your contact details. We will be in contact with you shortly." + vbCrLf + vbCrLf MailBodyCust = MailBodyCust + "Best regards, " + vbCrLf + vbCrLf MailBodyCust = MailBodyCust + "GAMA Hotel Management" + vbCrLf + vbCrLf MailBodyCust = MailBodyCust + "Visit http://www.gamahotels.com" + vbCrLf + vbCrLf objMail2.From = "GAMA Hotel Management " objMail2.Subject = "GAMA Hotel Management" + vbCrLf objMail2.To = Request.Form("txtEaddress") objMail2.TextBody = MailBodyCust objMail2.Send set objMail2 = nothing %> <% ELSE %> <% Response.Write("The code that you have entered is invalid.")%> <% Response.write("Click here")%> <% Response.Write("to go back and fill the form")%> <% end if end if %>

<%If Len(Request.Form("txtEaddress")) = 0 then %>

Name : *
Email : *
Country : *
Phone Number :
Subject : *
Comments : *
Verify Yourself : <% Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 %> <% Function CheckCAPTCHA(valCAPTCHA) SessionCAPTCHA = Trim(Session("CAPTCHA")) Session("CAPTCHA") = vbNullString if Len(SessionCAPTCHA) < 1 then CheckCAPTCHA = False exit function end if if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then CheckCAPTCHA = True else CheckCAPTCHA = False end if End Function %> This Is CAPTCHA Image
   
   

Note : All fields are mandatory

<% End If %>

Customer Services: +973 17 292 304
Home    Contact Us    Sitemap