Prova così:

codice:
<%@ LANGUAGE = "VBScript"%>

<%
' IMPOSTO IL NUMERO DELLE COLONNE CHE POSSO VARIARE A PIACERE
Dim num
num="3"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("db.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT * from tabella ")

Response.Write "<html><body>"            
      
' SE CI SONO RECORD NEL DATABASE
          If Not objrs.EOF Then

         
' APRO LA TABELLA E IMPOSTO LA LARGHEZZA A 120 che è la larghezza della miniatura
' quindi la moltiplico per il numero delle colonne per ottenere la larghezza giusta
' in questo modo aumentando o diminuendo il num delle colonne la tabella si adatterà
' al nuovo numero di celle.

            Response.Write"<table border=1 width=120*num align=center>"
            numeroColonne = 0
            
' CONTO I RS FINO ALLA FINE
             Do Until objrs.EOF

         

            If numeroColonne Mod num = 0 Then
				
				If numeroColonne <> 0 Then Response.Write"</tr>"
				
	%>			

    <td>">" width="100" height="70" border="0" /></td>

<%


				Else
				%>
				
    <td>">" width="100" height="70" border="0" /></td>
<%				End If
				
' PASSO ALLA COLONNA SUCCESSIVA
				numeroColonne = numeroColonne + 1
               
' RS SUCCESSIVO
             objrs.MoveNext

            Loop
            
' CHIUDO LA TABELLA
            Response.Write"</tr></table>"
            
' CHIUDO IL RS
            objrs.Close
            Set objrs = Nothing
            
         
         Else 

 'SE NON CI SONO RECORD SCRIVE UN MESSAGGIO
            Response.Write"IL DATABASE NON CONTIENE RECORD!"
         
         End If

      Response.Write "</body></html>"
   
 'CHIUDO LA CONNESSIONE AL DATABASE
      objconn.Close
   Set objconn = Nothing

%>
Vedi se ti va bene