<% On Error Resume Next %> <% 'Connect to the included MS Access database Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("new-test.mdb") & ";" Set rs = Server.CreateObject("ADODB.Recordset") 'Set how many records per page we want Const NumPerPage = 15 'Retrieve what page we're currently on val= Request.QueryString("page") If IsNumeric(val) then If Request.QueryString("page") = "" then CurrentPage = 1 'We're on the first page Else CurrentPage = CInt(Request.QueryString("page")) End If Else Response.Write("

Invalid Page Number

") End If 'Open our recordset (Access database) strSQL="SELECT headline FROM news ORDER BY number DESC" 'strSQL = "SELECT * FROM news ORDER BY headline" rs.Open strSQL, conn, 1, 1 'Opened as Read-Only If Not rs.EOF Then rs.MoveFirst rs.PageSize = NumPerPage TotalPages = rs.PageCount 'Set the absolute (current) page rs.AbsolutePage = CurrentPage End If Dim Count %>

Displaying page <%=CurrentPage%> of <%=TotalPages%>:

<% 'Display PREV page link, if appropriate If Not CurrentPage = 1 Then Response.Write "Prev | " Else Response.Write "Prev | " End If 'Page numbers for counter=1 to TotalPages If counter=CurrentPage Then Response.Write counter & "  " Else Response.Write "" & counter & "  " End If next 'Display NEXT page link, if appropriate If Not CurrentPage = TotalPages Then Response.Write "| Next" Else Response.Write "Next" End If %>

<% 'Loop to display data on current page. Do While Not rs.EOF and Count < rs.PageSize Response.Write rs("headline")' & "
" rs.MoveNext Count = Count + 1 Loop %>

<% 'Display PREV page link, if appropriate If Not CurrentPage = 1 Then Response.Write "Prev | " Else Response.Write "Prev | " End If 'Page numbers for counter=1 to TotalPages If counter=CurrentPage Then Response.Write counter & "  " Else Response.Write "" & counter & "  " End If next 'Display NEXT page link, if appropriate If Not CurrentPage = TotalPages Then Response.Write "| Next" Else Response.Write "Next" End If %>