suddivisione in celle

[lelenet]

Buongiorno,

Ho una tabella con N righe e vorrei fare in modo che stampando i dati me li divida in una tabella con tre colonne, come posso fare??

grazie

[maximum]

<%
'inizializza le variabili
Cella = 1 

if not objrs.eof then
	Do until objrs.eof 
	
		If Cella = 1 Then 
			Response.Write "<tr>" 
		end if 
	
		Response.Write "<td width='120'> <div align='right' class='linkpiccoli'><font color='#454545'>" & objrs("Tuo_Valore") & "</font>"
	  	Response.Write "</div></td>" 
	
		Cella = Cella + 1 
		
		If Cella = 4 Then 
			Response.Write "</tr>" 
			cella = 1 
		end if 
		
		objrs.movenext
	Loop
end if
%>