help on how to display 10 results per pag

try to make a database to this ex. then U will see how it works

filname.asp
<%
intPage = Request("Site")
If isNumeric(intPage) = False Or intPage < 1 Then
   intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * from SITE ORDER BY id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<div><b>Site " & intPage & " Of " & intPageCount & "</b></div>"
    Do While Not rs.EOF And intRecCount > 0
%>
<table border="0" width="100%">
  <tr>
    <td width="50%"><% =rs("Name") %></td>
    <td width="50%"><% =rs("Age") %> Years</td>
  </tr>
</table>
<%
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p class=""mainbody"">Go to Site "
For intNum = 1 To intPageCount
    Response.Write "<b><a href=filname.asp?Site=" & intNum & ">" & intNum & "</a></b> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=filname.asp?Site=" & intPage - 1 & "><b>&#8592; Back</b></a> "
Else
    Response.Write ""
End If

Response.Write "&nbsp;"
If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=filname.asp?Site=" & intPage + 1 & "><b>Next &#8594;</b></a> "
Else
    Response.Write ""
End If
%>

The database

db.mdb
SITE

id = Au. and Pri. key
name = Text
age = Number

save it and make som names in it !!!!

then U are running !!!!