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

<% 
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
' MyDesign Haber 
' http://www.mydesign.gen.tr 
' Yazarlar Bloğu Kodları 
' Son Düzenleme: 23 Mart 2008 (v0.5.2) 
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Dim say
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" 
say = 0 
If Not rs.Eof Then 
   Do While Not rs.Eof 
   say = say + 1 
   If say > 25 Then Exit Do 
   %>

   <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>