<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db#.mdb")

Set rs = server.CreateObject("adodb.recordset")
rs.open "Select * from TABLE",baglanti,1,3

if rs.eof or rs.bof then
response.Write "Henüz Bir içerik Yok"
else
pg = Request("pg")
if pg="" then
pg="1"
end if
rs.pagesize = "10" 'Hersayfada kaç kayıt gösterileceği
rs.absolutepage = pg
sayfa = rs.pagecount
if rs.eof then exit for
%>

<%=rs("Veri")%>

<% rs.movenext
Next
rs.close
%>
<b>Sayfalar :</b>
<%
for y=1 to sayfa
if CINT(TRIM(pg))=CINT(TRIM) then%>
<b><%response.write "" & y %></b><%
else
response.write " <a href=""?pg="&y&""">" & y & "</a> "
end if
Next
End if
%>