---
title: "När det blir för många sidor, byt rad"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/82001-när-det-blir-för-många-sidor-byt-rad"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MickeA.com"
published: "2003-07-14T20:26:12.000Z"
updated: "2003-07-14T21:12:00.000Z"
replies: 5
views: 166
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/82001-när-det-blir-för-många-sidor-byt-rad"
---

# När det blir för många sidor, byt rad

## #1 — MickeA.com, 2003-07-14T20:26Z

Hej

Nu har jag kommit längre o längre på sidan jag håller på med.

Har precis fått igång paging'en.
Nu är det så att det rör sig om 1100 poster som ska skrivas ut, har gjort så att 40 poster skrivs ut / sida.

Så det blir en del sidor.

Nu hamnar alla sidor på en lång rad, alltså:
\[1\] \[2\] \[3\] osv osv.

Det blir många sidor som sagt, och man blir tvungen att scrolla horisontellt.

Det bill jag inte, utan jag vill lägga till en \<br\> efter 15 sidor, så det blir:

\[1\]\[2\]\[3\].......\[14\]\[15\]
\[16\]\[17\] osv...

Till koden:

```
'___________________________________________________________

nextPage = TRIM( Request.Querystring( "nextPage" ) )
IF nextPage = "" THEN nextPage = 1

'___________________________________________________________
Set oRec = Server.CreateObject("ADODB.Recordset")

SQL = "Select ID, Adress, Gatunummer FROM nycklar ORDER BY Adress ASC;"
oRec.Open SQL, oConn, 1, 3

%>
<table class='show_all' cellpadding='0' cellspacing='0'>
<%

oRec.PageSize = 40 '<-- Här bestämmer du hur många inlägg det ska finnas på sidan
oRec.AbsolutePage = nextPage

Do until oRec.EOF OR rowCount = oRec.PageSize
rowCount = rowCount + 1
  
cnt = cnt + 1
strColor = "#FCFDC7" 
If cnt Mod 2 = 0 then strColor = "#FEFEDE"
%>
<tr bgcolor="<%= strColor%>"><td><%=Response.Write("<a href='bla.asp?id=" & oRec("ID") & "'>" & oRec("Adress") & "</td><td>" & oRec("Gatunummer") & "</a>")%></td></tr>
<tr><td colspan='2' height='5'></td></tr>
<%
oRec.MoveNext
Loop%>

<tr><td height='30' colspan='2'></td></tr><tr><td colspan='2'>
<%
IF oRec.PageCount > 1 THEN 

FOR a = 1 to oRec.PageCount
IF a <> cINT( nextPage ) THEN 
Response.Write "&nbsp;<a href='alla_adr.asp?nextPage="& a &"'>[ "& a &" ]</a>&nbsp;"
ELSE 
Response.Write "&nbsp;<b>"& a & "</b>&nbsp;"

END IF 
NEXT 
END IF

Set oConn = NOTHING
Set oRec = NOTHING
Set strSQL = NOTHING

%>
</td>
</tr>
</table>
</body>
</html>
```

VAD ska jag göra och HUR ska det se ut? Tack !

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

## #2 — Sebbe, 2003-07-14T20:34Z

```
FOR a = 1 to oRec.PageCount
IF a <> cINT( nextPage ) THEN 
Response.Write " <a href='alla_adr.asp?nextPage="& a &"'>[ "& a &" ]</a> "
ELSE 
Response.Write " <b>"& a & "</b> "
END IF 

If a Mod 15 = 0 Then Response.Write("<br>")
NEXT
```

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

## #3 — mozilla, 2003-07-14T20:37Z

```
if(a mod 15 = 0) Then Response.Write "<br />"
```

 x( grr, too late  :e

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

## #4 — solbulle, 2003-07-14T20:39Z

```
FOR a = 1 to oRec.PageCount
IF a <> cINT( nextPage ) THEN 
Response.Write " <a href='alla_adr.asp?nextPage="& a &"'>[ "& a &" ]</a> "

If a mod 15=0 then response.write "<br>"

ELSE 
Response.Write " <b>"& a & "</b> "

END IF
```

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

## #5 — solbulle, 2003-07-14T20:39Z

Amen, hallå!?! Hur sen är jag då?

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

## #6 — MickeA.com, 2003-07-14T21:12Z

HeHe, tack Sebbe (hann ju bara prova din) och det funkar ju bra ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/82001-när-det-blir-för-många-sidor-byt-rad