ASP paging for displaying certain set of pages at a time

i saw that ex. in that ex. when u click on next, 2nd page is open and so on..what i want is when i click on next ,the pages open should be 4 5 6  etc,best ex. is of google search.click on next in it.
thnks for the comment

ur right i want +10 -10 links
i m following some other ex.
http://www.xefteri.com/articles/16jan2003/default.aspx
theres a function getPagingHTML() in clsDatabase.asp
i m trying but not getting the exact effect.

post the code you already have and tell us what's the problem with it.. so we can help you...

ASPGuru

ur right i want +10 -10 links
i m following some other ex.
http://www.xefteri.com/articles/16jan2003/default.aspx
theres a function getPagingHTML() in clsDatabase.asp
i m trying but not getting the exact effect.

'create the navigation links for paging
Public Function GetPagingHTML()
  Dim strOutput
  Dim strThisPage
  Dim i,j,k,setp,myval,i_PageSet
 i_PageSet = 5 'show 5 pages at a time
  strThisPage = Request.ServerVariables("SCRIPT_NAME")
  strOutput = "Result Page:"
  If i_CurrentPage <> 1 Then
    strOutput = strOutput & "&nbsp;&nbsp;<a href=""" & strThisPage _
 & "?StartingRecord=" & ((i_CurrentPage - 1)* i_RecordsPerPage) - i_RecordsPerPage + 1 _
 & """>Previous</a>&nbsp;&nbsp;"
 End If
j= 1
if i_TotalPages > i_PageSet then
 i_TotalPages = i_PageSet
end if
if i_CurrentPage <= i_PageSet then
 i_TotalPages = i_PageSet
 j= i_CurrentPage
end if
For i = j To i_TotalPages
 If i <> i_CurrentPage Then
  strOutput = strOutput & "&nbsp;&nbsp;<a href=""" &  strThisPage _
& "?StartingRecord=" & (i * i_RecordsPerPage) -i_RecordsPerPage + 1 _
& """>" & i & "</a>&nbsp;&nbsp;"
Else
strOutput = strOutput & "&nbsp;&nbsp;<b>" & i & "</b>&nbsp;&nbsp;"
End If
k=(i * i_RecordsPerPage) - i_RecordsPerPage + 1
Next
'If i_CurrentPage <> i_TotalPages Then
strOutput = strOutput & "&nbsp;&nbsp;<a href=""" & strThisPage _
& "?StartingRecord=" & k + i_RecordsPerPage & "&setpage="&i&""">Next</a>&nbsp;&nbsp;"
'End If

GetPagingHTML = strOutput
  End Function
in the above function i have prob. within the for loop
for i=j here as the value of j is assigned to current page the previous value disappears..if i click on page 2 ,1 disappears. i know the prob. but dunno how to resolve it

i like that you use a function, but you seem to use global variables... this is not recommended...
just use the variables you get as parameters and local variables... so you easily reuse the code...

so try this... there may be bugs in this... i wrote it out of my head and haven't tested it:

<%
'set the following variables:
i_CurrentPage
i_TotalPages
i_PageSet = 5 'show 5 pages at a time
s_BaseURL = Request.ServerVariables("SCRIPT_NAME") & "?page="

'then:
Response.Write getPagingHTML(s_BaseURL, i_CurrentPage, i_TotalPages, iPageSet)

Public Function GetPagingHTML(sURL, iCur, iTot, iSet)
     Dim sOut, i, iCurSet, iTotSet, iFirst
     
     sOut = ""
     iCurSet = int( (iCur-1)/iPageSet )
     iTotSet = int( (iTot-1)/iSet )
     iFirst = iCurSet*iSet + 1
     
     if iCurSet>0 then
          sOut = sOut & "<a href=""" & sURL & (iCur-iSet) & """>&lt;-" & iSet & "]</a> "
     end if
     
     for i = 0 to iSet-1
          if (iFirst+i)=iCur then
               sOut = sOut & "[" & (iFirst+i) & "] "
          else
               sOut = sOut & "<a href=""" & sURL & (iFirst+i) & """>[" & (iFirst+i) & "]</a> "
          end if
     next
     
     if iCurSet<iTotSet then
          sOut = sOut & "<a href=""" & sURL & (iCur+iSet) & """>[+" & iSet & "&gt;</a>"
     end if

     GetPagingHTML = sOut
 End Function
%>


ASPGuru

'create the navigation links for paging
Public Function GetPagingHTML()
  Dim strOutput
  Dim strThisPage
  Dim i,j,k,setp,myval,i_PageSet
 i_PageSet = 5 'show 5 pages at a time
  strThisPage = Request.ServerVariables("SCRIPT_NAME")
  strOutput = "Result Page:"
  If i_CurrentPage <> 1 Then
    strOutput = strOutput & "&nbsp;&nbsp;<a href=""" & strThisPage _
 & "?StartingRecord=" & ((i_CurrentPage - 1)* i_RecordsPerPage) - i_RecordsPerPage + 1 _
 & """>Previous</a>&nbsp;&nbsp;"
 End If
j= 1
if i_TotalPages > i_PageSet then
 i_TotalPages = i_PageSet
end if
if i_CurrentPage <= i_PageSet then
 i_TotalPages = i_PageSet
 j= i_CurrentPage
end if
For i = j To i_TotalPages
 If i <> i_CurrentPage Then
  strOutput = strOutput & "&nbsp;&nbsp;<a href=""" &  strThisPage _
