|
<%
Tour = "HL2-04 - Ginger Cruise"
CheckInDay = request.form("check_in_day")
CheckInMonth = request.form("check_in_month")
CheckInYear = request.form("check_in_year")
RoomDeluxe = request.form("Room_deluxe")
RoomGinger = request.form("Room_ginger")
Pickup = request.form("Pickup")
Title = request.form("Title")
Name = request.form("Name")
Email = request.form("Email")
NoAdult = request.form("Adult")
NoChildren = request.form("Children")
Companion = request.form("Companion")
Nationality = request.form("Nationality")
Address = request.form("Address")
Tel = request.form("Tel")
Fax = request.form("Fax")
Remarks = request.form("Comment")
FindUs = request.form("Findus")
Accessing = request.form("Accessing")
mailbody = "Tour Information " mailbody = mailbody & "Tour: " & Tour & " " mailbody = mailbody & "Travel Date: " & CheckInday & " " & CheckInMonth & " " & CheckInYear & " " mailbody = mailbody & "No of cabin: Deluxe room: " & RoomDeluxe & " Ginger room: " & RoomGinger & " " mailbody = mailbody & "Pick up at: " & Pickup & " in Hanoi " mailbody = mailbody & "Added tour: " & Addedtour & " " mailbody = mailbody & "Guest Information " mailbody = mailbody & "Contact Name: " & Title & " " & Name & " " mailbody = mailbody & "Email: " & Email & " " mailbody = mailbody & "No of Guests: Adult: " & NoAdult & " Children: " & NoChildren & " " mailbody = mailbody & "Companion: " & Companion & " " mailbody = mailbody & "Nationality: " & Nationality & " " mailbody = mailbody & "Address: " & Address & " " mailbody = mailbody & "Tel: " & Tel & " " mailbody = mailbody & "Fax: " & Fax & " " mailbody = mailbody & "Remarks: " & Remarks & " " mailbody = mailbody & "Additional Information " mailbody = mailbody & "How did you find us: " & FindUs & " " mailbody = mailbody & "Vietnamstay page: " & Accessing & " " Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = Email objCDOMail.To = "tour@vietnamstay.com" objCDOMail.Subject = Tour & " Booking - " & CheckInday & " " & CheckInMonth objCDOMail.Body = mailbody objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Send Set objCDOMail = Nothing Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "Vietnamstay - Aurora Travel Please be informed that Aurora Travel will check and inform you the availability of the Ginger Cruise soon. AS WE OFTEN FACE DIFFICULTIES WITH EMAIL SERVER, WE KINDLY ASK YOU TO SEND AGAIN ALL MAIL MESSAGES IF THERE HAS NOT BEEN ANY FEEDBACK FROM OUR SIDE WITHIN 24 HOUR. THANK YOU. " & mailbody & " AURORA TRAVEL (VIETNAM) |
|
|||||||
| | Vietnam Hotels | | | Home | Vietnam Tours | Vietnam Attractions | Travel Services | Vietnam Maps | Promotions| | |||||||
|
|
A copy of this booking will be sent to your email address; in case you
do not receive that email,
|
|||||||
| |Vietnam Information| | | Home | Terms & Conditions | About us | Testimonials | Contact us | FAQ | | |||||||
|
|
||||||||