---
title: "problem med ett pagingscript"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10955-problem-med-ett-pagingscript"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Method"
published: "2001-08-07T08:23:00.000Z"
updated: "2001-08-07T09:56:00.000Z"
replies: 6
views: 184
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/10955-problem-med-ett-pagingscript"
---

# problem med ett pagingscript

## #1 — Method, 2001-08-07T08:23Z

kolla på denna adress  <http://www1.bengtdahlgren.se/kontakt/kontaktpers.asp?Kontor=Stockholm> 

där kör jag ett pagingscript där den hämtar fyra poster ur databasen, men på kontaktpersoner i Stockholm där har jag bara fyra poster men ändå säger den att det är på 2 sidor. jag kör med patrik B pagingscript.

tack på förhand

Jonas

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

## #2 — PatrikB, 2001-08-07T08:33Z

Jepp,
det e alldeles riktigt.

Det är en bugg =( fast det finns en bugfix =)

Byt ut funktionen countPages till denna:

```
## -------------------------------------------------------------
'## -- räkna ut hur många sidor som ska visas --
'## -- updated: July 14, 2001
'## -- update by: Patrik Berggren, mrwize@mrwize.nu
'## -------------------------------------------------------------
'##
'## -- vid vissa tillfällen returnerades fel sidantal.
'## Felet/Buggen berodde på avrundningen med CInt()
'## och CLng().
'## -- Avrundningen som jag gjorde:
'##
'## m_intTotalPages = CInt((HowManyRecords / PageSize) + 0.5)
'##
'## vart i vissa fall fel och sid antalet vart fler än 
'## vad det egentligen skulle vara.
'## Lösningen, hoppas jag, är att kolla hur stor resten
'## blir vid avrundning.
'## Om resten är större än 0 eller mindre än 0.5 så ska en sida
'## läggas till.
'## I annat fall så gäller avrundningen.
'## Har testat flera olika kombinationer med olika records antal
'## och sidstorlekar och ej hittat några buggar.
'## Så nu hoppas jag att denna paging är buggfri *ler*
'## -------------------------------------------------------------
Function countPages(ByVal HowManyRecords, ByVal PageSize)
Dim m_intTotalPages, m_intRest

m_intTotalPages = HowManyRecords / PageSize

If m_intTotalPages < 1 Then
m_intTotalPages = 1
Else
m_intRest = m_intTotalPages - CLng(m_intTotalPages)

If m_intRest > 0 AND m_intRest < 0.5 Then
m_intTotalPages = CLng(m_intTotalPages) + 1
Else
m_intTotalPages = CLng(m_intTotalPages)
End If
End If

'## -- return how many pages --
countPages = m_intTotalPages
End Function
```

cya,
PatrikB

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

## #3 — Lukaspojken, 2001-08-07T08:36Z

Det skulle vara bra att få se lite kod för du måste ju ha ändrat något i Patriks-script för den fungerar ju helt utmärkt.

Det jag kunde bara se nu vara att "kontor" i reguest.string stod med liten bokstav. Jag vet inte om det kan påverka.

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

## #4 — Method, 2001-08-07T09:29Z

tack för inlägget lukaspojken men som du ser har Patrik redan gett en kod och svarat på varför det inte fungerade ;)

läs gärna tidigare inlägg :)

plus att nu funkar det.....

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

## #5 — Harback, 2001-08-07T09:44Z

Kolla tiderna för inläggen....han höll nog på att skriva när PatrikB postade sitt inlägg ;)

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

## #6 — Method, 2001-08-07T09:54Z

;)

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

## #7 — Lukaspojken, 2001-08-07T09:56Z

Klart jag inte svarar om jag vet att Patrik svarar med ett sådant inlägg...:)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10955-problem-med-ett-pagingscript