yan yana sıralama son veri hatası

<table width="98%" cellspacing="0" cellpadding="0">
<tr>
<td>
<% Set kd = Server.CreateObject("ADODB.RecordSet")
kd.Open "SELECT TOP 8 * FROM tblhaberler ORDER BY puan/oy_sayisi DESC, haberID ASC",adoCon, 1, 3 %><table cellpadding="0" cellspacing="0" width="100%">
<tr>
<% for i = 1 to kd.recordcount %>
<td align="center" class="s7"><img src="<%=kd("Resim")%>"></td>
<%If i mod 4 = 0 Then
Response.Write "</tr><tr>"
End If
kd.movenext
next
kd.Close %>

</tr>
</table>
</td>
</tr>
</table>

yukardaki kodu kullanarak verileri yan yana 4 erli olarak 2 sıra halinde yayınlıyorum benim sorum bu döngü 8 in katı olduğunda sorunsuz çalışıor fakat 8 in katı olmadığında mesela 6 veri olduğunda döngünün sonunda hata veriyor bu hatayı nasıl önlerim veya başka bi kod varmı bununla ilgili ?

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

merhaba,


ilginize çok teşekkür ederim

verdiğiniz kodu şu şekilde uyguladım

<%

While not kd.Eof

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

fakat şunu yanlış belirtmişim baştaki sql sorgusu yok bu benim karikatür sayfamın anasayfası ve 1000 küsür içeriğim var normalde bunu şu kodla 1 sayfada gösterilen veri sayısı alıyodum

kd.PageSize = 12

sonra

T_Kayit = kd.PageCount
If G_Kayit > T_Kayit Then G_Kayit = T_Kayit
If G_Kayit < 1 Then G_Kayit = 1
If T_Kayit <> 0 Then kd.AbsolutePage = G_Kayit End If

bunlarlada sayfa sayısını hesaplayıp verileri 12 şerli olarak 130 küsür sayfada sıralıyodum. fakat dedğim gibi 12 nin katı olmadığı durumda son sayfa hata veriyodu.

sizin verdiğiniz kodu uyguladığımda tüm verileri gösteriyor

Sayfalatma kodlarınızı verdiğim örneğe uygulayın. SQL sorgusunu v.b ayarlayın.

valla biliyorum çok ağrıttım başınızı ama 2 gündür uğraşıyorum çözemedim olayı çokda asp bilgim yok delirecem

    '// Bir sayfada gösterilecek kayıt sayısı alınıyor
   kd.PageSize = 12
   '// Şuanda bulunulan sayfa bulunuyor
   If Temizle(Request.QueryString("SF")) = "" Then
    G_Kayit = 1
   Else
    G_Kayit = CInt(Temizle(Request.QueryString("SF")))
   End If
   '// Toplam sayfa sayısı hesaplanıyor
   T_Kayit = kd.PageCount
   If G_Kayit > T_Kayit Then G_Kayit = T_Kayit
   If G_Kayit < 1 Then G_Kayit = 1
   If T_Kayit <> 0 Then kd.AbsolutePage = G_Kayit End If
 
 
'// veriler gösteriliyor %>
 
<table width="100%" cellspacing="0" cellpadding="0">
                   <tr>
                    <% for i = 1 to kd.PageSize %>
                    <td>
                    <table width="100%" cellpadding="0" cellspacing="0">
                     <tr>
                      <td>
                      <img src="<%=kd("Resim")%>">
                      </td>
                     </tr>
                     </table>
                    </td>
                    <%If i mod 4 = 0 Then
Response.Write "</tr><tr>"
End If
kd.movenext
next
kd.Close
 
 
 
   '// Sayfalama başlıyor %>
 
 
 
<div>
                   <a href="_s1.html">&lt;&lt;</a>
                   <%
    For intSayfaSayisi = 1 To T_Kayit
     '// Sayaç geçerli sayfada ise sadece yazı yazılıyor
if abs(intSayfasayisi-G_Kayit)<6 then
     If intSayfaSayisi = G_Kayit Then %><b><%=intSayfaSayisi%>.</b>
                   <%
     '// Sayaç geçerli sayfada değilse o sayfaya link veriliyor
     Else %> <a href="s<%=intSayfaSayisi%>.html"><%=intSayfaSayisi%>.</a>
                   <%
     End If
end if
    Next %><a href="s<%=t_kayit%>.html">&gt;&gt;</a>
                   <%    
  End If
%>
                  </div>

kodların tamamı bu nereye nasıl uyguluyacağımı bilemedim

Arkadaşım konuya yazılanları okumadım (okuyacak vaktim yok kusura bakma).. Kişisel sitemde yan yana istediğin kadar sıralama hakkında kendi kullandığım bir örnek kod yayınladım.. Bir bak mutlaka işine yarayacaktır..

İlgili konuya buradan ulaşabilirsin..
yorum yazarsanda sevinirim. İşine yararsa

dostum yardımına çok teşekkür ederim dediğin kodda çalışıyor fakat işte sayfalama sistemimi altına koyduğumda hata veriyor.

Sayfalama sistemi şu

<%

For intSayfaSayisi = 1 To kd.PageSize
'// Sayaç geçerli sayfada ise sadece yazı yazılıyor
if abs(intSayfasayisi-G_Kayit)<6 then
If intSayfaSayisi = G_Kayit Then %><b><%=intSayfaSayisi%>.</b>

<%

'// Sayaç geçerli sayfada değilse o sayfaya link veriliyor
Else %>

<a href="<%=intSayfaSayisi%>.html"><%=intSayfaSayisi% >.</a>

<%
End If
end if
%><%
End If
%>

son eklediğim end if de hata veriyor kaldırdımmıda Expected 'Next' hatası veriyor.

Hem sayfalama hem de yan yana sıralma yapıyorsun..
Ben bi yapmaya çalışayım..

Arkadaşım sanırım tam istediğin bu olsa gerek..

Hem sıralama yapıyor hem de sayfalama..
Yatay olarak kaç sütun sıralayacağını ve Bir sayfada kaç kayıt göstereceğini db den değiştirebilirsin..

Önizleme İçin Buraya Tıklayabilirsin..

Bu adrestende indirebilirsin..

RAR ŞİFRESİ: RizeliGenc89.com
(kendi siteme de koyucam hazır yapmışken o yüzden şifreledim..