<%@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, Restaurant Manora, Nerezine, Mali Lošinj
HOTEL RESTAURANT
MANORA
NEREZINE MALI LOŠINJ
CROATIA
Book now Powered by Booking.com


Kroatien Urlaub

<%=getXMLValue("drugi_o_nama")%>

<% Dim iPageSize Dim rs Set rs = Server.CreateObject("ADODB.Recordset") iPageSize = 6 rs.CacheSize = iPageSize rs.CursorLocation = 3 sSQL = "select * from tblReview order by reviewID DESC" Set rs = GetRecordset(sSQL) rs.PageSize = iPageSize if not rs.eof then If Len(Request("pagenum")) = 0 Then currPage = 1 Else If CInt(Request("pagenum")) <= rs.PageCount Then currPage = Request("pagenum") Else currPage = rs.PageCount End If End If rs.AbsolutePage = currPage Dim abspage, pagecnt abspage = rs.AbsolutePage pagecnt = rs.PageCount end if For i = 1 To iPageSize If rs.EOF Then Exit For %>

<%= rs("title") %>
<%= rs("description") %>

<% rs.moveNext next Set rs = nothing %>
<% limit = iPageSize if absPage > 1 then Response.Write "<< " & getXMLValue("previous") & "    " end if minPage = 1 maxPage = abspage-1 + limit if maxPage > pagecnt then maxPage = pagecnt if abspage - limit > 1 then minPage = abspage - limit for i = minPage to maxPage if i=abspage then response.Write("" & i & "") & " " else Response.Write "" & i & " " end if next If abspage < pagecnt Then Response.Write "   " & getXMLValue("next") & " >>" end if %>