<%
Set rs1 = baglanti.ExeCute("Select * From products group by p_hit desc limit 0,2")
While Not rs1.Eof
Set rs2 = baglanti.ExeCute("Select * From products where p_marka='"&rs1("p_marka")&"' order by by p_hit desc limit 0,20")
While Not rs2.Eof
%>
gösterim alanı
<%
rs2.MoveNext
Wend
rs1.MoveNext
Wend
rs2.Close()
Set rs2 = Nothing
rs1.Close()
Set rs1 = Nothing
%>

Yukarda yaptığımız;
İlk recordset ile sütunu gruplayıp hiti yüksek olan 2 değeri çıkartmak.
ikinci recordset ile de çıkarmış olduğumuz bu iki değere eşit olan değerlerden 20 tane sayfaya yansıtmak.