How do I page out the results of a database query? _ Programming 10000 Q

<%
If Request.QueryString ("PageNumber"). Count > 0 Then

' Specifies the parameter pagenumber of the page number . If the page number is specified , the specified page number is the basis .

PageNumber = Request.QueryString ("PageNumber") (1)
Else
PageNumber = 1

no page number specified Span lang= "en-US" >, defaults to 1.
End If

Recordnumberperpage = ten

' every page shows Span lang= "en-US" >10 record
 set arecordset = Server.CreateObject ("ADODB. RecordSet ")
Arecordset.open" SELECT * from Contact1 ", aconnection,1
" Execute query , note open
Arecordset.pagesize = recordnumberperpage

' specifies the number of record bars per page .
Arecordset.absolutepage = pagenumber

'Specify the current page number.

Response.Write "<br>Each page has"&ARecordSet.PageSize&"Records"
Response.Write "<br>Total"&ARecordSet.PageCount&"Page"
Response.Write "<br> This is " &PageNumber& " Span Times New Roman '; Mso-hansi-font-family: ' Times Roman ' "> page
Response.Write" <table border=1> "
" Span Times New Roman '; Mso-hansi-font-family: ' Times Roman ' "The query results are displayed in tabular form
Response.Write "<tr>"
for fieldno = 0 to Arecordset.fields.count-1
Response.Write "<td>" & Arecordset (Fieldno). name& "</td>"
Next
Response.Write "</tr>"
' display field name
Recordcounter = 0
Do While not arecordset.eof
Recordcounter = recordcounter + 1
' show query
If Recordcounter > recordnumberperpage then

' if the number of records to display is greater than the number of records per page , stop the display .
Exit do
End If

Response.Write "<tr>"
For fieldno = 0 to Arecordset.fields.count-1
Response.Write "<td>" &arecordset (fieldno) & "</td>"
Next
Response.Write "</tr>"

' displays a record .

Arecordset.movenext
Loop
' turn to the next record .

Response.Write "</Table>"

If pagenumber > 1 Then

' if it is not the first page, the previous page is prompted .
Response.Write "<p><a href = chunfeng.asp?" Pagenumber= "& (PageNumber-1) &" >[prev ]</a> "

[1] [2] Next page