% @Language=VBScript %> <% Option Explicit %> <% ' ! --#include virtual="/include/hotel_rating1.asa"--> %> <% Dim thisHotel_id thisHotel_id = 100 %>
<%
'*** Show Rate Table
Dim Rate
Set Rate = Server.CreateObject("EHORate.Hotel_rating1")
' Rate.Rate_title_ = (default)
' Rate.ExtraBed_title_ = (default)
' Rate.ExtraBed_enable_ = False ' Default = True
' Rate.Rate_description_ = (default)
' Rate.RoomType_Title_ = (default)
Dim Rate_title_Html
Rate.Rate_title = Rate_title_Html
Rate.ExtraBed_title = "Extra bed"
Rate.Rate_description = ""
Rate.Show_Rate(thisHotel_id)
Set Rate = Nothing
%>
<%
'**** Show Include Rate
Dim Include
Set Include = Server.CreateObject("EHORate.Include_rating1")
Include.Show_Include(thisHotel_id)
Set Include = Nothing
%>
|
|
|
|
|
|
| Resort’s swimming pool with front view of Tropical Villa PLUS. The Villa PLUS has bedroom/living room, dressing area, bathroom, and patio with total area about 56 sq. meters/villa. |