Conta fino e 10 e vai all pagina successiva

[freizer]

Il titolo del 3D è in pratica la rappresentazione di ciò per cui chiedo il vostro aiuto.

In sostanza si parla di paginazione solo che:

Ho questo codice che mi visualizza i dati in tre colonne e a seconda di quanti record ho in banca dati, mi crea di volta in volta la riga nella tabella di visualizzazione:

<%
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/db.mdb")
	Set Rs = Server.CreateObject("ADODB.Recordset")
	strsql = "SELECT * FROM fornitori ORDER BY id"
	Rs.open strsql, Conn
	if not rs.eof then
		%>
		<table width="100%" border="0">
			<%
			while not rs.eof
				i = i + 1
				if i mod 3 = 1 then response.write "<tr>"
				response.write "<td class=""corpo"" height=""25""><a href=""fornitore.asp?id=" & rs("id") & """>" & rs("societa") & "</td>"
				if i mod 3 = 0 then response.write "</tr>"
				rs.movenext
			wend
			if i mod 3 = 1 then response.write "<td></td><td></td></tr>"
			if i mod 3 = 2 then response.write "<td></td></tr>"
			%>
		</table>
		<%
	else
		response.write "<p class=""corpo"">nessun Fornitore in archivio</p>"
	end if
	rs.close
%>

Ora a questa tabella (che funziona bene) vorrei aggiungere un nuovo pezzo di codice:

"conta fino a 10 righe e poi passa alla pagina successiva"
in pratica se le righe sono più di 10 deve uscirmi in basso la navigazione tra pagine "1 - 2 - 3 - ecc"

Quacuno può aiutarmi?

[optime]

stiamo parlando di paginazione? nel forum trovi miliardi di esempi

[Mems]

Ci sono parecchi esempi nel forum.
Cerca "paginazione" oppure "rs.absolutePage" oppure "rs.pageSize".

[freizer]

Non solo paginazione, ma anche il codice per far creare 10 righe e poi inserire la paginazione.

altrimenti mi viene fuori una pagina infinita

[Mems]

Negli esempi c'è tutto. Come mettere N record per pagina.