The Legend Chiang Rai - Chiang Mai / Chiang Rai Hotels & Resorts - Reservations Accommodation Thailand

<%@ Language=VBScript %> <% dim HotelDAL dim MainConnectString dim MainDatabasePrefix Set HotelDAL = Server.CreateObject("HotelDAL.Hotel") MainConnectString = HotelDAL.GetMainConnectString() MainDatabasePrefix = HotelDAL.GetMainDatabasePrefix() %> <% Function BuildRateTable(HotelID) dim cnn dim rs Dim rsHotel Set rsHotel = HotelDAL.GetWebRates(clng(HotelID)) Response.Write "" Response.Write"" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write"" While Not rsHotel.EOF Response.Write "" Response.Write "" if isnull(rsHotel("SINGLEAD").Value) then Response.Write "" else Response.Write "" end if if isnull(rsHotel("DOUBLEAD").Value) then Response.Write "" else Response.Write "" end if if isnull(rsHotel("TripleAd").Value) then Response.Write "" else Response.Write "" end if if isnull(rsHotel("ExtraGuest").Value) then Response.Write "" else Response.Write "" end if Response.Write "" rsHotel.MoveNext Wend set cnn = Server.CreateObject("ADODB.Connection") cnn.ConnectionString = MainConnectString cnn.Open() Response.Write "

" & "" & "Room Type" & "" & "	" & "" & "Single" & "" & "	" & "" & "Double" & "" & "	" & "" & "Triple" & "" & "	" & "" & "Extra Guest" & "" & "
" & rsHotel("ROOMTYPENAME").Value & "	" & "N/A" & "	" & rsHotel("SINGLEAD").Value & "	" & "N/A" & "	" & rsHotel("DOUBLEAD").Value & "	" & "N/A" & "	" & rsHotel("TRIPLEAD").Value & "	" & "N/A" & "	" & rsHotel("ExtraGuest").Value & "

" Response.Write "
" set rs = cnn.Execute("select RateDescription from tblHotels where HotelID = " & HotelID,,adCmdText) if not rs.eof then Response.write("" & rs("RateDescription") & "") end if End Function Function CheckNoShowCharge(HotelID) CheckNoShowCharge = HotelDAL.GetNoShowCharge(HotelID) End Function Function CheckGroundTransportation(HotelID) CheckGroundTransportation = HotelDAL.GetAirportPickup(HotelID) End Function %> <% const HotelDirectPayment = &H00000001 %> <% Function BuildBookingOptions(intHotelID) BuildBookingOptions = "" BuildBookingOptions = BuildBookingOptions & BuildEnquery(intHotelID) BuildBookingOptions = BuildBookingOptions & " " BuildBookingOptions = BuildBookingOptions & BuildBookRoom(intHotelID) if CheckAbilityToBuy(intHotelID) then BuildBookingOptions = BuildBookingOptions & "
or " BuildBookingOptions = BuildBookingOptions & BuildBuyRoom(intHotelID) end if BuildBookingOptions = BuildBookingOptions & "" End Function Function BuildBuyRoom(intHotelID) strCookie = Request.Cookies("ebizaid") BuildBuyRoom = "To purchase a room on-line" End Function Function BuildEnquery(intHotelID) strCookie = Request.Cookies("ebizaid") BuildEnquery = "

Click Here to Enquire

" End Function Function BuildBookRoom(intHotelID) strCookie = Request.Cookies("ebizaid") BuildBookRoom = "

Click Here to Book

" End Function Function CheckAbilityToBuy(intHotelID) dim cnn dim sqlstring dim rs CheckAbilityToBuy = false set cnn = Server.CreateObject("ADODB.Connection") cnn.ConnectionString = MainConnectString cnn.Open sqlstring = "select Flags from " & MainDatabasePrefix & "tblHotels where HotelID = " & intHotelID set rs = cnn.Execute(sqlstring,,adCmdText) if (Not rs.EOF) then if (CLNG(rs("Flags")) and CLNG(HotelDirectPayment)) <> 0 Then CheckAbilityToBuy = true end if end if set rs = Nothing set cnn = Nothing end function %> The Legend Chiang Rai - Chiang Mai / Chiang Rai Hotels & Resorts - Reservations Accommodation Thailand

Chiang-Rai-Thailand-Hotel-Reservations.com

The Legend Chiang Rai - Map

Location :
The Legend Chiang Rai is located directly on the Mae Kok River North of Thailand, secluded from the city, yet within walking distance from the city centre. The immediate environment is relatively undeveloped providing a tranquil, natural location ideal for a river resort & spa. The property gives a panoramic view of the nearby hills and mountains of Chiang Rai. The riverside across is largely undeveloped and preserved with large rain trees and lush vegetation.

The Legend Chiang Rai | Chiang Mai / Chiang Rai Hotels | Thailand Hotel Reservations

---------------------------------------------------------------------------------------------------

Chiang Rai hotels & resorts guide to great hotel deals at best discounted wholesale rates and Chiang Mai package tours. Click here for alphabetical listing of Chiang Mai / Chiang Rai Hotels & Resorts.
Enjoy this special discount hotels rate with Chiang Rai Thailand Hotels Reservations.

Let you join E-biz travel; 24 hours Thailand accommodation online reservations The site provides information on thailand, a large choice of Thailand Hotels at discounted prices and special package tours. You can find hotels in major cities of thailand such as Bangkok Hotels, Chiang mai Hotels, Phuket Hotels and more.