<%@LANGUAGE="VBSCRIPT"%> <% 'la pagina deve essere chiamata con una querystring dove si definiscono la categoria (IdCateg) e la foto da cui far partire la visualizzazione (start) set categoria = Server.CreateObject("ADODB.Recordset") categoria.ActiveConnection = MM_conn_STRING categoria.Source = "SELECT * FROM categ ORDER BY Categoria ASC" categoria.CursorType = 0 categoria.CursorLocation = 2 categoria.LockType = 3 categoria.Open() categoria_numRows = 0 %> <% Dim foto__VarIdCat foto__VarIdCat = "-1" if (request("IdCateg") <> "") then foto__VarIdCat = request("IdCateg") %> <% set foto = Server.CreateObject("ADODB.Recordset") foto.ActiveConnection = MM_conn_STRING foto.Source = "SELECT * FROM fotopercateg WHERE IdCat = " + Replace(foto__VarIdCat, "'", "''") + "" foto.CursorType = 0 foto.CursorLocation = 2 foto.LockType = 3 foto.Open() foto_numRows = 0 %> <% 'costruisco i vettori con url e titoli dim immagini(5) dim didascalie(5) dim idimg(5) for i = 0 to 5 immagini(i)="" didascalie(i)="" idimg(i)="" next categ = cint(request("IdCateg")) istart = cint(request.querystring("start")) if (istart = 0) then foto.movefirst() else Do Until foto("IdFoto") = session("IdUltima") foto.MoveNext() Loop indietro = true end if ii = 0 WHILE (NOT foto.EOF and ii<6) 'and i>iend) 'response.redirect("fammevede.asp?lavariabile=" & "passato") immagini(ii)=(foto.Fields.Item("gifurlsmall").Value) didascalie(ii)=(foto.Fields.Item("name").Value) idimg(ii)=(foto.Fields.Item("IdFoto").Value) 'response.redirect("fammevede.asp?lavariabile=" & "passato") ii = ii+1 foto.movenext() Wend 'response.redirect("fammevede.asp?lavariabile=" & immagini(0)) if (foto.EOF) then finite = true else session("Idultima") = foto.Fields.Item("IdFoto").Value end if 'response.redirect("fammevede.asp?lavariabile=" & iend) %> Untitled Document <% if immagini(0) <> "" then %> <% end if %> <% if immagini(1) <> "" then %> <% end if %> <% if immagini(2) <> "" then %> <% end if %> <% if immagini(3) <> "" then %> <% end if %> <% if immagini(4) <> "" then %> <% end if %> <% if immagini(5) <> "" then %> <% end if %>

Wählen Sie ein Bild aus.
<%=didascalie(0)%>
<%=didascalie(1)%>
<%=didascalie(2)%>
<%=didascalie(3)%>
<%=didascalie(4)%>
<%=didascalie(5)%>

<%if (indietro) then istart = istart - 6 %>

Vorhergehende Seite <%end if %>

<%if NOT finite then istart = istart + 6 %> Nächste Seite <%end if %>
Camping PARCO del LAGO
Schade daran vorbei zu gehen

Lungolago di Polline 75 - 00061 Anguillara Sabazia - Lago di Bracciano - Roma
telefono 06.99.80.2003 - fax 06.99.80.2000 - tel./fax invernale 06.68.30.77.70
<% categoria.Close() %> <% foto.Close() %>