Eğer tüm kayıtları bir sayfada göstermek istersen yapacağın tek şey:
SQL sorgusu

<%
'Connectionunu önceden yazdığını varsayalım


Set rs = Server.CreateObject("Adodb.Recordset")
SQL="SELECT * FROM tabloadi "
rs.Open SQL,Dbconnectionun,1


Do While Not rs.Eof

'Buradada göstereceğin bilgiler

rs.Movenext
Loop

%>

EĞER tüm verileri bir sayfada değilde 50şer 50şer yada daha fazla - daha az olarak sayfalara bölmek istersen

<%
'Yine Connectionunu önceden yazdığını varsayalım

Set rs = Server.CreateObject("Adodb.Recordset")
SQL="SELECT * FROM tabloadi "
rs.Open SQL,Dbconnection,1

On Error Resume Next
page = CInt(Request("page"))
	If (page ="" or page = 0) Then page = 1 Else page=page
	rs.pageSize= 50 ' sayfada kaç veri olacaksa
	rs.absolutePage=page

Do While Not rs.Eof and i<rs.pagesize
	i=i+1


'Burada göstereceğin bilgiler

rs.Movenext
Loop


'Sonra sayfalama kodları

If page = 1 Then
Response.Write " "
Else
a = page -1
Response.Write "<a  href=?page=" & a & qstring &"><<  Önceki    </a> "
End If

	If page + 5 > rs.pagecount Then
	b = rs.pagecount
	Else
	b = page + 5
	End If
	
If page < 5 Then
c = 1
Else
c = page - 5
End If
	
	For j = c To b

If j = page Then
Response.Write "[<b>" & j & "</b>]  "
Else
Response.Write "<a href=?page=" & j & qstring &">" & j & "</a>  "
End If
Next

	If page = rs.pagecount Then
	Response.Write " "
	Else
	a = page + 1
	Response.Write "<a href=?page=" & a & qstring &">    Sonraki >></a> "
	End If

rs.close
set rs = Nothing
%>

%>