01.<%
02.Dim Conn,strSQL,objRec
03.Set Conn = Server.Createobject("ADODB.Connection")
04.Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
05.strSQL = "SELECT * FROM customer "
06.Set objRec = Server.CreateObject("ADODB.Recordset")
07.objRec.Open strSQL, Conn, 1,3
08.
09.If objRec.EOF Then
10.Response.write (" Not found record.")
11.Else
12.
13.Dim PageLen,PageNo,TotalRecord,TotalPage,No,intID
14.PageLen = 2
15.PageNo = Request.QueryString("Page")
16.if PageNo = "" Then PageNo = 1
17.TotalRecord = objRec.RecordCount
18.objRec.PageSize = PageLen
19.TotalPage = objRec.PageCount
20.objRec.AbsolutePage = PageNo
21.%>
