<% set conn=server.createobject("adodb.connection") dsnpath="DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)};" dsnpath=dsnpath & "DBQ=" & Server.mappath("db/dbziyaret.mdb") conn.open dsnpath 'SQL cümlemizi oluşturalım. sql="SELECT * FROM tblziyaret;" 'Bir sayfada bulunması gereken Kayıt sayısını belirleyelim. Sayfalanacak_Kayit = 10 'Alacağımız Sayfaları belirleyelim? Varsayılan değer 1 If Request.QueryString("Sayfa") = "" Then Gosterilen_kayit = 1 Else Gosterilen_kayit = CInt(Request.QueryString("Sayfa")) End If 'Kayıt Dizimizi oluşturalım ve her sayfa için kaç kayıt alacağımızı belirtelim. Set rs=server.createobject("adodb.recordset") rs.pagesize = Sayfalanacak_Kayit 'Kayıt Dizimizi Açalım. rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText 'Tüm veriler kaç sayfada görüntülenebilir? Toplam_Kayit = rs.PageCount 'Veri çekme işleminde hata denetimleri If Gosterilen_kayit > Toplam_Kayit Then Gosterilen_kayit = Toplam_Kayit If Gosterilen_kayit < 1 Then Gosterilen_kayit = 1 If Toplam_Kayit = 0 Then Response.Write "Kayıt bulunamadı!" Else 'İstenilen sayfaya gidelim. rs.AbsolutePage = Gosterilen_kayit 'Toplam Sayfa Sayısı ve Gösterilen Sayfanın Numarası. %>

TA4BU MESUT PARGANIN ZIYARETCI DEFTERININ OKUMA BOLUMUNE HOSGELDINIZ
Toplam: <%= Toplam_Kayit %> Sayfa. Şu anda gösterilen: <%= Gosterilen_kayit %>
<%Kayit_Sayac = 0 Do While Kayit_Sayac < Sayfalanacak_Kayit And Not rs.EOF%> <% Kayit_Sayac = Kayit_Sayac + 1 rs.MoveNext Loop %> Adınız-Soyadınız:<%=rs("ad")%>  <%=rs("soyad")%> E-mail:<%=rs("email")%> CAGRI Kodunuz:<%=rs("cagri")%> Söylemek Istedikleriniz:<%=rs("gorus")%>

<% End If 'Kayıt Dizisini ve Veri Tabanı Bağlantılarını Kapatalım. rs.Close Set rs = Nothing conn.Close Set conn = Nothing 'Linkleri Oluşturalım. If Gosterilen_kayit <> 1 Then %> Önceki Kayıtlar      <% End If If Gosterilen_kayit < Toplam_Kayit Then %> Sonraki Kayıtlar <% End If %>