---
title: "Patrik eller någon annan, hjälp mig!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12970-patrik-eller-någon-annan-hjälp-mig"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "iceM2"
published: "2001-12-03T11:26:00.000Z"
updated: "2001-12-03T13:04:00.000Z"
replies: 2
views: 218
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/12970-patrik-eller-någon-annan-hjälp-mig"
---
# Patrik eller någon annan, hjälp mig!
## #1 — iceM2, 2001-12-03T11:26Z
Använder mig av en av alla versioner av pagingscript som Patrik här på WF har gjort. Scriptet fungerar nästan finfint, jag får inget felmeddelande eller så problemet är bara navigeringen mellan posterna.
Först listas 2 poster och när jag klickar på nästa kommer det upp en ny sida med två nya poster. Här kommer problemet det kommer nu bara upp en länk för att gå tillbaka till sida 1... Det finns ingen länk för nästa dvs gå till sida 3 trots att det finns flöer poster i databasen...
Någon som har lust att kolla min kod och se vad som e fel? Er hjälp uppskattas fruktansvärt mycket!
```
<% Response.Write _
" " & vbCRLF &_
"Skriv i gästboken
" & vbCRLF &_
"Här nedan kan du läsa bland de inlägg som har gjorts i Barnträdgårds gästbok." & vbCRLF &_
"Om du vill skriva in dig i vår gästbok så kan klicka på länken skriv i gästboken ovan." & vbCRLF &_
"
" & vbCRLF
Dim intPage, intPageSize, N, varArray
intPage = Request.QueryString("page")
If Len(intPage) = 0 Then intPage = 1
intPageSize = 2
strSQL = "SELECT Datum, Namn, Email, OrtStad, Kommentar, IPnummer FROM Gastbok " &_
" ORDER BY ID DESC"
dbConnect dbUrl, Connection
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = intPageSize
objRS.Open strSQL, Connection, 1, 3
If Not objRS.EOF Then
objRS.AbsolutePage = intPage
varArray = objRS.GetRows(intPageSize)
End If
objRS.Close
Set objRS = Nothing
Connection.Close
Set Connection = Nothing
If IsArray(varArray) Then
Dim strNamn, strEmail, strOrtStad, strKommentar, strDatum, strIPnummer
For N = 0 TO UBound(varArray,2)
strDatum = varArray(0,N)
strNamn = varArray(1,N)
strEmail = varArray(2,N)
strOrtStad = varArray(3,N)
strKommentar = varArray(4,N)
strKommentar = Replace(strKommentar, vbCRLF, " ")
strIPnummer = varArray(5,N)
Response.Write _
"
" & vbCRLF & vbCRLF
Next
End If
If CLng(intPage) > 1 Then
Response.Write " Föregående "
End If
If CLng(intPage) < CLng(UBound(varArray,2)+1) Then
Response.Write " Nästa "
End if %>
```
Patriks orginalkod finns här:
Permalänk: https://www.webforum.nu/p/12970
## #2 — PatrikB, 2001-12-03T12:19Z
```
If CLng(intPage) < CLng(UBound(varArray,2)+1) Then
Response.Write " Nästa "
End if %>
```
Skrev allt otestat rätt ur huvudet ;) ....
När du öppnat recordsetet så kan du kolla hur mågna sidor som recordsetet består av med metoden PageCount.
```
objRS.Open strSQL, Connection, 1, 3
'## -- antal sidor i recordsetet --
intTotalPages = objRS.PageCount
```
Ändra nu koden för länken till nästa sida så att den ser ut så här:
```
If CLng(intPage) < CLng(intTotalPages) Then
Response.Write " Nästa "
End if %>
```
borde göra susen ... men som sagt, fortfarande otestat ... sitter uppe i STHLM på en LN Kurs på membran ....
cya,
PatrikB
Permalänk: https://www.webforum.nu/p/299602
## #3 — iceM2, 2001-12-03T13:04Z
Tackar Patrik, skall testa att komplettera min kod med detta... Har dock inte testat ännu men jag återkommer om du skulle uppstå ngt problem..
Permalänk: https://www.webforum.nu/p/299603
---
Tråden på webben: https://www.webforum.nu/amne/asp/12970-patrik-eller-någon-annan-hjälp-mig
