ho fatto un po di ricerche e trovato varie soluzioni vi posto una di esse che pero' unita al mio codice postato sopra mi da errore mi dite dove sbaglio?
grazie


codice di paginazione



<% Dim DBConn
Set DBConn=Server.CreateObject("ADODB.Connection")
DBConn.Open "download"
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1
strSQL = "SELECT * FROM download"
objRS.open strSQL, DBConn, 1
objRS.PageSize = RecordsPerPagina
objRS.AbsolutePage = page
If objRS.Eof=True or objRS.Bof=True then
Response.Write "

Nessun risultato trovato</P>"
Else
Response.Write ("<center><table border=1><tr>
<th>Nome Prodotto</th><th>Tipo Prodotto</th>
<th>Colore</th></tr>")
For i=1 to RecordsPerPagina
if Not objRS.EOF then
Response.Write("<tr><td>“ & objRS("cod") & "</td>")
Response.Write("<td>" & objRS("nome") & "</td>")
Response.Write("<td>" & objRS("file") & "</td>")
Response.Write("<td>" & objRS("descrizione") & "</td>")
Response.Write("<td>" & objRS("hit") & "</td>")
Response.Write("<td>" & objRS("autore") & "</td>")
Response.Write("<td>" & objRS("immagine") & "</td>")
Response.Write("<td>" & objRS("dimensione") & "</td></tr>")



objRS.MoveNext
end if
Next
Response.Write ("</table></center>")
End if
Response.Write "

Pagine: "
For pag=1 to objRS.PageCount
Response.Write "<A href= 'Paginazione.asp? page=" & pag & "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"
objRS.Close
Set objRS=Nothing
DBConn.Close
Set DBConn=Nothing
%>