<% whereis="Cruise" resortname="Loy_Nava_Dinner_Cruise" get_domain="cruise-thailand.com" more="" id="1" 'Thai 'id="2" 'Eng %> <% ' ************************END Random Booking Number ************************************ Set oConn = Server.CreateObject("ADODB.Connection") sConnection="DRIVER={SQL Server};SERVER=localhost;UID=sa;" & _ "PWD=L49m/]\D8fWQ]uM;DATABASE=all_of_rate" oConn.Open(sConnection) Set rs= Server.CreateObject ("ADODB.Recordset") sql ="select * from "& whereis &"_"&resortname &"_webpage where id ='"&id&"'" rs.Open sql,oConn,1,3 If RS.eof then response.redirect "/error.asp" End if rs.Movefirst %> <%'************************************************************ Rates Table Set rsCommonwhereis= Server.CreateObject ("ADODB.Recordset") '************************************************************* sqlwhereis="SELECT * FROM "& whereis &"_"&resortname & " WHERE roomtypes <> ''" rsCommonwhereis.Open sqlwhereis,oConn,1,3 rsCommonwhereis.Movefirst '************************************************************* Set rsCommonother= Server.CreateObject ("ADODB.Recordset") '************************************************************* sqlother="SELECT * FROM "& whereis &"_"& resortname rsCommonother.Open sqlother,oConn,1,3 rsCommonother.Movefirst '************************************************************* Set rsCommonseason= Server.CreateObject ("ADODB.Recordset") '************************************************************* sqlseason="SELECT * FROM "& whereis &"_"& resortname& "_title_rate" rsCommonseason.Open sqlseason,oConn,1,3 rsCommonseason.Movefirst %> <%do while not rs.EOF %> <%=Trim(rs("DOCTYPE_behind"))%> "> <%=Trim(rs("title_behind"))%> "> "> "> "> "> "> <% Set Show_Web_Conn_live_ask = Server.CreateObject("ADODB.Connection") Connection="DRIVER={SQL Server};SERVER=localhost;UID=sa;" & _ "PWD=L49m/]\D8fWQ]uM;DATABASE=live_chat_ask" Show_Web_Conn_live_ask.Open(Connection) Show_Web_sql_ask = "SELECT TOP 1 * FROM Table_live_chat_ask where language='eng' ORDER BY NEWID()" Set Show_Web_Re_Ask = Server.CreateObject("ADODB.Recordset") Show_Web_Re_Ask.Open Show_Web_sql_ask,Show_Web_Conn_live_ask,1,3 Show_Web_Re_Ask.Movefirst %>
" border="0"> <%=Trim(Show_Web_Re_Ask("name"))%> 
สนทนาสด
<%= FormatDateTime(Date, 1)%>
ตอบทันที
ล่องเรือทานอาหาร


ให้บริการ จันทร์-ศุกร์
เวลา 8:30-17:00 น

เวลาขณะนี้ <%=time%>
facebook

Close

" border="0" align="center" cellpadding="0" cellspacing="0"> <%if Trim(rs("Property_Highlight"))<>"" then%> <%end if%> <%if Trim(rs("Bedroom"))<>"" then%> <%end if%> <%if Trim(rs("Facilities"))<>"" then%> <%end if%> <%if Trim(rs("Swimming_Pool"))<>"" then%> <%end if%> <%if Trim(rs("Restaurant"))<>"" then%> <%end if%> <%if Trim(rs("Overview"))<>"" then%> <%end if%> <%if Trim(rs("Activities"))<>"" then%> <%end if%> <%if Trim(rs("Location"))<>"" then%> <%end if%>

<%=Trim(rs("Head_Name"))%>

  • Live Chat
  •  English Version
  • Thai Version
<%=Trim(rs("Logo"))%>

<%=Trim(rs("Name"))%>


