<table width="100%" border="0">
  <tr>
<%
Set kd = Server.CreateObject("ADODB.RecordSet")
kd.Open "SELECT TOP 8 * FROM tblhaberler ORDER BY puan/oy_sayisi DESC, haberID ASC",adoCon, 1, 3

While not kd.Eof

	i = i + 1
%>
    <td><img src="<%=kd("Resim")%>"></td>
<%
If i mod 4 = 0 Then Response.Write("<tr></tr>")

kd.Movenext
Wend

kd.Close
%>
  </tr>
</table>