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...