<%@LANGUAGE="VBscript"%> <% select case Request("task") case "hr": Session("Language") = "hr" case "en": Session("Language") = "en" case "de": Session("Language") = "de" case "it": Session("Language") = "it" case else if Session("Language") = "" then Session("Language") = "en" end select Call OpenDBConnection %> Hotel Manora -<%=getXMLValue("smjestaj")%>-<%=getXMLValue("title")%>
HOTEL RESTAURANT
MANORA
NEREZINE MALI LOŠINJ
CROATIA
Book now Powered by Booking.com


Kroatien Urlaub

<%=getXMLValue("sobe_i_cijene")%>

<% set rsNaslovnica = connDB.execute("select doplate_" & session("Language") & " from tblHotelManora") Response.Write(rsNaslovnica("doplate_" & session("Language"))) sSQL = "SELECT * FROM Apartments where active=true and uSklopuHotela=true ORDER BY ApartmentName" ' & sSortOrder & ";" Set rsObjekti = GetRecordset(sSQL) do while not rsObjekti.EOF %>
<% sSQL = "SELECT * FROM Images WHERE ApartmentID=" & Clng(rsObjekti("ApartmentID")) & " ORDER BY ImageName" Set rsImages = GetRecordset(sSQL) If Not rsImages.EOF then rsImages.MoveFirst if rsImages("ImagePath") <> "" then%> '">" width="170" height="118" /> <%else%> <%End if else %> <% End if %> <% sSQL = "SELECT * FROM Type Where TypeID =" & Clng(rsObjekti("TypeID")) & ";" Set rsDetails = GetRecordset(sSQL) rsDetails.MoveFirst sSQL = "SELECT * FROM Category Where CategoryID =" & Clng(rsObjekti("CategoryID")) & ";" Set rsDetails1 = GetRecordset(sSQL) rsDetails.MoveFirst %>
<%=GetMsg(rsDetails("TypeName"))%> <%=rsObjekti.Fields("ApartmentName")%> (<%=rsDetails1("CategoryName")%>) <% sSQL = "SELECT Stars FROM Apartments Where ApartmentID =" & Clng(rsObjekti("ApartmentID")) & ";" Set rsDetails = GetRecordset(sSQL) rsDetails.MoveFirst %> <% for o=1 to rsDetails("Stars") Response.Write("*") next %> <% sSQL = "SELECT * FROM Locations Where LocationID =" & Clng(rsObjekti("LocationID")) & ";" Set rsDetails = GetRecordset(sSQL) rsDetails.MoveFirst %> - <%=rsDetails("LocationName")%>
<%=GetMsg("Capacity")%>: <%=rsDetails1("Rooms")%> / <%=rsDetails1("PersonNum")%>
<% sSQL = "SELECT min(AccHotelCjenik.Cijena) as Cijena FROM AccHotelCjenik WHERE AccHotelCjenik.ApartmentID = " & rsObjekti("ApartmentID") & ";" Set rsDetails = GetRecordset(sSQL) rsDetails.MoveFirst %> <%=GetMsg("PriceFrom")%>:  <%=rsDetails("Cijena")%> €

" onclick="document.location='acc_details.asp?appID=<%= rsObjekti("ApartmentID") %>'"/> " onClick="document.location='reservations.asp?appID=<%= rsObjekti("ApartmentID") %>'"/>

<% rsObjekti.MoveNext() loop %>