ที่อยู่ : <%=Trim(rs("Address"))%>
<%=Trim(rs("Highlight_Pic"))%>
<%=Trim(rs("script"))%>
"><%=Trim(rs("Name"))%> Property Highlight :
<%=Trim(rs("Property_Highlight"))%>
"><%=Trim(rs("Name"))%> Rates :
<%=Trim(rs("Room_Rates"))%><% ' ************************END Random Booking Number ************************************ Set oConn = Server.CreateObject("ADODB.Connection") sConnection="DRIVER={SQL Server};SERVER=localhost;UID=sa;" & _ "PWD=L49m/]\D8fWQ]uM;DATABASE=all_of_rate" oConn.Open(sConnection) Set rs= Server.CreateObject ("ADODB.Recordset") sql ="select * from "& whereis &"_"&resortname &"_webpage where id ='"&id&"'" rs.Open sql,oConn,1,3 If RS.eof then response.redirect "/error.asp" End if rs.Movefirst %> <%'************************************************************ Rates Table Set rsCommonwhereis= Server.CreateObject ("ADODB.Recordset") '************************************************************* sqlwhereis="SELECT * FROM "& whereis &"_"&resortname & " WHERE roomtypes <> ''" rsCommonwhereis.Open sqlwhereis,oConn,1,3 rsCommonwhereis.Movefirst '************************************************************* Set rsCommonother= Server.CreateObject ("ADODB.Recordset") '************************************************************* sqlother="SELECT * FROM "& whereis &"_"& resortname rsCommonother.Open sqlother,oConn,1,3 rsCommonother.Movefirst '************************************************************* Set rsCommonseason= Server.CreateObject ("ADODB.Recordset") '************************************************************* sqlseason="SELECT * FROM "& whereis &"_"& resortname& "_title_rate" rsCommonseason.Open sqlseason,oConn,1,3 rsCommonseason.Movefirst %> %" height="<%=trim(rsCommonseason("heighttable"))%>%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF"> <%' ส่วนของ head %> "> "> <%if trim(rsCommonwhereis("personperroom"))<>""then%> <%end if%> <%if trim(rsCommonseason("ratesone"))<>""then%> <%end if%> <%if trim(rsCommonseason("ratestwo"))<>""then%> <%end if%> <%if trim(rsCommonseason("ratesthree"))<>""then%> <%end if%> <%if trim(rsCommonseason("ratesfour"))<>""then%> <%end if%> <%if trim(rsCommonseason("ratesfive"))<>""then%> <%end if%> <%if trim(rsCommonseason("ratessix"))<>""then%> <%end if%> <%if trim(rsCommonseason("ratesseven"))<>""then%> <%end if%> <%if trim(rsCommonseason("rateseight"))<>""then%> <%end if%> <%if trim(rsCommonseason("ratesnine"))<>""then%> <%end if%> <%if trim(rsCommonseason("ratesten"))<>""then%> <%end if%> <%if trim(rsCommonseason("extrebed"))<>""then%> <%end if%> <%if trim(rsCommonseason("ABF"))<>""then%> <%end if%> <%if trim(rsCommonseason("tax"))<>""then%> <%end if%> <%if trim(rsCommonseason("other"))<>""then%> <%end if%> <%if trim(rsCommonseason("status"))<>""then%> <%end if%> <%' ส่วนของ Room Type , Rates %> <% Do while not rsCommonwhereis.EOF %> <%if trim(rsCommonwhereis("roomtypes"))<>""then%> <%end if%> <%if trim(rsCommonwhereis("roomtype_more"))<>""then%> <%end if%> <%if trim(rsCommonwhereis("personperroom"))<>""then%> <%end if%> <%if trim(rsCommonwhereis("ratesone"))<>"0" and trim(rsCommonwhereis("ratesone"))<>"1"then%> <%end if%> <%if trim(rsCommonwhereis("ratesone"))="1"then%> <%end if%> <%if trim(rsCommonwhereis("ratestwo"))<>"0" and trim(rsCommonwhereis("ratestwo"))<>"1"then%> <%end if%> <%if trim(rsCommonwhereis("ratestwo"))="1"then%> <%end if%> <%if trim(rsCommonwhereis("ratesthree"))<>"0" and trim(rsCommonwhereis("ratesthree"))<>"1"then%> <%end if%> <%if trim(rsCommonwhereis("ratesthree"))="1"then%> <%end if%> <%if trim(rsCommonwhereis("ratesfour"))<>"0" and trim(rsCommonwhereis("ratesfour"))<>"1"then%> <%end if%> <%if trim(rsCommonwhereis("ratesfour"))="1"then%> <%end if%> <%if trim(rsCommonwhereis("ratesfive"))<>"0" and trim(rsCommonwhereis("ratesfive"))<>"1"then%> <%end if%> <%if trim(rsCommonwhereis("ratesfive"))="1"then%> <%end if%> <%if trim(rsCommonwhereis("ratessix"))<>"0" and trim(rsCommonwhereis("ratessix"))<>"1"then%> <%end if%> <%if trim(rsCommonwhereis("ratessix"))="1"then%> <%end if%> <%if trim(rsCommonwhereis("ratesseven"))<>"0" and trim(rsCommonwhereis("ratesseven"))<>"1"then%> <%end if%> <%if trim(rsCommonwhereis("ratesseven"))="1"then%> <%end if%> <%if trim(rsCommonwhereis("rateseight"))<>"0" and trim(rsCommonwhereis("rateseight"))<>"1"then%> <%end if%> <%if trim(rsCommonwhereis("rateseight"))="1"then%> <%end if%> <%if trim(rsCommonwhereis("ratesnine"))<>"0" and trim(rsCommonwhereis("ratesnine"))<>"1"then%> <%end if%> <%if trim(rsCommonwhereis("ratesnine"))="1"then%> <%end if%> <%if trim(rsCommonwhereis("ratesten"))<>"0" and trim(rsCommonwhereis("ratesten"))<>"1"then%> <%end if%> <%if trim(rsCommonwhereis("ratesten"))="1"then%> <%end if%> <%if trim(rsCommonwhereis("extrebed"))<>"0" and trim(rsCommonwhereis("extrebed"))<>"1" then%> <%end if%> <%if trim(rsCommonwhereis("extrebed"))="1"then%> <%end if%> <%if trim(rsCommonwhereis("ABF"))<>""then%> <%end if%> <%if trim(rsCommonwhereis("tax"))<>""then%> <%end if%> <%if trim(rsCommonwhereis("other"))<>""then%> <%end if%> <%if trim(rsCommonwhereis("status"))<>""then%> <%end if%> <% rsCommonwhereis.MoveNext loop %>
<%=trim(rsCommonseason("titeresortname"))%>, <%=trim(rsCommonseason("location"))%>, <%=trim(rsCommonseason("whereis"))%>        | Exchange Rates |
">
  All rates in Thai Baht
