Ho trovato questo codice:

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ì:

codice:
1  |  2
3  |  4
5  |  6
cosa devo modificare, per ottenerli come spiegato su?