Veritabanındaki bilgileri almak için bir asp uzantılı dosyamızın olması gerekmektedir. Bu dosyada ilk önce veritabanımızın bağlantısını açıp, veritabanımızı açarak verileri isteyeceğiz. Bu verilerin çok olması durumunda 2. sayfaya ve diğer sayfalara bölmesini sağlayacağız. Bunun için bir asp uzantılı dosya oluşturalım. Dosyamızın adı veri.asp olsun.

veri.asp dosyasının içeriği:

<%
set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb")) 
Sorgu = "SELECT * FROM VeriTablosu"
set verial = server.createobject("ADODB.Recordset")
verial.open Sorgu,Baglanti,1,3

mesajadet = verial.recordcount 
sayfasayisi = 10

If verial.eof then
%>
Kayıtlı veri yok.
<%
Else

if request("s")<>"" then 
sayfa = cdbl(request("s")) 
verial.move sayfa*sayfasayisi 
else 
sayfa = 0 
end if 
for t=1 to sayfasayisi 
if verial.eof then exit for 
%>

Veri: <%=verial("mesaj")%><br>

<% 
verial.movenext 
next 

verial.close 
set verial=nothing 

Baglanti.CLOSE
SET Baglanti = NOTHING
%>

Sayfa : <%
if mesajadet/sayfasayisi = int(mesajadet/sayfasayisi) then sayfaadet = mesajadet/sayfasayisi else sayfaadet = int(mesajadet/sayfasayisi) +1 
for p=0 to sayfaadet-1 
if sayfa = p then 
%>
[<%=p+1%>] <% else %> <a href="/veri.asp?s=<%=p%>">[<%=p+1%>]</a> <% 
end if
next
end if
%>

Yukarıdaki gibi bir dosya hazırladığınızda verileri veritabanından aldırabilir ve verileri belli bir sayıdan sonra sayfalayabilirsiniz. Buradaki kodların açıklamasını yapayım ve siz daha iyi anlayın. İlk paragrafta veritabanı bağlantımızı açtık. İkinci paragrafta veritabanımızı açtık. Üçüncü paragrafta verileri sayfalamaya hazırladık. Burada belirtilen sayfasayisi = 10 yazan yerdeki rakamı isteğinize göre düzenleyebilirsiniz. Buradaki 10 rakamı verilerin kaç sayfada bir listelenmesini istiyorsanız bu onu göstermektedir. Dördüncü paragrafta eğer veritabanında kayıt yoksa sayfanız hata vermesin diye bir uyarı mesajı ekledik. Eğer veritabanınızda kayıt yoksa Kayıtlı veri yok. şeklinde bir uyarı alırsınız. Beşinci paragrafta verileri yazdırma ve sayfalama aşamasına geldik. Bir önceki paragrafta kayıtlı veri bulunmazsa bir uyarı mesajı verdirmiştik. Bu paragrafta ise kayıtlı bir veri varsa bunu ekrana yazdırıyoruz. Altıncı paragrafta verimizi ekrana yazdırıyoruz ve verilerin aşağı satıra doğru devam etmesi için <br> kodunu ekliyoruz. Yedinci paragrafta verilerimizi devam ettiren kodu yazıyoruz. Sekizinci paragrafta açtığımız veritabanımızı kapatıyoruz. Dokuzuncu paragrafta ise açtığımız veritabanı bağlantımızı kapatıyoruz. Son paragrafta ise sayfalama yapmak için kodu yazıyoruz.

Bu şekilde yaptığınızda veritabanından kayıtları site üzerinde bir sayfaya yazdırıp belli mesaj sayısından sonra verileri sayfalayabilirsiniz.