データベースのクエリ結果をページ内に表示するには？

<%.
if Request.QueryString("PageNumber").count > 0 then <未定義

' ページ番号を指定するためのパラメータ PageNumberです。 ページ番号を指定した場合 , は指定されたページ番号に基づく .

PageNumber = Request.QueryString("PageNumber")(1)
さもなければ
ページ番号 = 1

' ページ番号の指定がない場合 , デフォルトは 1.
終了する場合
RecordNumberPerPage = 10

' <スパン ページごとの表示 <スパン 10 <スパン 記録 .
<スパン セット ARecordSet = Server.CreateObject("ADODB.RecordSet")
ARecordSet.open "select * from contact1",AConnection,1
' クエリを実行する , 備考 <スパン 開く ステートメントで指定された第3パラメータ .
ARecordSet.PageSize = RecordNumberPerPage。

' 1ページあたりのレコード数を指定する .
ARecordSet.AbsolutePage = PageNumber

' 現在のページ番号を指定する .
Response.Write "<br> 各ページには "&ARecordSet.PageSize&"。 記録 "
Response.Write "<br> 合計 "&ARecordSet.PageCount&"。 ページ "
Response.Write "<br> これは、最初の "&PageNumber&"。 ページ "
Response.Write "<Table border=1>"
' クエリ結果を表形式で表示する .
Response.Write "<tr>"
For FieldNo = 0 to ARecordSet.Fields.count - 1
Response.Write "<td>"&ARecordSet( FieldNo ).Name&"</td>"
次へ
Response.Write "</tr>"
' <スパン フィールド名を表示する .
レコードカウンタ = 0
Do while not ARecordSet.eof
レコードカウンタ = レコードカウンタ + 1
' <スパン クエリを表示する .
if RecordCounter > RecordNumberPerPage then

' 表示するレコード数が1ページあたりのレコード数より多い場合 , を表示した後、表示を停止します。 .
終了する
エンド if
<スパン Response.Write "<tr>"
For FieldNo = 0 to ARecordSet.Fields.count - 1
Response.Write "<td>"&ARecordSet( FieldNo )&"</td>"
次のページ
Response.Write "</tr>"

' <スパン レコードを表示する .
<スパン ARecordSet.MoveNext
ループ
' 次のレコードに移動する .
Response.Write "</Table>"
if PageNumber > 1 then

' 最初のページでない場合 , をクリックすると、前のページを表示します。 .
Response.Write "<p><A href = chunfeng.asp?PageNumber="&(PageNumber-1)&">[ ]。 <スパン 前のページ <スパン ]</a>"

[1] [2] 次のページ