Anasayfa KODLAR ASP KODLAR
ASP KODLAR Sayfalama Kodu

Eklenme Tarihi: 26.02.2026 Dosya Boyutu: 0 KB İndirilme Sayısı: 46
Açıklama ve Bilgiler
<%
Sayfa = Request.QueryString("s")
If Sayfa = "" Or Not IsNumeric(Sayfa) Then Sayfa = 1

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM Yazilar ORDER BY ID DESC", conn, 1, 3
rs.PageSize = 10 ' Her sayfada 10 kayıt
rs.AbsolutePage = Sayfa

For i = 1 To rs.PageSize
If rs.EOF Then Exit For
Response.Write rs("Baslik") & "
"
rs.MoveNext
Next
%>