Problema ciclo while

[generationweb.i]

Salve a tutti avrei l'esigenza di fare quanto segue:

Ho questa query che mi cicla un <li> per ogni record

<ul class="product-grid">
<%StrSql="SELECT idprodotto, titolo, azienda, prezzo, prezzo, folder_prd, foto FROM tbl_prodotti WHERE categoria='"&categoria&"' ORDER BY idprodotto DESC"

RS.Open StrSql, CN, 1
IF NOT RS.EOF THEN
DO While NOT RS.EOF
%>                    
<li> 
<div class="pro-img">
<a href="dettagli-prodotto.asp?idprodotto=<%=RS.FIelds("idprodotto")%>" title="<%=RS.FIelds("titolo")%>">
<img title="<%=RS.FIelds("titolo")%>" alt="<%=RS.FIelds("titolo")%>"
src="public/<%=RS.FIelds("folder_prd")%>/<%=RS.FIelds("foto")%>" /></a>
</div>                        
</li>
<%
RS.MoveNext 
LOOP
ELSE%>
<h5>Nessun articolo trovato per la sottocategoria<b><%=sottocategoria%></b></h5>
<%
end if
RS.Close%>                                  
</ul> 

Mi servirebbe che una volta arrivato al 3 record mi stampasse di nuovo <ul class="product-grid"> e farlo per ogni tre record.In teoria devono esserci tre record per riga quindi 3 <ul> contenti i relativi <li> (record)

Help me please

[generationweb.i]

Risolto!
<%
StrSql="SELECT * FROM tbl_prodotti WHERE usato='SI' ORDER BY idprodotto DESC"
RS.Open StrSql, CN, 1
IF NOT RS.EOF THEN
DO While NOT RS.EOF
I=I+1
%>
<% IF I=4 THEN %>
</ul>
<ul class="product-grid">
<%
END IF
%>