Paginazione semplice in due colonne

[Dr AsP]

Ciao

come si fa per paginare dei records pesi da un database in due colonne, così:

1   |  5
2   |  6
3   |  7
4   |  8

[Dr AsP]

Ho trovato questo codice:

<%
Dim objConn, objRS, strSQL

Set objConn =Server.CreateObject("ADODB.Connection")
objConn.Open strConn

strSQL = "SELECT * FROM tabella"

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strsql, objConn, 1
strrecord_totali = objRS.RecordCount

' imposta il numero di colonne da visualizzare
  strnumero_colonne = 5

' il resto
strresto = (strrecord_totali mod strnumero_colonne)

' i record totali meno il resto divisi per le colonne
strrecord_parziali = ((strrecord_totali - strresto) / strnumero_colonne )

Response.Write "<table border='1' align='center'>"

for n = 1 to strrecord_parziali
  Response.Write "<tr>"

  ' stampa i record nelle colonne
  for m =1 to strnumero_colonne
    Response.Write "<td>" & objRS("collezione") & "</td>"
    objRS.MoveNext
  next

  Response.Write "</tr>"
next

Response.Write "</table>"

' controlla se esiste il resto
if strresto <> "0" then
  Response.Write "<table border='1' align='center'><tr>"

  for f = 1 to strresto
    Response.Write "<td>"&objRS("collezione")&"</td>"
    objRS.MoveNext
  next

  Response.Write "</tr></table>"
end if

' pulizia
objRS.Close
Set objRS = Nothing

objConn.Close
  Set objConn = Nothing

%>

E' tutto corretto, però, mostra i risultati così:

1  |  2
3  |  4
5  |  6

cosa devo modificare, per ottenerli come spiegato su?

[Dr AsP]

Possibile che non mi sappiate aiutare?

[saltodifondi]

bhe, tieni, forse non sarà il massimo

set rs = objconn.execute("select * from tab")

set n_rec = objconn.execute("select count(*) from tab")
n_elementi = n_rec(0)
n_colonne = 2
indice = cint(n_elementi / n_colonne) + 1 
x = 0
response.Write("<table border=0><tr>")
for i = 1 to n_colonne
		response.Write("<td valign=top><table border=1>")
		for j = 1 to indice
				if not rs.eof then
					response.Write("<tr><td valign=top>"&rs("campo2")&"</td></tr>")
					x = x+1
					rs.movenext
				end if
		next
		response.Write("</td></table>")
next
response.Write("</tr></table>")

"indice" è un fattore che ho fatto calcolare automaticamente. sarebbe il numero di righe arrotondato per eccesso. serve quando vuoi incolonnare ad esempio un recordset ri 33 elementi su 5 colonne. INDICE si fissa ad 8, e compone una griglia 8+8+8+8+8+1, ma puoi anche impostare INDICE manualmente a 7, ad esempio così da avere una griglia 7+7+7+7+5

bha...vabhè io c'ho provato