<%
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
%>