ASP Pagination Script Help?

[keithboesker]

I'm trying to setup paging with numbers in the middle of Previous and Next buttons. I found a script I like but i have one issue with it. Please help many thanks in advance.

Here the script I found. It uses iNumPerPage for how many records your showing on each page. So if I put 10 per page then it shows ten numbers which is what I want. But I want to show 25 per page it show 25 numbers I only want to show ten numbers at a time. Can you please help me to get this scripted working or if you have an already working script can you please send it to me. Many Thanks!!!!!!



Sub PrintRecordsetNav( iNumPerPage, adodbConnection, adodbCommand, sTable, sURL, sQuerystring )

Dim iTtlNumItems, iDBLoc, sSqlTemp, iTtlTemp
Dim iDBLocTemp, sURLBeg, iA, iB, x, iTemp, rsObj

iNumPerPage = 25 'row count
iNumCount = 10 'how many numbers to display

iDBLoc = CInt(Request("iDBLoc"))
iTtlNumItems = CInt(Request("iTtlNumItems"))
' Get ttl num of items from the database if it's not already in the QueryString
if (iTtlNumItems = 0) then
Set rsObj = Server.CreateObject("ADODB.Recordset")
sSqlTemp = "SELECT COUNT(*) FROM " & sTable
adodbCommand.CommandText = sSqlTemp
rsObj.Open adodbCommand
If Not(rsObj.EOF) Then
iTtlNumItems = rsObj(0)
End If
rsObj.Close
Set rsObj = Nothing
end if
iTtlTemp = iTtlNumItems \ iNumPerPage ' this is the number of numbers overall (use the "\" to return int)
iDBLocTemp = iDBLoc \ iNumPerPage ' this is which number we are currently on (use the "\" to return int)
If (sQuerystring <> "") Then
sURLBeg = "<a href = """ & sURL & "?" & sQuerystring & "&iTtlNumItems=" & iTtlNumItems & "&iDBLoc="
Else
sURLBeg = "<a href = """ & sURL & "?iTtlNumItems=" & iTtlNumItems & "&iDBLoc="
End If

'***** BEGIN DISPLAY *****
' Print the "Previous"
if (iDBLoc <> 0) then
Response.Write sURLBeg & (iDBLoc - iNumPerPage) & """>Previous</a> "
end if
' Print the <<
if (iDBLocTemp >= iNumPerPage) then
Response.Write sURLBeg & (( iDBLocTemp \ iNumPerPage ) * iNumPerPage ^ 2) - (iNumPerPage * 9) & """><<</a> "
end if

' Print the numbers in between. Print them out in sets of 10.
iA = ( iDBLocTemp \ iNumPerPage ) * iNumPerPage
iB = ( iDBLocTemp \ iNumPerPage ) * iNumPerPage + iNumPerPage
for x = iA to iB
iTemp = (x * iNumPerPage)
if (iTemp < iTtlNumItems) then ' takes care of extra numbers after the overall final number
if (iDBLoc = iTemp) then
Response.Write " <b>[" & x+1 & "]</b>"
else
Response.Write " " & sURLBeg & (x * iNumPerPage) & """>" & x+1 & "</a>"
end if
else
exit for
end if
next

' Print the >>
if (iTtlTemp > iDBLocTemp) then
if ((iDBLocTemp + iNumPerPage) <= iTtlTemp) then
Response.Write " " & sURLBeg & (( iDBLocTemp \ iNumPerPage ) * iNumPerPage + iNumPerPage ) * iNumPerPage & """>>></a> "
end if
end if
' Print the "Next"
if ((iDBLoc + iNumPerPage) < iTtlNumItems) then
Response.Write " " & sURLBeg & (iDBLoc + iNumPerPage) & """>Next</a>"
end if
'***** END DISPLAY *****

End Sub