%@ 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
%>
Golden China Hotel |
| Taipei
and Taiwan Hotels
online reservation, offers 24-hour online reservations service for Kaohsiung,
Taichung, Taipei. We welcome the opportunity
to provide you with discount rates at all major hotels in Taiwan. You
may check room availability and rates, and optionally make your Taipei
hotel reservations online. Our system will help you to fine the best Taiwan discount hotels. There is a great selection from when to choose Taiwan Travel. Your source to travel Thailand, E-Biz Travel provides information on Thailand, Thailand travel guides for Bangkok hotels, Pattaya hotels, Phuket hotels, Koh Samui hotels and more hotels in Thailand. |