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