arkadaşlar aşağıdaki yazar bloğu kodunda son yazı yazan 10 yazarı göstermek istiyorum.Çok denedim ama sonuca varamadım.
siz yardımcı olurmusunuz ?

<div id="sayac">
         <h3>KÖŞE YAZARLARI</h3>

<%

Set rs = Server.CreateObject("Adodb.Recordset")
rs.Fields.Append "Haber_ID", 3
rs.Fields.Append "Baslik", 200, 255
rs.Fields.Append "Yazar", 200, 255
rs.Fields.Append "Resim", 200, 255
rs.Fields.Append "Tarih", 7
rs.Open
kdMenu.Open "SELECT UyeID, Ad, Resim FROM tblUyeler ", adoCon, 1, 3
If Not kdMenu.Eof Then
   Do While Not kdMenu.Eof
      SQL = "SELECT"
      If strVtTuru <> "mySQL" Then SQL = SQL & " TOP 1"
      SQL = SQL & " haberID, baslik, tarih, editor FROM tblHaberler WHERE kategori = "& intKoseYazilari &" AND editor = "& kdMenu("UyeID") &" AND Durum = "& strDBTrue &" AND onay = "& strDBTrue &" ORDER BY tarih DESC"
      If strVtTuru = "mySQL" Then SQL = SQL & " LIMIT 1"
      kdYardimci.Open SQL, adoCon, 1, 3
      If Not kdYardimci.Eof AND IsNull(kdMenu("Ad")) = False Then
         With rs
            .Addnew
            .Fields("Haber_ID") = kdYardimci("haberID")
            .Fields("Baslik") = kdYardimci("baslik")
            .Fields("Yazar") = kdMenu("Ad")
            .Fields("Resim") = kdMenu("Resim")
            .Fields("Tarih") = kdYardimci("tarih")
            .Update
         End With
      End If
      kdYardimci.Close
   kdMenu.Movenext
   Loop
End If
kdMenu.Close
rs.Sort = "Tarih DESC"
If Not rs.Eof Then
   Do While Not rs.Eof %>
      <table width="100%" cellpadding="0" cellspacing="1" class="yazar-tablo">
      <tr>
         <td class="yazar-ad"><%=rs("Yazar")%></td>
         <td rowspan="2" class="yazar-avatar"><img src="<%=strScriptYolu%>resimler/yazar/<%=rs("Resim")%>" width="52" height="65" alt="<%=rs("Yazar")%>" onError="this.src='<%=strScriptYolu%>resimler/yazar/resim_yok.gif';" /></td></tr>
      <tr>
         <td class="yazar-baslik"><a target=_self href="<%=LinkVer("yazar", rs("Haber_ID"), rs("baslik"), rs("Yazar"))%>" class="makale_baslik"><%=rs("Baslik")%></a></td>
         </tr>
      </table><%
      rs.Movenext
   Loop
End If
rs.Close
%>
</div>