webForumDet fria alternativet

Paging med GetRows

2 svar · 552 visningar · startad av kvastfening

kvastfeningMedlem sedan nov. 20105 inlägg
#1

Hej!

Jag behöver lite nybörjarhjälp. Jag har använt mig av en artikel på Aspkoll som handlar om paging med GetRows. Resultatet blir nästan som jag vill ha det förutom att det blir en extra post på sista sidan. Jag vill visa en post per sida, men på sista sidan visas alltså två. Vad är fel?

PosterPerSida = 1

ForstaPosten = Request.QueryString("post")

If Len(ForstaPosten) = 0 Then
ForstaPosten = 0
Else
ForstaPosten = CInt(ForstaPosten)
End If

AntalPoster = Ubound(arrRs,2)

If AntalPoster > (PosterPerSida + ForstaPosten) Then
SistaPosten = PosterPerSida + ForstaPosten - 1
Else
SistaPosten = AntalPoster    
End If

If IsArray(arrRs) Then

If ForstaPosten > 0 Then
Response.Write("<a href=""sida1.asp?post=" & ForstaPosten-PosterPerSida & """>Föregående</a> ")
End If

If SistaPosten < AntalPoster Then
Response.Write("<a href=""sida1.asp?post=" & ForstaPosten+PosterPerSida & """>Nästa</a>")
End If

For i = ForstaPosten To SistaPosten
Response.Write("<p>" & arrRs(1,i) & " " &  arrRs(2,i) & " " &  arrRs(4,i) & "</p>")

Response.Write("<p><img src='bilder/" & arrRs(8,i) & "'></p>")
Next  

Else
Response.Write("Arkivbilden saknas")
End If
voigtann1Medlem sedan juni 20019 519 inlägg
#2
If AntalPoster >= (PosterPerSida + ForstaPosten) Then

istället för

If AntalPoster > (PosterPerSida + ForstaPosten) Then
kvastfeningMedlem sedan nov. 20105 inlägg
#3

Tack! Igen ;-)

128 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
118 ms — hämta tråd, inlägg och bilagor (db)