">
">  Tour ">
<%=trim(rsCommonseason("seasonone"))%>
<%=trim(rsCommonseason("ratesone"))%> -
<%=trim(rsCommonseason("ratesone_two"))%>
">
<%=trim(rsCommonseason("seasontwo"))%>
<%=trim(rsCommonseason("ratestwo"))%> -
<%=trim(rsCommonseason("ratestwo_two"))%>
">
<%=trim(rsCommonseason("seasonthree"))%>
<%=trim(rsCommonseason("ratesthree"))%> -
<%=trim(rsCommonseason("ratesthree_two"))%>
">
<%=trim(rsCommonseason("seasonfour"))%>
<%=trim(rsCommonseason("ratesfour"))%> -
<%=trim(rsCommonseason("ratesfour_two"))%>
">
<%=trim(rsCommonseason("seasonfive"))%>
<%=trim(rsCommonseason("ratesfive"))%> -
<%=trim(rsCommonseason("ratesfive_two"))%>
">
<%=trim(rsCommonseason("seasonsix"))%>
<%=trim(rsCommonseason("ratessix"))%> -
<%=trim(rsCommonseason("ratessix_two"))%>
">
<%=trim(rsCommonseason("seasonseven"))%>
<%=trim(rsCommonseason("ratesseven"))%> -
<%=trim(rsCommonseason("ratesseven_two"))%>
">
<%=trim(rsCommonseason("seasoneight"))%>
<%=trim(rsCommonseason("rateseight"))%> -
<%=trim(rsCommonseason("rateseight_two"))%>
">
<%=trim(rsCommonseason("seasonnine"))%>
<%=trim(rsCommonseason("ratesnine"))%> -
<%=trim(rsCommonseason("ratesnine_two"))%>
">
<%=trim(rsCommonseason("seasonten"))%>
<%=trim(rsCommonseason("ratesten"))%> -
<%=trim(rsCommonseason("ratesten_two"))%>
">
<%=trim(rsCommonseason("extrebed"))%>
">
<%=trim(rsCommonseason("ABF"))%>
">
<%=trim(rsCommonseason("tax"))%>
">
<%=trim(rsCommonseason("other"))%>
">
<%=trim(rsCommonseason("status"))%>
<%i=i+1 Session("i")=i%>   <%=trim(rsCommonwhereis("roomtypes"))%> <%Session("optionselect"&i)=trim(rsCommonwhereis("roomtypes"))&"("&trim(rsCommonwhereis("roomtype_more"))&")" %>
<%=trim(rsCommonwhereis("roomtype_more"))%>
<%=FormatNumber(trim(rsCommonwhereis("ratesone")),0)%>
-
<%=FormatNumber(trim(rsCommonwhereis("ratestwo")),0)%>
-
<%=FormatNumber(trim(rsCommonwhereis("ratesthree")),0)%>
-
<%=FormatNumber(trim(rsCommonwhereis("ratesfour")),0)%>
-
<%=FormatNumber(trim(rsCommonwhereis("ratesfive")),0)%>
-
<%=FormatNumber(trim(rsCommonwhereis("ratessix")),0)%>
-
<%=FormatNumber(trim(rsCommonwhereis("ratesseven")),0)%>
-
<%=FormatNumber(trim(rsCommonwhereis("rateseight")),0)%>
-
<%=FormatNumber(trim(rsCommonwhereis("ratesnine")),0)%>
-
<%=FormatNumber(trim(rsCommonwhereis("ratesten")),0)%>
-
<%=trim(rsCommonwhereis("extrebed"))%>
-
<%=trim(rsCommonwhereis("ABF"))%>
<%=trim(rsCommonwhereis("tax"))%>
<%=trim(rsCommonwhereis("other"))%>
<%=trim(rsCommonwhereis("status"))%>
   Remark: <%=rs("other")%>
