<% 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 & "Transfer Service in Bangkok & Around Bangkok" & " : " & " " & Replace(Booking_Bangkok_Transfer,vbCr,"
") & "
" strBody = strBody & "Pick-up From" & " : " & " " & Replace(Pick_Up,vbCr,"
") & "
" strBody = strBody & "Drop-off At" & " : " & " " & Replace(Drop_Off,vbCr,"
") & "
" strBody = strBody & "Vehicle Type" & " : " & " " & Replace(Type_Vehicle,vbCr,"
") & "
" strBody = strBody & "Type of Journey" & " : " & " " & Replace(Type_Journey,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 & "Booking Request" & " : " & " " & Replace(Booking_Request,vbCr,"
") & "
" strBody = strBody & "Payment Method" & " : " & " " & Replace(Booking_Method,vbCr,"
") & "

" strBody = strBody & "Date of Arrival" & " : " & " " & Replace(Date_of_Arrival,vbCr,"
") & "
" strBody = strBody & "Arrival Flight No" & " : " & " " & Replace(Arrival_Flight_No,vbCr,"
") & "
" strBody = strBody & "Time of Arrival" & " : " & " " & Replace(Arrival_Time,vbCr,"
") & "
" strBody = strBody & "Date of Departure" & " : " & " " & Replace(Date_of_Departure,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 = "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 ( 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:30 a.m. - 6:30 p.m., Saturday 9:30 a.m. - 1:30 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 %>

Thailand Airport Pick-Up Services - 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 :

Transfer Service in Bangkok and Around Bangkok : • Please Select Location ( if you required ) • Bangkok Airport - Hotel in Bangkok Downtown Hotel in Bangkok Downtown - Bangkok Airport Bangkok - Ayutthaya Ayutthaya - Bangkok Bangkok - Laem Chabang Laem Chabang - Bangkok Bangkok - Pattaya Pattaya - Bangkok Bangkok - Rayong Rayong - Bangkok Bangkok - Rayong (Klaeng area) Rayong (Klaeng area) - Bangkok Bangkok - Cha Am Cha Am - Bangkok Bangkok - Hua Hin (City Area) Hua Hin (City Area) - Bangkok Bangkok - Pranburi Pranburi - Bangkok Bangkok - Kanchanaburi Kanchanaburi - Bangkok *
Pick-up from : Drop-off at : *
Vehicle Type :	Please Select (Car/Van) Luxury Car (Max 2 adults) Luxury Van (Max 7 adults) *
Type of journey :	One Way Round Trip *
Number of guest (adult)s :	*
Number of children (if any) :
Age of children :
Indicate here for any special request :
Preferred payment method :	by Visa Card by Master Card by JCB Card by Amex Card Other ...

FLIGHT INFORMATION :

Arrival Flight :
* Date of Arrival : ( i.e. May 1, 2005 )	* Flight Name and No. ( i.e. TG 999 )	* Time of Arrival ( i.e. 5:30 p.m. )
Departure Flight :
Date of Departure : ( i.e. May 1, 2005 )	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 ]