Database imizin dosyalarımızla aynı klasörde olduğunu, adının uyeler.mdb olduğunu ve tablo adımızın "uyeler" olduğunu kabul ediyoruz,
<%
' klasik db bağlantımızı yapıyoruz...
Set conn=Server.CreateObject("adodb.connection" )
dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
dsnpath = dsnpath & "DBQ=" & Server.MapPath("uyeler.mdb" )
conn.Open dsnpath
' hangi sayfanın açılacağını alıyoruz..
syf=request("syf" )
' eğer syf değişkeni boş gelmişse 1 . sayfadan başla, doluysa onu her ihtimale karşı sayısal bir tipe dönüştürüyoruz.
If syf="" Then syf=1 Else syf=Int(syf) End If
maxkayit=20 ' max sayfada 20 kayıt görünsün dedik..
sql="select count(*) from uyeler;" ' tablodaki toplam kayıt sayısını alıyoruz..
Set getir=conn.Execute(sql)
toplamkayit=getir(0) ' toplam kayıt sayısını aldık
toplamsayfa=Int(toplamkayit/maxkayit) ' toplam sayfayı buluyoruz..
' toplam sayfayı bulduk ama küsüratı varmı diye baıyoruz mod burada bölümden kalanı bulur.
If toplamkayit mod maxkayit = 0 Then
Else
toplamsayfa=toplamsayfa+1
End If
'her ihtimale karşı syf sayısı toplamsayfa dan büyük gelirse diye önlem alıyoruz.. başka önlemlerde alınabilir.
If syf > toplamsayfa Then syf=toplamsayfa End If
%>
<%
ilkkayit=(syf*maxkayit)-maxkayit ' ilk kaydı belirliyoruz..
' limit i kullanabilmemiz için iki değere ihtiyacımız var birincisi başlangıç kaydı ikincisi ise ondan sonra kaç kayıt okunacağıdır.
sql="select * from uyeler limit " &ilkkayit&"," &maxkayit ' uyelerden kayıtları limit yardımıyla çağırıyoruz..
Set getir=conn.Execute(sql)
If getir.Eof Then
Else
Do While not getir.Eof ' döngü kurduk ve listeliyoruz..
adsoyad=getir("adsoyad" )
Response.Write adsoyad & "<br>"
getir.Movenext ' bir sonraki kayıt..
Loop ' döngü devam ediyor..
End If
%>
<br><br>
<%
For a= 1 To toplamsayfa ' diğer sayfalara da erişebilmek için sayfa numaralarını sayfaya bastırıyoruz..
If a=syf Then
Response.Write a & " "
Else
%>
<a href="uyeler.asp?syf=<%=a %>"><%=a %></a>
<%
End If
Next
%>