---
title: "Pagingen skriver ut fel!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/73705-pagingen-skriver-ut-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tillmar"
published: "2003-04-10T11:40:23.000Z"
updated: "2003-04-10T18:10:08.000Z"
replies: 2
views: 250
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/73705-pagingen-skriver-ut-fel"
---

# Pagingen skriver ut fel!

## #1 — tillmar, 2003-04-10T11:40Z

Har ett problem med min paging i mySQL mot asp....
Det är själva ut skrivinings funktionen som muppar sig
den skriver ibland ut en nästasida pil....när det inte finns nån nästa sida....och tvärt om

\<%
Dim pageSize, Page, MinConn, pages
pageSize = 10 ' hur många inlägg per sida
page = request.querystring("page") ' vilken sida man är på
if page = "" then page = 1 
        
Set MinConn = Server.CreateObject("Adodb.Connection")
MinConn.open = "driver=MySQL;server=localhost;uid=user;pwd=pass;database=db"
sql = "select count(\*) from gastbok" 
set rs = MinConn.execute(SQL)
pages = (rs(0)-1)/pageSize + 1

  Sql = "Select \* from gastbok order by datum desc limit " & (page-1)\*pagesize & "," & pageSize

  Set Rs = MinConn.Execute(SQL)
  If rs.eof then
  Response.Write("Inga inlägg skrivna")
  else

Do While Not Rs.EOF%\>

Skriver ut inläggen

utskrift funktionen

  \<%
	rs.Movenext
	Loop
	Rs.Close
	MinConn.close
	Set MinConn = nothing
	Set Rs = nothing
	
	'för att visa en bakåt knapp
	if  page \> 1 then
    response.write "\<a href='?sida=gastbok&page=" & page - 1 & "'\> «&nbsp;&nbsp;\</a\>"
    end if
	
	'visa alla sidnummer
	Dim a
    FOR a = 1 to Pages
    IF a \<\> cINT( Page ) THEN 
    Response.Write "\<a href='?sida=gastbok&page="& a &"'\>"& a &"\</a\>"
    ELSE 
    Response.Write "&nbsp;\["& a & "\]&nbsp;"
    end if
    next
    
    'en framåtknapp
    if cINT( Page ) \< pages then
    response.write "\<a href=?sida=gastbok&page=" & page + 1 & "\>&nbsp;&nbsp;» \</a\>"
    end if
    end if
'mitt slutar
    %\>

Permalänk: https://www.webforum.nu/p/73705

## #2 — tillmar, 2003-04-10T17:15Z

äre ingen som vet:-(

Permalänk: https://www.webforum.nu/p/1007808

## #3 — LarsG, 2003-04-10T18:10Z

Jag ser inget direkt. Ett sätt är att lägga in testutskrifter i koden så du ser vad som händer.

```
 'för att visa en bakåt knapp

if cint(page) > 1 then
response.write "Debug  «: Page = " & page & "<br>"
response.write "<a href='?sida=gastbok&page=" & page - 1 & "'> «  </a>"
end if

'visa alla sidnummer
Dim a
FOR a = 1 to Pages
IF a <> cINT( Page ) THEN
Response.Write "<a href='?sida=gastbok&page="& a &"'>"& a &"</a>"
ELSE
Response.Write " ["& a & "] "
end if
next

'en framåtknapp
if cINT( Page ) < pages then
response.write "Debug  »: Page = " & page & "<br>"
response.write "<a href=?sida=gastbok&page=" & page + 1 & ">  » </a>"
end if
```

Permalänk: https://www.webforum.nu/p/1007858

---

Tråden på webben: https://www.webforum.nu/amne/asp/73705-pagingen-skriver-ut-fel