Problema con lo Split su più colonne

[djkoma]

Ciao a tutti,
ho un piccolissimo problema.

Ho usato questo codice (gentilmente offerto da un utente del forum) per splittare una serie di dati in colonna su più colonne. Lo script in se per sè funziona benissimo, non fa quello che in effetti serve a me.

<%
'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'><ul class='ulm'>[*]" & objrs("famiglia") & " "
	  	Response.Write "[/list]</td>" 
	
		Cella = Cella + 1 
		
		If Cella = 4 Then 
			Response.Write "</tr>" 
			cella = 1 
		end if 
		
		objrs.movenext
	Loop
end if
%>

In effetti mi crea tre <TD> ogni linea, invece a me serve una struttura di tabella a 1 Riga <TR> e a 3 colonne <TD>.
Dentro ogni colonna devo creare una lista <UL> con i dati pescati da un DB. Quindi in ogni TD il ciclo deve girare solo sul tag <LI>.

Spero di essere stato chiaro e aspetto un vostro prezioso aiuto.
Grazie