& "?StartingRecord=" & (i * i_RecordsPerPage) -i_RecordsPerPage + 1 _
& """>" & i & "</a>&nbsp;&nbsp;"
Else
strOutput = strOutput & "&nbsp;&nbsp;<b>" & i & "</b>&nbsp;&nbsp;"
End If
k=(i * i_RecordsPerPage) - i_RecordsPerPage + 1
Next
'If i_CurrentPage <> i_TotalPages Then
strOutput = strOutput & "&nbsp;&nbsp;<a href=""" & strThisPage _
& "?StartingRecord=" & k + i_RecordsPerPage & "&setpage="&i&""">Next</a>&nbsp;&nbsp;"
'End If

GetPagingHTML = strOutput
  End Function
in the above function i have prob. within the for loop
for i=j here as the value of j is assigned to current page the previous value disappears..if i click on page 2 ,1 disappears. i know the prob. but dunno how to resolve it

use the link at the top left to refresh the page, so you don't post your messages multiple times...

ASPGuru

i tried that code but in vain.
if any one has fully tested code pls give it to me,coz i dont have time to look in the code n manipulate it.
thnks in advance.

i also don't have time to fully debug the code... at least not for 70pts...

you have a good start here...
i'm willing to help people who help themselves...
this is not a free coding service!


ASPGuru

i have created 2 function getpaginghtml() & getpaginghtml1()..i use getpaginghtml1() when i click on next>>..here i pass some parameters to identify ...this works only for 2 sets of pages..like 1 2 3 next>> ,when i click on next>>  i get another pageset  4 5 6 next>> but again when i click on next>> i get the same listing.

Public Sub DisplayResults()
      Dim arrResults
      Dim strOutput
      Dim rowCounter
      Dim colCounter
      Dim numCols
      Dim numRows
      Dim strBgColor
      Dim thisField
      Dim showBlank
      Dim showNull
      dim getpagingout
      'define variables
      showBlank = "&nbsp;"
      showNull = "-null-"
      'default value for records per page
      If i_RecordsPerPage = "" Then
            i_RecordsPerPage = 2
      End If
      'call internal function
      arrResults = GetRecordArray(i_RecordsPerPage)
      '#of rows and columns
      numCols = UBound(arrResults, 1)
      numRows = UBound(arrResults, 2)
      strOutput = "<table border=""1"" cellpadding=""" _
            & i_CellPadding & """ cellspacing=""" & i_CellSpacing & """ " _
            & "borderColorLight=""#666666"" borderColorDark=""#ffffff"">" _
            & "<tr><td valign=""top"" colspan=""" & (numCols + 1) _
            & """ align=""center"" bgcolor=""#CCCCCC"">" _
            & GetRecordPositionHTML() & "</td></tr>" _
            & "<tr>" & i_Titles & "</tr>"
      For rowCounter = 0 To numRows
            If rowCounter Mod 2 Then
                  strBgColor = i_AlternateRowColor
            Else
                  strBgColor = i_RowColor
            End If
            strOutput = strOutput & "<tr>" & vbcrlf
            For colCounter = 0 To numCols
                  thisField = arrResults(colCounter,rowCounter)
                  If IsNull(thisfield) Then
                        thisField = showNull
                  End If
                  If Trim(thisfield) = "" Then
                        thisField = showBlank
                  End If
                  strOutput = strOutput & "<td valign=""top"" bgcolor=""" & strBgColor & """>" _
                        & thisField & "</td>" & vbcrlf
            Next
            strOutput = strOutput & "</tr>" & vbcrlf
      Next


      If (i_TotalPages > 1) Then
            strOutput = strOutput & "<tr><td valign=""top"" align=""left"" colspan=""" _
                  & (numCols + 1) & """ bgcolor=""#cccccc"">" & GetPagingHTML & "</td></tr>"
      End If
      strOutput = strOutput & "</table>"
      Response.Write(strOutput)
  End Sub

Public Function GetPagingHTML()
      Dim strOutput
      Dim strThisPage
      Dim pageset,newstartrecord
      pageset=3
      Dim i

      newstartrecord = i_RecordsPerPage * pageset + 1

      strThisPage = Request.ServerVariables("SCRIPT_NAME")
      strOutput = "Result Page:"
      if not request("ispageset") = "" and cbool(request("ispageset")) then
            GetPagingHTML = GetPagingHTML1()
      else

      'If i_CurrentPage <> 1 Then
      'response.write(i_CurrentPage & "--"& pageset)
      dim strec
       If i_CurrentPage > pageset then
       strec = pageset * i_RecordsPerPage
            strOutput = strOutput & "&nbsp;&nbsp;<a href=""" & strThisPage _
                  & "?StartingRecord=" & strec &"&ispageset=true"">Previous</a>&nbsp;&nbsp;" '((i_CurrentPage - 1)* i_RecordsPerPage) - i_RecordsPerPage + 1 _

      End If
      For i = 1 To pageset
            If i <> i_CurrentPage Then
                  strOutput = strOutput & "&nbsp;&nbsp;<a href=""" & strThisPage _
                        & "?StartingRecord=" & (i * i_RecordsPerPage) - i_RecordsPerPage + 1 _
                        & """>" & i & "</a>&nbsp;&nbsp;"
            Else
                  strOutput = strOutput & "&nbsp;&nbsp;<b>" & i & "</b>&nbsp;&nbsp;"
            End If

      Next
      If i_CurrentPage <> i_TotalPages Then
      ncount=ncount+1
                  strOutput = strOutput & "&nbsp;&nbsp;<a href=""" & strThisPage _
                  & "?StartingRecord=" & newstartrecord & "&ispageset=true&ncnt="& ncount &""">Next</a>&nbsp;&nbsp;"
      End If
      GetPagingHTML = strOutput
      end if
  End Function

'create the navigation links for paging
  Public Function GetPagingHTML1()
  response.write(request("ncnt"))
      Dim strOutput
      Dim strThisPage
      Dim pageset,newstartrecord
      pageset=3
      Dim i,nextpageset,pagesetconstraint
      strThisPage = Request.ServerVariables("SCRIPT_NAME")
      strOutput = "Result Page:"

      dim strec
       If i_CurrentPage > pageset then
       strec = (pageset-1) * i_RecordsPerPage + 1
      strOutput = strOutput & "&nbsp;&nbsp;<a href=""" & strThisPage _
      & "?StartingRecord=" & strec &""">Previous</a>&nbsp;&nbsp;" '((i_CurrentPage - 1)* i_RecordsPerPage) - i_RecordsPerPage + 1 _

      End If
      'If i_CurrentPage <> 1 Then
      '      strOutput = strOutput & "&nbsp;&nbsp;<a href=""" & strThisPage _
      '            & "?StartingRecord=" & ((i_CurrentPage - 1)* i_RecordsPerPage) - i_RecordsPerPage + 1 _
      '            & """>Previous</a>&nbsp;&nbsp;"
      'End If
      nextpageset = i_TotalPages mod pageset


      if nextpageset < pageset then
            pagesetconstraint = nextpageset + pageset

      end if
      if nextpageset > pageset then
            pagesetconstraint = pageset + pageset
      end if
      if nextpageset = 0 then
            nextpageset = pageset + pageset
            pagesetconstraint = nextpageset
      end if

      newstartrecord = i_RecordsPerPage * nextpageset + 1
      'response.write(i_TotalPages &"--" & nextpageset &"--" &pagesetconstraint)
      response.write("--"&ncount)
      if request("ncnt") <> "" then
            'if session("pagecnt") = "" then
            '      session("pagecnt") = request("ncnt")
            'else
            '      session("pagecnt") = cint(cstr(session("pagecnt"))) + cint(request("ncnt"))
            'end if
            pageset = pageset * cint(request("ncnt"))
            pagesetconstraint = pageset/cint(request("ncnt")) + pageset
            ncount=cint(request("ncnt")) +1
      end if

      For i = pageset+1 To pagesetconstraint

            If i <> i_CurrentPage Then
                        strOutput = strOutput & "&nbsp;&nbsp;<a href=""" & strThisPage _
                        & "?StartingRecord=" & (i * i_RecordsPerPage) - i_RecordsPerPage + 1 _
                        & "&ispageset=true"">" & i & "</a>&nbsp;&nbsp;"
            Else
                  strOutput = strOutput & "&nbsp;&nbsp;<b>" & i & "</b>&nbsp;&nbsp;"
            End If

            'newstartrecord=(i * i_RecordsPerPage) - i_RecordsPerPage + 1
            'response.write(newstartrecord & "-")
      Next
      'If i_CurrentPage <> i_TotalPages Then
      If i_TotalPages > pagesetconstraint Then
      ispageset = true

            strOutput = strOutput & "&nbsp;&nbsp;<a href=""" & strThisPage _
                  & "?StartingRecord=" & newstartrecord & "&ispageset=true&ncnt="& ncount &""">Next</a>&nbsp;&nbsp;"
      End If
      GetPagingHTML1= strOutput
  End Function

yogman:
This old question needs to be finalized -- accept an answer, split points, or get a refund.  For information on your options, please click here-> http:/help/closing.jsp#1
EXPERTS:
Post your closing recommendations!  No comment means you don't care.