Paginazione Risultati

[cavicchiandrea]

Sostituisci questo blocco di codice:

<%
'mostra record
rs.MoveNext
end if
Next
End if
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%> 

con questo:

<%
'mostra record
rs.MoveNext
end if
Next
End if

Response.Write "

[B]Pagine:[/B]"

For pag= 1 to rs.PageCount
if Cint(page) = pag then

Response.Write "[b]"
Response.Write "<A href='?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Response.Write "[/b]"
else
Response.Write "<A href='?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
end if
Next
Response.Write "</P>"
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>