Eller är detta kanske inte den bästa varianten att använda sig av i mitt fall.
Kikade lite på denna :
http://www.dileno.hel.nu/martin/web/asp/default.asp?id=3
är den något att ha tro?
2 svar · 183 visningar · startad av ConnyFox
har problem med palles paging script och undrar om någon kan hjälpa mig.
Allt fungerar fin fint bortsett från sidvalet, dvs 1 | 2 | 3 osv.. som man klickar på för att komma till respektevie sida.
Endast länk till sista sidan visas.
Verkar vara den markerade kodbiten som strular till det, lyckats få fram alla siffror men då har det varit annat som strulat ;)
'// Poster per sida
intPostsPerPage = 2
'// Navigeringshantering
If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1
intFirstPost = (intPage - 1) * intPostsPerPage
.write intfirstpost
intTotalPosts = UBound(arrRS, 2)
.write intTotalPosts
intPages = ((intTotalPosts)\intPostsPerPage)+1
.write intpages
If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRS,2) Then
intLastPost = UBound(arrRS, 2)
Else
intLastPost = intFirstPost + (intPostsPerPage - 1)
strNext = True
End If
'// Navigering - Första/Bakåt
If intPage > 1 Then
nav1 = ""& vbcrlf &" <a href=""default.asp?n="" >Första</a> | <a href=""default.asp?n="& intPage - 1 &""">Backa</a> | "
Else
nav1 = ""& vbcrlf &" Första | Backa | "
End If
[B]
'// Navigering - Siffror
If intTotalPosts > intPostsPerPage Then
If intPage < 4 Then
intNavStart = 1 : intNavEnd = 5
ElseIf intPage > intPages-3 Then
intNavStart = intPages-4 : intNavEnd = intPage+2
Else
intNavStart = intPage-2 : intNavEnd = intPage+2
End If
.write intnavstart
.write intnavend
For n = intNavStart To intNavEnd
If intPage = n Then
nav2 = "<strong>"& n &"</strong> | "
Else
nav2 = "<a href=""main.asp?n="& n &""">"& n &"</a> | "
End If
If n = intPages Then Exit For
Next
End If
[/B]
'// Navigering - Nästa/Sista
If strNext = True Then
nav3 = "<a href=""default.asp?n="& intPage + 1 &""">Nästa</a> | <a href=""main.asp?n="& intPages &""">Sista</a>"& vbcrlf
Else
nav3 = "Nästa | Sista"& vbcrlf
End If
Skriver sedan ut det me
response.write "<td>_" & nav1 & "</td><td align=""middle"">" & nav2 & "</td><td align=""right"">" & nav3 & "_</td>"
Eller är detta kanske inte den bästa varianten att använda sig av i mitt fall.
Kikade lite på denna :
http://www.dileno.hel.nu/martin/web/asp/default.asp?id=3
är den något att ha tro?
Är det verkligen ingen som kan hjälpa mig med detta?