%@ Language=VBScript %>
<%
Option Explicit
On Error Resume Next
Dim Rs,Cn,strSQL
Dim pagesize:pagesize=10
Dim pagenum:pagenum=1
Dim page,i
Set Cn=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.Recordset")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WDB\todoroki.mdb"
strSQL="SELECT * FROM columnTBL ORDER BY id DESC"
Rs.PageSize=pagesize
Rs.Open strSQL,Cn,1,3
If Request.QueryString("page")<>"" And IsNumeric(Request.QueryString("page")) Then pagenum=Request.QueryString("page")
%>