OP Taze Üye
Teşekkür Sayısı: 0
2 mesaj
Kayıt Tarihi:Kayıt: May 2010
Aşağıda site içerisinde include ile kullandığım bir kod var. Bu kod sayesinde veritabanından istediğim kategoriden 4 tane veriyi listeleyebiliyorum. Ama benim istediğim şey her sayfada 4 tane veri olacak şekilde sayfalama yapmak. (Her 4 veriyi bir sayfa yapıp alta sayfa numaraları ekleyecek).Bunu yapabilcek var mı? Zor bir kodlama sanırım birkaç arkadaşa sordum yapamadılar. Acaba olmayacak birşey mi istiyorum? Yardımlarınız için teşekkürler.
- [ Tüm kodu seç ] [ Yeni Pencerede Göster ]
<% kdGenel.Open "SELECT haberID, baslik, ozet, kucuk_resim, durum, onay, tarih, kategori FROM tblHaberler WHERE Durum = "& strDBTrue &" AND kategori=7 ORDER BY Tarih DESC", adoCon, 1, 3 If Not kdGenel.Eof Then Response.Write " <table width=""330"" cellpadding=""0"" cellspacing=""0"" border=""0"" height=""579"" background=""images/haber.png"" style=""background-repeat: no-repeat;""> <tr> " intLooper = 1 Do While intLooper <= 4 AND Not kdGenel.Eof %> <td height="139" align="center"> <table border="0" width="93%" cellspacing="0" cellpadding="0" height="143"> <tr> <td style="padding: 22px 12px 4px 5px;" width="100" align="center"><img src="<%=ResimBul(kdGenel("kucuk_resim"))%>" border="0" height="90" width="100" onError="this.src='<%=strScriptYolu%>upload/resimler/haber/th_resimyok.gif';" /></td> <td align="left" style="padding: 12px 4px 0 4px;"> <p class="smOzetbaslik"><a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><%=Left(kdGenel("baslik"),50)%><% If Len(kdGenel("baslik")) > 50 Then Response.Write "..."%></a></p> <p class="smOzetmetin"><a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><%=Left(kdGenel("ozet"),100)%></a></p> <p class="smOzettarih"><a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>">devamı için tıklayınız.</a></p> <p class="smOzetx"><a href="<%=LinkVer("kategori", kdGenel("kategori"), "", KategoriBul(kdGenel("kategori")))%>"><%=KategoriBul(kdGenel("kategori"))%></a> | <%=tarihFormatla(kdGenel("tarih"), 1)%></p> </td> </tr> </table> </td> <% If intLooper Mod 1 = 0 AND intLooper <> 12 Then Response.Write " </tr> <tr> " intLooper = intLooper + 1 kdGenel.Movenext Loop Response.Write " </tr> </table> " End If kdGenel.Close %>