|
Page
<%
'the next 2 lines setup the page number for the "previous" and "next" links
RSPrevPage = CurrPage -1
RSNextPage = CurrPage + 1
'find out the number of pages returned in the recordset
'if the Next10 page number is greater than the recordset page count
'then set Next10 to the recordset pagecount
If Next10 > recset.PageCount Then
Next10 = recset.PageCount
End If
'the variable start determines where to start the page number navigation
' i.e. 1, 10, 20, 30 and so on.
If prev10 = 1 AND next10 - 1 < 10 Then
start = 1
Else
start = Next10 - 10
If right(start, 1) > 0 Then
start = replace(start, right(start, 1), "0")
start = start + 10
End If
End If
'This checks to make sure that there is more than one page of results
If recset.PageCount > 1 Then
'Work out whether to show the Previous 10 '<<'
If next10 > 10 Then
response.write("<< ")
End If
'Work out whether to show the Previous link '<'
If NOT RSPrevPage = 0 then
response.write("Prev ")
End If
'Loop through the page number navigation using P as our loopcounter variable
For P = start to Next10
If NOT P = CurrPage then
response.write("" & P & " ")
Else
'Don't hyperlink the current page number
response.write(" " & P & " ")
End If
Next
'this does the same as the "previous" link, but for the "next" link
If NOT RSNextPage > recset.PageCount Then
response.write("Next ")
End If
'Work out whether to show the Next 10 '>>'
If NOT Next10 = recset.PageCount Then
response.write(" >>")
End If
End If
' Close the recordset and connection object
recset.Close
Set recset= Nothing
con.Close
Set con=Nothing
%>
|
<%else%>
