Paginazione in colonne

[rosbon]

Salve, il mio problema è modificare questo script:

<div align="center">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="300">
<%counter=0%>
<%
Dim sql, rs
sql = "select * from marca order by marca asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, Conn, 1, 3
num = rs.recordCount
if (num mod 2) <> 0 then num = Round(num/2)+ 1 else num = (num/2)
%>							
<tr>
<td align="left" width="140" valign="top">
<%
do While Not rs.EOF
if counter<=num then 
counter=counter+1 	
%>								
<%=rs("marca")%>

<%else%>
</td>
<% counter= 0 %>
<td width="20" align="center"></td>
<td align="left" width="140" valign="top">
<%=rs("marca")%>

<% end if
rs.movenext
loop
%>          
</td></tr>
<%
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing	
%>	
</table></div>

Con questo script impagino su due colonne i dati forniti dal Db Access.
Poichè mi serve tirare fuori tre/quattro colonne, non riesco a modificarlo.
Cosa si può fare??
Grazie per le risposte.

[rosbon]

Nessuna idea?? :master:

[Roby_72]

if (num mod 4) <> 0 then num = Round(num/4)+ 1 else num = (num/4)

La prima...

Roby

[rosbon]

Già. Grazie Roby.
Una domanda, Perchè 4 e non 3 ??