Bu kat.nin en popülerleri
<% fldID = Request.QueryString("fldID") Set tRes = Vt.Execute("tblResimler Where fldKatID Like '"&fldID&"' Order By fldHit DESC") If tRes.EOF Then Response.Write "Kayıtlı resim yok.." Else For M = 1 To Katpopuler If tRes.EOF Then Exit For Resim=tRes("fldResim") Set Kat = Vt.Execute("tblKategori Where fldID Like '"&tRes("fldKatID")&"'") KatAdi = Kat("fldAdi") Kat.Close : Set Kat = NoThing %> <% tRes.MoveNext Next End If tRes.Close : Set tRes = NoThing %>