<% 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%>

" 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"))%>

<%=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"))%>

Koh Chang / Koh Kood / Koh Lanta / Koh Samet / Cruise Thailand / Ao Nang / Hua Hin / Chiang Mai / Pattaya / Ko Chang

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 %>