Recordset in una tabella

Questo script inserirÓ i dati che arrivano da un recordset in una tabella:

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