---
title: "paging hjälp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/41112-paging-hjälp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tronez"
published: "2002-04-08T14:37:31.000Z"
updated: "2002-04-08T16:46:10.000Z"
replies: 2
views: 207
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/41112-paging-hjälp"
---

# paging hjälp

## #1 — tronez, 2002-04-08T14:37Z

har ett problem med ett script

```
<%
Sub PageNavigation(ByVal Page, TotalPages)
    Dim strScriptName

    '## -- denna sidas namn --
    strScriptName = Request.ServerVariables("SCRIPT_NAME")

    '## -- länk till föregående sida --
    '## -- kontrollera att det inte är första sidan som visas --
    If CInt(Page) > 1 Then
         '## -- inte första sidan som visas så gör en länk --
        Response.Write "<A href=""" & strScriptName & "?page=" & Page - 1 & """><< Föregående</A> "
    Else
        '## -- det är första sidan som ska visas. gör ingen länk --
        Response.Write "<< Föregående "
    End If

    '## -- bygg upp själva pagebaren, dvs varje sidnummer ska ha en länk
    '## -- så att besökaren snabbt kan ta sig till rätt sida --
    For N = 1 To CInt(TotalPages)
        If N <> CInt(Page) Then
            '## -- ej aktuell sida, länka --
            Response.Write "<A href=""" & strScriptName & "?page=" & N & """>" & N & "</A> "
        Else
            '## -- aktuell sida, länka ej -- 
            Response.Write "<B>" & N & "</B> "
        End If
    Next

    '## -- länk till nästa sida. om vi står på sista sidan ska den ej vara länkad --
    If CInt(Page) < CInt(TotalPages) Then
        '## -- vi är inte på sista sidan --
        Response.Write "<A href=""" & strScriptName & "?page=" & Page + 1 & """>Nästa >></A>"
    Else
        '## -- vi är på sista sidan. länka ej --
        Response.Write "Nästa >>"
	
    End If
	

End Sub
%>
```

Det är så att jag vill att efter man har 20 sidor länkade så ska en radbrtning komma med

..........19,20
..........29,30
..........39,40

nånsom fattar vad jag menar?

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

## #2 — Cy-4, 2002-04-08T16:16Z

Hallå!!

Kan du inte göra nåt sånt här:
If N%10 = 0 Then
  Skriv ut länken och en \<br\>
Else
  Skriv bara ut länken
End If

Jag har inte testat och jag vet inte om det är så här du vill ha, jag vet inte ens om det funkar. Det var nämligen ett tag sen jag höll på med ASP. Hoppas den funkar!

//red: kom på att denna kod gör det var tionde sida, så du får en radbrytning även efter sida tio, om den nu funkar.

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

## #3 — @nders, 2002-04-08T16:46Z

% används i vissa språk, men i VB-Script heter funktionen MOD.

Mvh,

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/41112-paging-hjälp