db yolu... &lt;% set rsob=server. createobject sql=&quot; sql cümleni buraya yazacaksın &quot; rsob. open sql, db,1,3 sayfala = Request. QueryString if sayfala=&quot;&quot; then sayfala=1 end if if rsob. eof or lojik. bof then response. write &quot;hata son kayıtda geçti &quot; response. end end if rsob. pagesize = 10 'ekranda gösterilecek haber sayısı rsob. absolutepage = sayfala sayfa = rsob. pagecount for i=1 to rsob. pagesize if rsob. eof then exit for %&gt; kayıtlar yazılacak... &lt;% rsob. movenext next %&gt; sayfa numaraları: &lt;% For i=1 To sayfa If sayfala=i Then Response. Write i Else Response. Write &quot;&lt;b&gt; &lt;a href=index. asp?sayfala=&quot; &amp;i&amp; &quot;&gt;&quot; &amp;i&amp;&quot;&lt;/a&gt;&lt;/b&gt;&quot; End If Next %&gt;

Merhaba; Vt- itiraf scriptini indirdim ve kullanıyorum fakat yaşadığım bir problem var... Scriptin ana sayfasında veri tabanındaki itirafların hepsini listeriyor. Yani veritabanında 100 itiraf kayıtlı ise tümünü tek sayfada gösteriyor. Benim istediğim ana sayfada sadece 10 adet itirafın yayınlanması ve diğer 10 itiraf için ikinci sayfaya geçmesi. her 10 itiraf için sayfa atlaması. Default. asp sayfasındaki ilgili kodları aşağıda belirtiyorum.. &lt;% Dim StrComPage Dim StrComName Session = &quot;&quot; StrComPage = &quot;1&quot; StrComName = &quot; Gerekli olan başlık yazılacak&quot; If Request. QueryString = &quot;&quot; Then Strpage = CInt(&quot;1&quot; ) inumber = CInt(&quot;1&quot; ) Else Strpage = CInt(Request. QueryString End If Set ObjConfess = Createobject If IsNumeric(Request = False Then Session = &quot;Case900&quot; Response. Redirect &quot;itr_message. asp&quot; Response. End End If If Request = &quot;&quot; Then ObjConfess. Open &quot;Select From TblConfess Where TxtConfActivation=True Order by ConfessID Desc&quot; , ObjConn, 1, 3 Else ObjConfess. Open &quot;Select From TblConfess Where TxtConfActivation=True And MemberID=&quot; &amp; Request &amp;&quot; Order by ConfessID Desc&quot; , ObjConn, 1, 3 End If ObjConfess. pagesize = CInt(10) ObjConfess. absolutepage = StrPage pagenumber = ObjConfess. pagecount StrCountOfObjConfess = ObjConfess. RecordCount %&gt;

Ya ben beceremedim.. yada olmuyor ekte fefault. asp yi gönderiyorum bir bakarmıısn? Eğer ilgilenirsen beni sevinirim.