<% Dim conn,dosyayolu dosyayolu = Server.MapPath("ilahi.mdb" ) Set conn = Server.CreateObject("ADODB.Connection" ) conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & dosyayolu dim sayfa,aktifsayfa,islem If Request.QueryString("s" ) = "" Then sayfa = 1 Else sayfa = CInt(Request.QueryString("s" )) End If dim sql, rs Set rs = Server.CreateObject("ADODB.Recordset" ) sql = "SELECT * FROM ilahiler WHERE onay=true" rs.Open sql, conn, 1, 3 dim kayit_sayisi kayit_sayisi = CInt(10) rs.PageSize = kayit_sayisi If Not rs.Eof Then rs.AbsolutePage = sayfa %> <% toplam=Rs.Recordcount %> <% If not rs.Eof Then dim i For i = 1 To kayit_sayisi If rs.Eof Then Exit For %>

"><%=(rs("ilahi_ad" )) %>

<% rs.Movenext Next End If %>

<% If sayfa > 1 Then %> ?s=<% = sayfa - 1 %>" target="_self">« Geri <% End If %> <% If sayfa > 1 or NOT rs.Eof Then %> <% For aktifsayfa = 1 To rs.PageCount %> <% If aktifsayfa = sayfa Then %> <% = aktifsayfa %> <% Else %> ?s=<% = aktifsayfa %>" target="_self" class="defter" title="<% = aktifsayfa %>. Sayfayı Göster"> <% = aktifSayfa %> <%End If %> <%Next %> <%End If %> <% If not rs.Eof Then %> ?s=<% = sayfa + 1 %>" target="_self">İleri » <%End If %>