Così:

codice:
Set cn=Server.CreateObject("ADODB.Connection")
cn.Open STRINGACONNESSIONE
Set rs=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT CODICE FROM TABELLA"
rs.Open strSQL,cn,0,1
arrdati=rs.getrows()
rs.close
set rs=nothing
cn.close
set cn=nothing
response.write "<table><tr><td>"
for conta=0 to ubound(arrdati,2)
   response.write arrdati(0,conta)
   if ((conta+1) mod 20)=0 then
      response.write "</td><td>"
   else
      response.write "
"
   end if
next
response.write "</td></tr></table>"
erase arrdati