Buongiorno,
avrei bisogno proprio di questo codice per impaginare una tabella estratta da una select in sql che conti non i records ma appunto le colonne. L'ho provato modificando la select ed il numero di colonne ma non estrae nulla.
Potreste darmi una mano per favore sono giorni che provo anche con altri codici!!! Ringrazio anticipatamente
Di seguito il mio codice:

<%MATR=Split(MATR,", ")%>
<%descr=Split(descr,", ")%>

<%
for i=0 to ubound(MATR)
for j=0 to ubound(descr)
Set RecSet = Server.CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM urs.factor_15bis where MATR='"&MATR(i)&"' and descr='"&descr(j)&"' "
RecSet.Open strsql, Conn2, 1


strrecord_totali = RecSet.RecordCount

' imposta il numero di colonne da visualizzare
strnumero_colonne = 4

' 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>" & RecSet("valore") & "</td>"
RecSet.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
%>
<td class="riga02_C"><%=RecSet("valore")%></td>
<%
RecSet.MoveNext
next

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

' pulizia
RecSet.Close
Set RecSet = Nothing
Conn2.Close
Set Conn2 = Nothing
%>

Salve,

ho provato il codice con una diversa connessione al DBase è funziona, credo che l?errore sia nel modo in cui estrai i dati dal tuo DBase. Nel tuo codice non vedo dove apri Conn2.

Saluti