"><%=Trim(rs("Name"))%> Accommodation :
<%=Trim(rs("Bedroom"))%>
"><%=Trim(rs("Name"))%> Facilities :
<%=Trim(rs("Facilities"))%>
"><%=Trim(rs("Name"))%> Swimming Pool :
<%=Trim(rs("Swimming_Pool"))%>
">Restaurant :
<%=Trim(rs("Restaurant"))%>
">Overview :
<%=Trim(rs("Overview"))%>
">Activities :
<%=Trim(rs("Activities"))%>
"><%=Trim(rs("Name"))%> Location and Map :
<%=Trim(rs("Location"))%>
">

If you have any suggestions or comments, Please contact us at Send An Enquiry.
บริษัท สยามมีดี บิสสิเน็ส ทราเวล จำกัด : เลขที่ใบอนุญาต ประกอบธุรกิจท่องเที่ยว 14/00615 / สอบถาม
53-53/1  ถนนราชดำริห์   ตำบลพระปฐมเจดีย์   อำเภอเมืองนครปฐม  จังหวัดนครปฐม 73000
โทรศัพท์ 083 078 9006, 02 497 1588 โทรสาร : 02 497 1588 สำนักงานใหญ่ : 8.00 น. - 17.00 น. ( จันทร์ - ศุกร์ ) © Copyright <%=get_domain%> All rights reserved.
<%=Trim(rs(, Tourism Authority of Thailand / Visa and Master Card" width="474" height="45" />

เกาะเสม็ด | เกาะลันตา | เกาะหมาก | ล่องเรือ | เกาะช้างรีสอร์ท | เกาะกูด | เกาะช้าง | อ่าวนาง | เชียงใหม่ | เกาะหลีเป๊ะ | กาญจนบุรี | ที่พักเกาะหลีเป๊ะ |
| อ่าวนาง | เกาะตะรุเตา | พัทยา | ภูเก็ตแฟนตาซี | ที่พักหัวหิน | น้ำตกทีลอซู | ล่องแก่ง
<%rs.MoveNext loop %> <% rsCommonwhereis.Close Set rsCommonwhereis=nothing rsCommonother.Close Set rsCommonother=nothing rsCommonseason.Close Set rsCommonseason=nothing rs.Close Set rs=nothing oConn.Close Set oConn=nothing %>