01.<% Option Explicit %>
02.<html>
03.<head>
04.<title>ThaiCreate.Com ASP & Microsoft Access Tutorial</title>
05.</head>
06.<body>
07.<%
08.Dim Conn,strSQL,objRec
09.Set Conn = Server.Createobject("ADODB.Connection")
10.Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
11.strSQL = "SELECT * FROM customer "
12.Set objRec = Server.CreateObject("ADODB.Recordset")
13.objRec.Open strSQL, Conn, 1,3
14.
15.If objRec.EOF Then
16.Response.write (" Not found record.")
17.Else
18.
19.Dim PageLen,PageNo,TotalRecord,TotalPage,No,intID
20.PageLen = 2
21.PageNo = Request.QueryString("Page")
22.if PageNo = "" Then PageNo = 1
23.TotalRecord = objRec.RecordCount
24.objRec.PageSize = PageLen
25.TotalPage = objRec.PageCount
26.objRec.AbsolutePage = PageNo
27.%>
28.<table width="600" border="1">
29.<tr>
30.<th width="91"> <div align="center">CustomerID </div></th>
31.<th width="98"> <div align="center">Name </div></th>
32.<th width="198"> <div align="center">Email </div></th>
33.<th width="97"> <div align="center">CountryCode </div></th>
34.<th width="59"> <div align="center">Budget </div></th>
35.<th width="71"> <div align="center">Used </div></th>
36.</tr>
37.<%
38.No=1
39.Do While Not objRec.EOF and No <= PageLen
40.%>
41.<tr>
42.<td><div align="center"><%=objRec.Fields("CustomerID").Value%></div></td>
43.<td><%=objRec.Fields("Name").Value%></td>
44.<td><%=objRec.Fields("Email").Value%></td>
45.<td><div align="center"><%=objRec.Fields("CountryCode").Value%></div></td>
46.<td align="right"><%=objRec.Fields("Budget").Value%></td>
47.<td align="right"><%=objRec.Fields("Used").Value%></td>
48.</tr>
49.<%
50.No = No + 1
51.objRec.MoveNext
52.Loop
53.%>
54.</table>
55.Total : <%=TotalRecord%> Page <%=PageNo%> All Page <%=TotalPage%>
56.<% IF Cint(PageNo) > 1 then %>
57.<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=1"><< First</a>
58.<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo-1%>">< Back</a>
59.<% End IF%>
60.<% IF Cint(PageNo) < TotalPage Then %>
61.<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo+1%>">Next ></a>
62.<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=TotalPage%>">Last >></a>
63.<% End IF%>
64.<br>
65.Go to
66.<% For intID = 1 To TotalPage%>
67.<% if intID = Cint(PageNo) Then%>
68.<b><%=intID%></b>
69.<%Else%>
70.<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=intID%>"><%=intID%></a>
71.<%End IF%>
72.<%Next%>
73.<%
74.End IF
75.objRec.Close()
76.Conn.Close()
77.Set objRec = Nothing
78.Set Conn = Nothing
79.%>
80.</body>
81.</html>
