Determining a vistor's country or location

Nice Page Number Navigation for Recordsets

by johna | October 3, 2007 | Classic ASP Web Development

The following script creates links to navigate through your database table recordset.

It is a solution to displaying navigation links where the number of pages may be quite large and there may not be enough room to display all page numbers.

Sometimes it can be frustrating for users if there is only a previous and next link but they want to get to a page half way through of 50 pages.

It creates links to the surrounding pages as well as the first or last page, as well as previous and next links.

A few examples:

1 2 3 4 5 6 7 8 9 10 11 ... 100 Next

Previous 1 ... 6 7 8 9 10 11 12 13 14 15 16 ... 100 Next

Previous 1 ... 90 91 92 93 94 95 96 97 98 99 100

The following variables and objects are used and may need to be changed for your application.

'lngPage' is the current page number and this is passed in the URL parameter 'page'.
'rsTable' is the recordset.
'page.asp' should be changed to the correct script name and any additional parameters added to the querystring.

If lngPage > 1 Then Response.Write("<a href=""page.asp?page=" & (lngPage - 1) & """>Previous</a> ")
If lngPage > 5 Then
	lngStart = lngPage - 5
	If lngPage < rsTable.PageCount - 5 Then
		lngEnd = lngPage + 5
	Else
		lngEnd = rsTable.PageCount
	End If
	If lngEnd - lngStart < 11 And lngStart > 1 Then
		lngStart = lngEnd - 10
		If lngStart < 1 Then lngStart = 1
	End If
Else
	lngStart = 1
	If lngPage < rsTable.PageCount - 5 Then
		lngEnd = lngPage + 5
	Else
		lngEnd = rsTable.PageCount
	End If
	If lngEnd - lngStart < 11 And lngEnd <> rsTable.PageCount Then
		lngEnd = lngStart + 10
		If lngEnd > rsTable.PageCount Then lngEnd = rsTable.PageCount
	End If
End If
If lngStart > 1 Then
	Response.Write("<a href=""page.asp?page=1"">1</a> ")
	If lngStart > 2 Then Response.Write("... ")
End If
For lngCounter = lngStart To lngEnd
	If lngCounter = lngPage Then
		Response.Write(lngCounter & " ")
	Else
		Response.Write("<a href=""page.asp?page=" & lngCounter & """>" & lngCounter & "</a> ")
	End if
Next
If lngEnd < rsTable.PageCount Then
	If lngEnd < rsTable.PageCount - 1 Then Response.Write("... ")
	Response.Write("<a href=""page.asp?page=" & rsTable.PageCount & """>" & rsTable.PageCount & "</a> ")
End If
If lngPage < rsTable.PageCount Then Response.Write("<a href=""page.asp?page=" & (lngPage + 1) & """>Next</a> ")

Show Sample

Web Development Retro Computing

Converting dBase IV programs to run in the browser

by johna | September 13, 2024

Some pointless entertainment trying to get some old dBase programs running in the browser.

Web Development

How to set up a debugging using the Turnkey Linux LAMP stack and VS Code

by johna | December 19, 2023

The second part in my guide to setting up a website and database using the Turnkey Linux LAMP stack.

Website Hosting Web Development

How to set up a website and database using the Turnkey Linux LAMP stack

by johna | November 18, 2023

If you need to host your own website for the purposes of web development, Turnkey Linux LAMP Stack is an easy to install all-in-one solution that you can set up on a spare computer or a VM (Virtual Machine).

Comments

There are no comments yet. Be the first to leave a comment!

Nice Page Number Navigation for Recordsets

Related Posts

Converting dBase IV programs to run in the browser

How to set up a debugging using the Turnkey Linux LAMP stack and VS Code

How to set up a website and database using the Turnkey Linux LAMP stack

Comments

About

Subscribe