%@ 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 "
| " & "" & "Room Type" & "" & " | " Response.Write "" & "" & "Single" & "" & " | " Response.Write "" & "" & "Double" & "" & " | " Response.Write "" & "" & "Triple" & "" & " | " Response.Write "" & "" & "Extra Guest" & "" & " | " Response.Write"||||
|---|---|---|---|---|---|---|---|---|
| " & rsHotel("ROOMTYPENAME").Value & " | " if isnull(rsHotel("SINGLEAD").Value) then Response.Write "" & "N/A" & " | " else Response.Write "" & rsHotel("SINGLEAD").Value & " | " end if if isnull(rsHotel("DOUBLEAD").Value) then Response.Write "" & "N/A" & " | " else Response.Write "" & rsHotel("DOUBLEAD").Value & " | " end if if isnull(rsHotel("TripleAd").Value) then Response.Write "" & "N/A" & " | " else Response.Write "" & rsHotel("TRIPLEAD").Value & " | " end if if isnull(rsHotel("ExtraGuest").Value) then Response.Write "" & "N/A" & " | " else Response.Write "" & rsHotel("ExtraGuest").Value & " | " end if Response.Write "
"
End Function
Function BuildBookRoom(intHotelID)
strCookie = Request.Cookies("ebizaid")
BuildBookRoom = "
"
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
%>
Chiang-Rai-Thailand-Hotel-Reservations.com |

| The Village-style accommodation
paints a picturesque portrait of a peaceful and tranquil ambiance while
being located in the heart of the city of Chiangmai. The convenient location
is conducive to your need to jet around the city sightseeing the beauty
of Lanna culture. Standing on the historic Ratchadamnern Road, Tamarind
Village is already close to historic sites such as the Ta-Pae Gate, Wat
Umong and Wat Phan On. With the famous Chiangmai night bazaar, the airport
and train station are only minutes away - Airport 15 mins. - Train Station 10 mins. - Bus Terminal 10 mins. - Night Bazaar 10 mins. - Reverside Restaurant 15 mins. |