<% If Action = "SendEmail" Then ' Here we quickly check/validate the information entered ' These checks could easily be improved to look for more things If IsValidEmail(Booking_Email) = "False" Then IsError = "Yes" Response.Write("You did not enter a valid email address.
") End If If Booking_Name = "" Then IsError = "Yes" Response.Write("You did not enter a Name.
") 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 & "Booking Form Information submitted at " & Now() & vbCrLf & "

" strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "
" strBody = strBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "

" strBody = strBody & "Subject" & " : " & " " & Replace(Booking_Subject,vbCr,"
") & "

" strBody = strBody & "Title" & " : " & " " & Replace(Booking_Title,vbCr,"
") & "
" strBody = strBody & "Customer Name" & " : " & " " & Replace(Booking_Name,vbCr,"
") & "
" strBody = strBody & "Email Address" & " : " & " " & Replace(Booking_Email,vbCr,"
") & "
" strBody = strBody & "Email Address" & " : " & " " & Replace(Booking_Email2,vbCr,"
") & "
" strBody = strBody & "Fax No" & " : " & " " & Replace(Booking_Fax,vbCr,"
") & "
" strBody = strBody & "Telephone No" & " : " & " " & Replace(Booking_Tel,vbCr,"
") & "
" strBody = strBody & "Correspondence Address" & " : " & " " & Replace(Booking_Address,vbCr,"
") & "
" strBody = strBody & "Country" & " : " & " " & Replace(Booking_Country,vbCr,"
") & "
" strBody = strBody & "Nationality" & " : " & " " & Replace(Booking_Nationality,vbCr,"
") & "

" strBody = strBody & "Type of Room" & " : " & " " & Replace(Booking_Room,vbCr,"
") & "
" strBody = strBody & "Type of Bed" & " : " & " " & Replace(Bed,vbCr,"
") & "
" strBody = strBody & "Number of Rooms" & " : " & " " & Replace(Num_Room,vbCr,"
") & "
" strBody = strBody & "Extra Bed" & " : " & " " & Replace(Extra_Bed,vbCr,"
") & "
" strBody = strBody & "Number of Adult" & " : " & " " & Replace(Num_Adult,vbCr,"
") & "
" strBody = strBody & "Number of Children" & " : " & " " & Replace(Num_Child,vbCr,"
") & "
" strBody = strBody & "Age of Children" & " : " & " " & Replace(Age_Child,vbCr,"
") & "
" strBody = strBody & "Pick-up from" & " : " & " " & Replace(Pick_Up,vbCr,"
") & "
" strBody = strBody & "Drop-off at" & " : " & " " & Replace(Drop_Off,vbCr,"
") & "
" strBody = strBody & "Additional" & " : " & " " & Replace(Booking_Additional,vbCr,"
") & "
" strBody = strBody & "Booking Request" & " : " & " " & Replace(Booking_Request,vbCr,"
") & "
" strBody = strBody & "Date of Check In" & " : " & " " & Replace(Booking_Date_Check_In,vbCr,"
") & "
" strBody = strBody & "Date of Check Out" & " : " & " " & Replace(Booking_Date_Check_Out,vbCr,"
") & "
" strBody = strBody & "Payment Method" & " : " & " " & Replace(Booking_Method,vbCr,"
") & "

" strBody = strBody & "Arrival Flight No" & " : " & " " & Replace(Arrival_Flight_No,vbCr,"
") & "
" strBody = strBody & "Time of Arrival" & " : " & " " & Replace(Arrival_Time,vbCr,"
") & "
" strBody = strBody & "Departure Flight No" & " : " & " " & Replace(Departure_Flight_No,vbCr,"
") & "
" strBody = strBody & "Time of Departure" & " : " & " " & Replace(Departure_Time,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 = Booking_Subject ObjSendMail.From = Booking_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 = "jack1@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 ( Booking Information ) 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 %>

Suan Bankrut Beach Resort, Hua Hin - Reservations Form

PERSONAL INFORMATION :

Important !!! Please furnish full name.
Title - First Name - Last Name	Mr. Miss Mrs *
Important !!! Please furnish complete e-mail address so that our reply could reach you.
E-mail Address :	* ( Correspondence E-mail address)
E-mail Address :	( Second E-mail address, if any )
Fax No :
Telephone No :
Correspondence Address :
Country :
Nationality :	*

RESERVATION / BOOKING INFORMATION :

Types of room required :	• Please Select Room • Row House Bungalow (A) - 1 Bedroom Bungalow (B) - 2 Bedroom Bungalow (C) - 4 Bedroom Villa V - 1 Bedroom Villa P - 2 Bedroom *
Types of bed :	Single Twin Double Triple
Number of rooms required :	1 2 3 4 5 6 7 8 9 *
Extra bed :	Yes No
Number of person (adult)s :	*
Number of children (if any) :
Age of children :
Pick-up from : Drop-off at :
Indicate here if more than 1 type of rooms are required. Please also furnish names of the guests for the additional rooms
Indicate here for any special request (bed types preferred, connecting room, etc.)
Date of check in :	( i.e. January 1, 2005 )
Date of check out :	( i.e. January 1, 2005 )
Preferred payment method :	by Visa Card by Master Card by JCB Card by Amex Card Other ...

FLIGHT INFORMATION :

Arrival Flight :	Flight Name and No. ( i.e. TG 999 )	Time of Arrival ( i.e. 5:30 p.m. )
Departure Flight :	Flight Name and No. ( i.e. TG 999 )	Time of Departure ( i.e. 5:30 p.m. )

Remark : * Required Information

If you encounter any returned e-mail OR difficulties sending your booking details through this form, you may send your booking details to our help desk at our main reservation office at e-mail address contact@e-biz-travel.com At your services always !

<% End If %> [ E-Biz-Travel.com ]