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

[fraude]

Un array multidimensionale?

[lufo5]

<%


if not objrs.eof then
	Do until objrs.eof 
	
		
		Response.Write "<tr>"
		for x = 1 to 3
			Response.Write "<td width='120'><ul class='ulm'>[*]"
			If Not objrs.Eof Then
				Response.Write "" & objrs("famiglia") & "
				objrs.movenext
			Else
				response.write ""
			end if
			Response.Write "[/list]</td>" 
		next
		
		
		Response.Write "</tr>" 
		
	Loop
end if
%>

[djkoma]

Scusami, ma con questo script mi vengono creati cmq 3 <TD> per ogni linea.

la mia struttura deve essere così

<tr>
  <td>
    <ul>[*]ASP[*]ASP[*]ASP[/list]
  </td>
  <td>
    <ul>[*]ASP[*]ASP[*]ASP[/list]
  </td>
  <td>
    <ul>[*]ASP[*]ASP[*]ASP[/list]
  </td>
</tr>

Grazie cmq per l'aiuto

[lufo5]

era una cosa complicatissima spostare i tag fuori dal ciclo?

<%


if not objrs.eof then
	Do until objrs.eof 
	
		
		Response.Write "<tr><td width='120'>"
		Response.Write "<td width='120'><ul class='ulm'>"
		for x = 1 to 3
			
			If Not objrs.Eof Then
				Response.Write "[*]" & objrs("famiglia") & ""
				objrs.movenext
			Else
				response.write ""
			end if
			 
		next
		
		Response.Write "[/list]</td>"
		Response.Write "</tr>" 
		
	Loop
end if
%>

[djkoma]

si ma adesso i dati me li mette tutti di seguito e non splittati su tre colonne.

[lufo5]

<%
Response.Write "<tr>"
	Do until objrs.eof 
	
		
		
		Response.Write "<td width='120'><ul class='ulm'>"
		for x = 1 to 3
			
			If Not objrs.Eof Then
				Response.Write "[*]" & objrs("famiglia") & ""
				objrs.movenext
			Else
				response.write " "
			end if
			 
		next
		
		Response.Write "[/list]</td>"

		
	Loop
Response.Write "</tr>" 
%>

[djkoma]

E' LEI.....GRAZIE LUFO SEI UNO SPETTACOLO :-)