Kod:
<%
'Şirketleri listeliyoruz
set rst = server.CreateObject("ADODB.RecordSet")
rst.open "select * from site where durum='1' order by sponsor desc" , conn , 1,3
'şirket listesini döngü ile sıralayalım
Do While not Rst.Eof
'Şiket Adını yazdıralım
Response.write rst("site") &"<br />"
set rs = server.CreateObject("ADODB.RecordSet")
rs.open "select Top 1 * from urun where siteid='"&rst("site")&"' order by urun desc" , conn , 1,3
'Eğer ürün var ise ürün adını yazdıralım
if not rs.eof then
response.write rs("urunadi") &"<br />"
end if
'Döngüyü devam ettirelim
rst.movenext
loop
%>
Bu şekilde düzenlerseniz olması gerekir.