Hi All,
I don't know how to reuse the following source code, please comment.
iTtlTemp = iTtlNumItems \ iNumPerPage <--- How to get value
iDBLocTemp = iDBLoc \ iNumPerPage <--- How to get value
iDBLoc <--- How to get value
------------------
' 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
---------------------
Whole Source Code
Sub PrintRecordsetNav( iNumPerPage, adodbConnection, adodbCommand,
sTable, sURL, sQuerystring )
Dim iTtlNumItems, iDBLoc, sSqlTemp, iTtlTemp
Dim iDBLocTemp, sURLBeg, iA, iB, x, iTemp, rsObj
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
'***************************************
' ****************************************
