Avatar billede i-mox Nybegynder
19. april 2005 - 10:08 Der 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.
Avatar billede mikkelk Nybegynder
19. april 2005 - 10:15 #1
Det kommer jo bl.a. an på hvilken database du kører med, men med en access-db skulle du kunne bruge følgende eksempel:
http://activedeveloper.dk/artikler/default.asp?articleid=31
Og med MySQL følgende:
http://activedeveloper.dk/artikler/default.asp?articleid=279

\Mikkelk
Avatar billede i-mox Nybegynder
19. april 2005 - 10:22 #2
Hmm.. Jeg kører med mysql.

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

Nogen gode forslag til ændringer?
Avatar billede mikkelk Nybegynder
19. april 2005 - 10:32 #3
Fandt lige et eksempel:
http://eksperten.dk/spm/112030
Avatar billede i-mox Nybegynder
19. april 2005 - 10:57 #4
Taksaduha!

Det var mere eller mindre hvad jeg skulle bruge :-)
Avatar billede mikkelk Nybegynder
19. april 2005 - 10:59 #5
Det var så lidt :-)
God fornøjelse med det.
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester