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