<%j=0
if cint(paginaabsoluta) <> 1 then
atras=cint(paginaabsoluta)-1
response.write ""&" "&" | "
j=j+1
end if
for i = 1 to rs.pagecount
j=j+1
if j>20 then
response.write ""
j=1
end if
if cint(i) = cint(paginaabsoluta) then
response.write "| "&i&" | "
else
response.write ""&i&" | "
end if
next %>
<%if cint(paginaabsoluta) <> rs.pagecount then
atras=cint(paginaabsoluta)+1
response.write ""&" "&" | "
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
|
