<% ftot = 0 For Each f1 in objFC ftot = ftot + 1 Next starthere = (pnum-1) * fpagina endhere = pnum * fpagina + 1 'response.write ftot&"
" 'response.write starthere&"
" 'response.write endhere&"
" %> <%For Each f1 in objFC if gfxSpex(f1.Path, w, h, c, strType) = true and nfoto > starthere and nfoto < endhere then %> <%If n = 0 then%> <%End If%> <%' response.write w & " x " & h & " " & c & " colors" ufoto = nfoto else response.write " " end if n = n + 1 nfoto = nfoto + 1 '-------------------------- inizio if n = nmax then n = 0 %> <% end If '-------------------------- fine Next %>
 
timket_1
timket_2
timket_3
timket_4
timket_5
timket_6
timket_7
timket_8
timket_9