19. april 2005 - 10:08Der er
4 kommentarer og 1 løsning
Paging af recordset, skal ud i stykker af 10!
Heysa
Jeg har paget et recordset, og det virker egentligt ret så fint. Problemet er at med det antal poster jeg har i min database får jeg 2500 sider (med 50 på hver), hvilket gør at jeg ikke bare kan skrive
For i = 1 to rsS.pageCount Side LINK HER Next
Er der nogen der kan hjælpe med noget kode i vbscript til at få vist første side, sidste side, 10 frem, og 10 tilbage så det faktisk virker?
Jeg har gjort et forsøg, og kan ikke få pisset til at du.
Men at implmentere limit vil tage mig lang tid. Der er meget jeg så skal ændre.
Har skrevet følgende kode: if rsSelskaber.PageCount <> 0 Then response.write("Side: ")
if rsSelskaber.pageCount-Cint(myPage) > 10 then For i = Cint(myPage) to 10 if i = Cint(myPage) then response.write "<a href='liste.asp?mode=all&view="&request("view")&"&page=" & i & "'> " & i & "</a></b>" else response.write "<a href='liste.asp?mode=all&view="&request("view")&"&page=" & i & "'> " & i & "</a>" end if Next else For i = Cint(myPage) to rsSelskaber.PageCount if i = Cint(myPage) then response.write "<a href='liste.asp?mode=all&view="&request("view")&"&page=" & i & "'> " & i & "</a></b>" else response.write "<a href='liste.asp?mode=all&view="&request("view")&"&page=" & i & "'> " & i & "</a>" end if Next end if response.write(" | ")
if Cint(myPage)+9 < rsSelskaber.PageCount then Response.write("<a href='liste.asp?mode=all&view="&request("view")&"&page=" & Cint(myPage+9) & "'> >>> </a>") end if
if Cint(myPage)-9 < rsSelskaber.Pagecount AND NOT Cint(myPage)-9 < 1 then Response.write(" <a href='liste.asp?mode=all&view="&request("view")&"&page=" & Cint(myPage-9) & "'> <<< </a>") end if
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.