need sub function to divide info to pages .

Discussion in 'C#' started by JJnacy, Jun 29, 2009.

0
  1. #1
    I have 200 info and I want to list them 10 info for each page.

    I need script can do like this.
    page link: 1 2 3 4 5 6 7 8 9 10 Next


    Thanks
     
    JJnacy, Jun 29, 2009 IP
  2. dopanel.com

    dopanel.com Peon

    Messages:
    93
    Likes Received:
    3
    Best Answers:
    0
    Trophy Points:
    0
    #2 
    
  Function InfoInPage(InfoRs,PSize,CurPage)
    Dim ReturnStr,Conter
    CurPage = CInt(CurPage)
    ReturnStr = "<ul>"
    InfoRs.PageSize = PSize
    If CurPage <1 Then CurPage = 1
    If CurPage > InfoRs.PageCount Then CurPage = InfoRs.PageCount
    InfoRs.AbsolutePage = CurPage

    For Counter = 1 To InfoRs.PageSize
        ReturnStr = ReturnStr & "<li><a href=""#"">"&InfoTitle&</a>"
        InfoRs.MoveNext
        If InfoRs.Eof Then Exit For
    Next 
    ReturnStr = ReturnStr&"<li id=""pager"">"
    For Counter = 1 To InfoRs.PageCount
       ReturnStr = ReturnStr&"<a href=""?page="& Counter &""">"& Counter &"</a>"
       If Counter < InfoRs.PageCount Then ReturnStr = ReturnStr & " | "
    Next
    ReturnStr = ReturnStr&"</li>"
    ReturnStr = ReturnStr&"</ul>"
    InfoInPage = ReturnStr 
  End function
    Code (markup):
     
    dopanel.com, Jun 30, 2009 IP