En fazla yorum yazılan 5 haberi, yorum sayısına göre listeler. Yanında yorum sayısını da verir.

[CODE]<div class="kutu">
          <h3>EN ÇOK YORUMLANANLAR</h3>
          <ul><%
          SQL = "SELECT haber, COUNT(*) AS Yorum_Sayisi FROM tblYorumlar WHERE durum = True GROUP BY haber ORDER BY COUNT(*) DESC;"
          kdMenu.open SQL, adoCon, 1, 3
          If Not kdMenu.Eof Then
               intLooper = 1
               Do While intLooper < 6 AND NOT kdMenu.Eof
               SQL = "SELECT baslik, haberID, durum, onay FROM tblHaberler WHERE durum = True AND Onay = True AND haberID = "& kdMenu("haber")
               kdYardimci.Open SQL, adoCon, 1, 3
               If Not kdYardimci.Eof Then
                    Response.Write("<li><a href=""haber_oku.asp?haber="& kdMenu("haber") &""" title="""& kdYardimci("baslik") &""">"& Trim(kdYardimci("baslik")) &"</a> ("& kdMenu("Yorum_Sayisi") &")</li>")
                    intLooper = intLooper + 1
               End If
               kdYardimci.Close
               kdMenu.MoveNext
               Loop
          End If
          kdMenu.Close %>
          </div>[/CODE]

doronty372007-02-08 15:59:00

teşekkürler.

olması gereken bir blok, değil mi?