.GetRows() paging...

Function PagingLinks(ByVal strArrName, ByVal strNumPerPage, ByVal strPageURL, ByVal strDivToLoad, ByVal strFirst, ByVal strPrev, ByVal strNext, ByVal strLast, ByRef iStart, ByRef iStop)
	PagingLinks = ""
	iStart = request.querystring("s")
	iOffset = request.querystring("o")
	if Not validNumber(iStart) then
		iStart = 0
	else
		iStart = CLng(iStart)
	end if
	if Not validNumber(iOffset) then
		iOffset = strNumPerPage
	else
		iOffset = CLng(iOffset)
	end if
	if UBound(strArrName, 2) < strNumPerPage then
		iRows = (ubound(strArrName, 2) + 1)
	else
		iRows = ubound(strArrName, 2)
	end if
	If iRows > (iOffset + iStart) Then
		iStop = iOffset + iStart - 1
	Else
		iStop = iRows
	End If
	if iStop > iRows - iOffset then
		iStop = iStop - 1
	end if
	If Not(validNumber(iOffset)) Then iOffset = 1
	pages = RoundUp(iRows / iOffset)
	pgNum = RoundUp(iStart / iOffset) + 1
	PagingLinks = PagingLinks & "<a href=""#"" onclick=""loadPageFade('" & strPageURL & "&amp;s=0&amp;o=" & iOffset & "', '" & strDivToLoad & "');return false;"">" & strFirst & "</a> "
	if iStart > 0 then
		PagingLinks = PagingLinks & "<a href=""#"" onclick=""loadPageFade('" & strPageURL & "&amp;s=" & iStart - iOffset & "&amp;o=" & iOffset & "', '" & strDivToLoad & "');return false;"">" & strPrev & "</a> "
	end if
	Dim MaxPagesToShow, MaxLBound, MaxUBound
	MaxPagesToShow = 10
	MaxLBound = pgNum - Int(MaxPagesToShow/2)
	If MaxLBound < 1 Then MaxLBound = 1
	MaxUBound = MaxLBound + MaxPagesToShow
	If MaxUBound > pages Then
		MaxUBound = pages
		MaxLBound = MaxUBound - MaxPagesToShow
	End If
	If MaxLBound < 1 Then MaxLBound = 1
	if (iRows - iOffset) < 0 then
		l = 0
	else 
		l = (iRows - iOffset)
	end if
	for z = MaxLBound to MaxUBound
		pgOffset = z * iOffset - iOffset
		if z = pgNum then
			PagingLinks = PagingLinks & ("<b>" & z & "</b> ")
		else
			PagingLinks = PagingLinks & ("<a href=""#"" onclick=""loadPageFade('" & strPageURL & "&amp;s=" & pgOffset & "&amp;o=" & iOffset & "', '" & strDivToLoad & "');return false;"">" & z & "</a> ")
		end if
	next
	if iStop + 1 < iRows then
		PagingLinks = PagingLinks & "<a href=""#"" onclick=""loadPageFade('" & strPageURL & "&amp;s=" & iStart + iOffset & "&amp;o=" & iOffset & "', '" & strDivToLoad & "');return false;"">" & strNext & "</a> "
	end if
	PagingLinks = PagingLinks & "<a href=""#"" onclick=""loadPageFade('" & strPageURL & "&amp;s=" & l & "&amp;o=" & iOffset & "', '" & strDivToLoad & "');return false;"">" & strLast & "</a><br />"
End Function

                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62: