paginazione orizzontale

[djjunior]

Carissimi,
utilizzo questo script per paginare i dati dal db in orizzontale, però se imposto la tabella con 2 td me li impagina erroneamente, dove sbaglio?
Grazie
G.

<table width="14%" height="145" border="0" cellpadding="0" cellspacing="0">

<%
dim numRecord 
numRecord = 0 
While NOT Rs.EOF
If numRecord = 0 Then
Response.Write("<tr>")
End If
%>
<td height="134">
<p align="center">[img]images/<%=(Rs.Fields.Item([/img]" height="120"></p></td>
</tr>	
<tr>
<td height="10">
<p align="center"><%=(Rs.Fields.Item("comune").Value)%></td>
	
<%
If numRecord = 2 Then
Response.Write("</tr>")
numRecord = 0
Else
numRecord = numRecord + 1
End If
Rs.MoveNext
Wend
If numRecord = 1 Then
Response.Write("<td colspan=2></td></tr>")
Else If numRecord = 2 Then
Response.Write("<td></td></tr>")
End If
End If 
%>

</table>