") End If If Enquiry_Name = "" Then IsError = "Yes" Response.Write("You did not enter a Name.
") End If If Enquiry_Subject = "" Then IsError = "Yes" Response.Write("You did not enter a Subject.
") End If If Enquiry_Body = "" Then IsError = "Yes" Response.Write("You did not enter a Enquiry Massage.
") End If End If ' If there were no input errors and the action of the form is "SendEMail" we send the email off If Action = "SendEmail" And IsError <> "Yes" Then Dim strBody ' Here we create a nice looking html body for the email strBody = strBody & "Enquiry Form submitted at " & Now() & vbCrLf & "
" strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "
" strBody = strBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "
" strBody = strBody & "Title" & " : " & " " & Replace(Enquiry_Title,vbCr,"
") & "
" strBody = strBody & "Name" & " : " & " " & Replace(Enquiry_Name,vbCr,"
") & "
" strBody = strBody & "Email" & " : " & " " & Replace(Enquiry_Email,vbCr,"
") & "
" strBody = strBody & "Tel." & " : " & " " & Replace(Enquiry_Tel,vbCr,"
") & "
" strBody = strBody & "Subject" & " : Enquiry(Thailand) - " & " " & Replace(Enquiry_Subject,vbCr,"
") & "
" strBody = strBody & "
" & Replace(Enquiry_Body,vbCr,"
") & "
" strBody = strBody & "" Dim ObjSendMail Set ObjSendMail = Server.CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = youremail ObjSendMail.Subject = Enquiry_Subject ObjSendMail.From = Enquiry_Email ' we are sending a html email.. simply switch the comments around to send a text email instead ObjSendMail.HTMLBody = strBody 'ObjSendMail.TextBody = strBody objSendMail.Cc = "sandy@e-biz-travel.com" ObjSendMail.Send Set ObjSendMail = Nothing ' change the success messages below to say or do whatever you like ' you could do a response.redirect or offer a hyperlink somewhere.. etc etc %>
Your enquiry has been sent to us.
Thank You !!!
for using E-Biz Travel Service We will get back to you shortly.
| e-Biz
Travel Co.,Ltd (Thailand) Central Reservation Office, Bangkok operating hours : Monday - Friday 9:00 a.m. - 6:30 p.m., Saturday 9:00 a.m. - 1:00 p.m. (GMT+07:00) Office Close on Sunday & Thailand Public Holidays Bangkok Office : 31 Phyathai Building, 9th Floor, Room No. 916, Phyathai Road, Phyathai, Ratchthevi, Bangkok, Thailand 10400 Tel : +66 2246-1400 to 2 Fax : +66 2246-1403 ( Contact Person : Susan ) |
We will respond to your request
promptly. Under normal circumstances you will hear from us within 24
hours and within 48 hours during weekend/holidays. However, sometimes
due to technical circumstances that are beyond our control and if you
do not hear from us, please send us a reminder with hotel subject to
contact@e-biz-travel.com.
We really appreciate this. You can count on our commitment to ensure
that your enquiry or reservation request is promptly attended to. At your services always ! |
<% Else %> <% End If %> [ E-Biz-Travel.com ]