Paginare 6 record in una riga e poi andare a capo

[fortitudo]

Ciao ragazzi,

ho bisogno di estrarre dei record da un db, visualizzandoli a righe da 6 record ciascuni.

record 1 - record 2 - record 3 - record 4 - record 5 - record 6
record 7 - record 8 - record 9 ecc.ecc.

La paginazione a colonna funziona...
ma invece di estrarmi solo 6 recor e andare a capo... me li estrae tutti su una riga...


questo il codice:

<%
Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")
%> 

<%
          contatore = 0

sSQL="SELECT * FROM annuncio WHERE tipoauto = 'USATA' order by ID DESC;"
objRS.Open sSQL, objConn, 3, 3
%>
<tr>


            
      <%if not objRS.eof then

contatore = 0
do until objRS.eof
contatore = contatore  +1
ID=objRS("ID")
%>

<td class="foto">
<a href="default.asp">
[img]<%=objRS([/img]" border="3"></a>
<div class="fotominitesto"><a href="default.asp">
<%=objRS("marcamodello")%></a>

€ <%=objRS("prezzo")%></div></td>
<td></td>
<%
if i = 6 then%>
</tr></font><tr><%
i = 0
end if
objRS.movenext
%>                        <%
   Loop
   objRS.close
Set rs=Nothing
%>
<%
end if
%>        
</table>

[br1]

il tuo contatore si chiama contatore, non i


if i = 6 then%>
</tr></font><tr><%
i = 0

[fortitudo]

ciao grazie della pronta risposta... :-)

ho modificato:


<%
if i = 6 then%>
</tr></font><tr><%
contatore = 0
end if
objRS.movenext
%> <%


ma non è cambiato nulla

[fortitudo]

<%
if contatore = 6 then%>
</tr></font><tr><%
contatore = 0
end if
objRS.movenext
%> <%


corretto grazie 1000 br1