Ancora su paginazione orizzontale/verticale

[ivanhalen]

Salve,
Sfongliando qua e là su questo forum ho trovato questo codice:

<table>
<%
'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'>" & objrs("Dato_da_db") & "</td>" 
	
		Cella = Cella + 1 
		
		If Cella = 4 Then 
		   Response.Write "</tr>" 
		   Cella = 1 
		end if 
		
		objrs.movenext
	Loop
%>
</table>

Va benissimo, ma produce codice non corretto alla fine della tabella, dove, se i record non sono perfettamente multipli di 3, manca qualche <td></td> e il </tr> finale.

Cosa e dove devo aggiungere per ottenere per ottenere codice HTML corretto?
Grazie...

[kava01]

E' ovvio che dia risultati farlocchi se i record non sono multipli di 3, perchè nel codice hai previsto che lo siano sempre.

Vediamo di applicare qualche modifica...

Do until objrs.eof 
	
		If Cella = 1 Then 
			Response.Write "<tr>" 
		end if 
	             
                         dato = objrs("Dato_da_db")
                         if len(dato)<1 then dato="& nbsp;"

		Response.Write "<td width='120'>" & dato & "</td>" 
	
		Cella = Cella + 1 
		
		If (Cella = 4 or objrs.eof) Then 
		   Response.Write "</tr>" 
		   Cella = 1 
		end if 
		
		objrs.movenext
Loop

Prova cosi....

PS
Ho problemi con lo spazio...tu toglilo tra la & e nbsp;

[ivanhalen]

Kava01, grazie per la risposta!

Ho provato ad usare lo script suggerito da te, solo che lo script che uso io è una modifica di quello originario: non c'è un recordset, ed il valore da stampare a video è un po' più complesso del semplice valore del DB

Ecco il mio script:

<table width="100%" border="0" cellpadding="0" cellspacing="1" class="content">
<%
'inizializza le variabili
Cella = 1 
strDateStart = "10/06/2006"
strDateEnd = "10/10/2006"

	for d = CDate(strDateStart) to CDate(strDateEnd) step 7
	
		If Cella = 1 Then 
			Response.Write "<tr>" 
		end if

%>
                <td width="25%"><input name="PRI_WEEK" type="checkbox" value="<%= d %>" /><%= d %></td>
				<%	
		Cella = Cella + 1 
		
		If Cella = 5 Then 
		   Response.Write "</tr>" 
		   Cella = 1 
		end if 
		
	next
%>
</table>

Il ciclo "for... next" mi crea problemi nell'utilizzare lo script suggerito da te... questo come devo modificarlo, affinchè funzioni?
Grazie ancora!