<%@codepage = 874%> <%if request.form("ok")="" then%>

*ชื่อสถานที่พัก (Lodging Name)
ชื่อ-นามสกุล (Name-Surname)		อีเมล์ของคุณ (E-mail)
โทรศัพท์/มือถือ (Telephone)		ชนิดห้องพัก (Type of room)   (สแตนดาร์ด/ซูพีเรีย/เดอร์ลุกซ์/สวีท)
วันที่เข้าพัก (Check-in)		วันที่ออก (Check-out)
จำนวน/คืน (Amount of nights)		จำนวน/ห้อง (Amount of rooms)
ผู้เดินทางเป็นผู้ใหญ่ (Adults)		เด็กอายุ 4-12 ปี (Childrens)
เด็กอายุต่ำกว่า 4 ปี (Infants)		ถึงเวลาประมาณ/น. (Arrival times)
* ป้อนข้อมูลสมาชิกเพื่อรับส่วนลด (under information use for only TourSanook Members)
ป้อน User Name		ป้อน Passward

<%response.end end if%> <%if request.form("ok")="ok" then%> <% name=request.form("name") email=request.form("email") tel=request.form("tel") F1=request.form("F1") F2=request.form("F2") F3=request.form("F3") F4=request.form("F4") F5=request.form("F5") F6=request.form("F6") F7=request.form("F7") F8=request.form("F8") F9=request.form("F9") F10=request.form("F10") F11=request.form("F11") F12=request.form("F12") %> <%if name="" then %> Please enter name <%response.end end if%> <%if email="" then %> Please enter email <%response.end end if%> <%if tel="" then %> Please enter telephone <%response.end end if%> <%if f1="" then %> กรุณากรอกรายละเอียดให้ครบทุกช่องด้วยครับ <%response.end end if%> <%if f2="" then %> กรุณากรอกรายละเอียดให้ครบทุกช่องด้วยครับ <%response.end end if%> <%if f3="" then %> กรุณากรอกรายละเอียดให้ครบทุกช่องด้วยครับ <%response.end end if%> <%if f4="" then %> กรุณากรอกรายละเอียดให้ครบทุกช่องด้วยครับ <%response.end end if%> <%if f5="" then %> กรุณากรอกรายละเอียดให้ครบทุกช่องด้วยครับ <%response.end end if%> <%if f6="" then %> กรุณากรอกรายละเอียดให้ครบทุกช่องด้วยครับ <%response.end end if%> <%if f7="" then %> กรุณากรอกรายละเอียดให้ครบทุกช่องด้วยครับ <%response.end end if%> <%if f8="" then %> กรุณากรอกรายละเอียดให้ครบทุกช่องด้วยครับ <%response.end end if%> <%if f9="" then %> กรุณากรอกรายละเอียดให้ครบทุกช่องด้วยครับ <%response.end end if%> <%if f10="" then %> กรุณากรอกรายละเอียดให้ครบทุกช่องด้วยครับ <%response.end end if%> <%if f11="" then %> กรุณากรอกรายละเอียดให้ครบทุกช่องด้วยครับ <%if f12="" then %> กรุณากรอกรายละเอียดให้ครบทุกช่องด้วยครับ <%response.end end if%><% 'เริ่มต้น ข้างล่างคือข้อความในเมล์ที่ส่งถึง info@toursanook.com BM1 = "ชื่อลูกค้าที่จอง (customer name) "& name & CHR(11) BM1 = BM1 + "ข้อมูลการจอง (booking information)"& CHR(11) BM1 = BM1 + "จากอีเมล์ (your email) :"& email & CHR(11) BM1 = BM1 + "tel :"& tel & CHR(11) BM1 = BM1 + "จองเข้าพักในวันที่ (Check-in)/กรณีเป็นแพ็กเก็ตทัวร์ออกเดินทางในวันที่ : "& F1 & CHR(11) BM1 = BM1 + "วันที่ออก (Check-out)/กรณีเป็นแพ็กเก็ตทัวร์เดินทางกลับในวันที่ : "& F2 & CHR(11) BM1 = BM1 + "จำนวน/คืน (amont of nights) : "& F3 & CHR(11) BM1 = BM1 + "ชนิดห้องพัก (type of room) : "& F4 & CHR(11) BM1 = BM1 + "จำนวน/ห้อง (amont of rooms) : "& F5 & CHR(11) BM1 = BM1 + "จำนวนผู้ใหญ่/คน (adults) : "& F6 & CHR(11) BM1 = BM1 + "จำนวนเด็กอายุ 4-17 ปี/คน (childrens) : "& F7 & CHR(11) BM1 = BM1 + "จำนวนเด็กอายุต่ำกว่า 4 ปี/คน (infants) : "& F8 & CHR(11) BM1 = BM1 + "Username คือ : "& F9 & CHR(11) BM1 = BM1 + "Passward คือ : "& F10 & CHR(11) BM1 = BM1 + "เดินทางถึงโรงแรมเวลาประมาณ/น. (arrival time) : "& F11 & CHR(11) BM1 = BM1 + "ชื่อสถานที่พัก (lodging Name) : "& F12 & CHR(12) BM1 = BM1 + "กรุณาติดต่อลูกค้าด้วยครับ เมื่อดำเนินการเป็นที่เรียบร้อยแล้วโปรดแจ้งยืนยันการจองให้ลูกค้าตามที่ได้ระบุไว้ข้างต้นและแจ้งกลับมาที่ทัวร์สนุกดอทคอมที่ email:grouptoursales@toursanook.com ขอบคุณครับ"& CHR(10) set mymail = server.CreateObject ("CDONTS.newmail") mymail.From = email mymail.To = "booking@toursanook.com" mymail.Subject = "ลูกค้าทัวร์สนุกดอทคอมจองห้องพักครับ" mymail.Body= BM1 mymail.SetLocaleIDs 874 mymail.Send 'จบส่งเมล์ถึง booking@toursanook.com 'เริ่มต้น ข้างล่างคือข้อความในเมล์ที่ส่งถึง คนกรอกแบบฟอร์ม BM = "เรียนคุณ.. (Dear..) "& name & CHR(11) BM = BM + "ทางโรงแรมได้รับแบบฟอร์มจองห้องพักของคุณแล้ว ดังนี้ (your information)"& CHR(11) BM = BM + "จากอีเมล์ (your email) :"& email & CHR(11) BM = BM + "tel :"& tel & CHR(11) BM = BM + "จองเข้าพักในวันที่ (Check-in)/กรณีเป็นแพ็กเก็ตทัวร์ออกเดินทางในวันที่ : "& F1 & CHR(11) BM = BM + "วันที่ออก (Check-out)/กรณีเป็นแพ็กเก็ตทัวร์เดินทางกลับในวันที่ : "& F2 & CHR(11) BM = BM + "จำนวน/คืน (amont of nights) : "& F3 & CHR(11) BM = BM + "ชนิดห้องพัก (type of room) : "& F4 & CHR(11) BM = BM + "จำนวน/ห้อง (amont of rooms) : "& F5 & CHR(11) BM = BM + "จำนวนผู้ใหญ่/คน (adults) : "& F6 & CHR(11) BM = BM + "จำนวนเด็กอายุ 4-17 ปี/คน (childrens) : "& F7 & CHR(11) BM = BM + "จำนวนเด็กอายุต่ำกว่า 4 ปี/คน (infants) : "& F8 & CHR(11) BM = BM + "Username คือ : "& F9 & CHR(11) BM = BM + "Passward คือ : "& F10 & CHR(11) BM = BM + "เดินทางถึงโรงแรมเวลาประมาณ/น. (arrival time) : "& F11 & CHR(11) BM = BM + "ชื่อสถานที่พัก (lodging Name) : "& F12 & CHR(12) BM = BM + "ทางโรงแรมที่พักได้รับแบบฟอร์มการจองของท่านเรียบร้อยแล้ว โปรดรอการยืนยันกลับเพื่อดำเนินการในการชำระค่าห้องพักจากเจ้าหน้าที่ ขอบคุณค่ะ "& CHR(11) set mymail2 = server.CreateObject ("CDONTS.newmail") mymail2.From = "booking@toursanook.com" mymail2.To = email mymail2.Subject = "Re : ได้รับข้อมูลการกรอกแล้ว" mymail2.Body= BM mymail2.SetLocaleIDs 874 mymail2.Send 'จบส่งเมล์หาคนกรอก Response.Write " ส่งเรียบร้อยแล้ว " end if %>