<%@LANGUAGE="VBSCRIPT"%> Su Bistentu: Agriturismo Sud Sardegna - Iglesias <% response.expires = -1500 response.AddHeader "PRAGMA", "NO-CACHE" response.CacheControl = "PRIVATE" page = Cint(request.querystring("page")) if page = 0 then page = Cint(request.querystring("pagecategoria")) end if if page = 0 then page = trim(Request.Form("page")) if page <> "" then page = CInt(page) else page = 0 end if end if if page = 0 then page = 1 end if pageSize = 12 inizio = (page - 1) * pageSize dim co set co = server.createObject("ADODB.Connection") co.Open "Driver={MySQL ODBC 3.51 Driver};server=62.149.150.46;port=3306;Database=Sql88051_4;UID=Sql88051;PWD=fece9fec" dim rs set rs = server.createObject("ADODB.Recordset") strq = "select * from albumfotocategorie order by titolo_ita LIMIT "& inizio &", "& pageSize rs.Open strq,co,2,3 dim rs2 set rs2 = server.createObject("ADODB.Recordset") strq2 = "select count(*) as totrec from albumfotocategorie" rs2.Open strq2,co,2,3 totrec = Cint(rs2(0)) pagine_totali = totrec / pageSize if pagine_totali - CInt(pagine_totali) > 0 then pagine_totali = CInt(pagine_totali) + 1 else pagine_totali = CInt(pagine_totali) end if if page < pagine_totali then numerorecordvisibili = 12 numerorecordpagine = 12 else numerorecordvisibili = (totrec - ((pagine_totali - 1) * 12)) numerorecordpagine = (totrec - ((pagine_totali - 1) * 12)) end if numerorecordvisibili2 = numerorecordvisibili %>
     
home chi siamo tariffario link news
dove siamo l'ospitalità ambiente contatti area riservata

Album foto
<% if pagine_totali > 1 then %> <% end if %>
      <% if page > 1 then Response.write("Prec" & " - ") end if if pagine_totali < 11 then for x = 1 to pagine_totali if x = page then if page = pagine_totali then Response.write("" & x & "") else Response.write("" & x & " - ") end if else Response.write("" & x & "" & " - ") end if next else if page < 6 then for x = 1 to 10 if x = page then if page = pagine_totali then Response.write("" & x & "") else Response.write("" & x & " - ") end if else Response.write("" & x & "" & " - ") end if next else if pagine_totali - page > 4 then for x = (page - 4) to (page + 5) if x = page then if page = pagine_totali then Response.write("" & x & "") else Response.write("" & x & " - ") end if else Response.write("" & x & "" & " - ") end if next else for x = (page - (4 + (5 - (pagine_totali - page)))) to (page + (pagine_totali - page)) if x = page then if page = pagine_totali then Response.write("" & x & "") else Response.write("" & x & " - ") end if else Response.write("" & x & "" & " - ") end if next end if end if end if if totrec > pageSize and pagine_totali > page then Response.write("Succ") end if %>
<% if totrec > 0 then rs.movefirst while not rs.eof numerorecordvisibili = numerorecordvisibili - 1 %> <% if numerorecordvisibili > 0 then rs.movenext numerorecordvisibili = numerorecordvisibili - 1 %> <% end if if numerorecordvisibili > 0 then rs.movenext numerorecordvisibili = numerorecordvisibili - 1 %> <% end if if numerorecordvisibili > 0 then rs.movenext numerorecordvisibili = numerorecordvisibili - 1 %> <% end if %>
<% if rs("foto") <> "" then Response.Write("") else Response.Write("") end if %>
<% Response.Write("" & rs("titolo_ita") & "") %>
<% if rs("foto") <> "" then Response.Write("") else Response.Write("") end if %>
<% Response.Write("" & rs("titolo_ita") & "") %>
<% if rs("foto") <> "" then Response.Write("") else Response.Write("") end if %>
<% Response.Write("" & rs("titolo_ita") & "") %>
<% if rs("foto") <> "" then Response.Write("") else Response.Write("") end if %>
<% Response.Write("" & rs("titolo_ita") & "") %>
<% rs.movenext wend else %>


 Nessuna fotografia in archivio.
<% end if %> <% if ((pagine_totali > 1) and (numerorecordvisibili2 > 4)) then %> <% end if %>
      <% if page > 1 then Response.write("Prec" & " - ") end if if pagine_totali < 11 then for x = 1 to pagine_totali if x = page then if page = pagine_totali then Response.write("" & x & "") else Response.write("" & x & " - ") end if else Response.write("" & x & "" & " - ") end if next else if page < 6 then for x = 1 to 10 if x = page then if page = pagine_totali then Response.write("" & x & "") else Response.write("" & x & " - ") end if else Response.write("" & x & "" & " - ") end if next else if pagine_totali - page > 4 then for x = (page - 4) to (page + 5) if x = page then if page = pagine_totali then Response.write("" & x & "") else Response.write("" & x & " - ") end if else Response.write("" & x & "" & " - ") end if next else for x = (page - (4 + (5 - (pagine_totali - page)))) to (page + (pagine_totali - page)) if x = page then if page = pagine_totali then Response.write("" & x & "") else Response.write("" & x & " - ") end if else Response.write("" & x & "" & " - ") end if next end if end if end if if totrec > pageSize and pagine_totali > page then Response.write("Succ") end if %>