Hotel Manora -<%=getXMLValue("smjestaj")%>-<%=getXMLValue("title")%>

<%=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 %>