---
title: "Pagingsystem - GetRows()"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/77851-pagingsystem-getrows/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Palle"
published: "2003-05-23T14:32:11.000Z"
updated: "2008-05-29T08:58:41.000Z"
replies: 27
views: 3047
page: 2
pages: 2
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/77851-pagingsystem-getrows"
---

# Pagingsystem - GetRows()

_Sida 2 av 2._

## #21 — ironhead, 2004-11-15T14:53Z

```
Set RecSet = Connect.Execute("SELECT * FROM Referenser WHERE KundId=" & Request.Querystring("KundId") & " ORDER BY Id")
```

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

## #22 — MickeA.com, 2006-03-01T16:57Z

Tjena
Har ett litet problem med det här pagingscriptet nu.
Det har funkar klockrent alla gånger jag använt det, men nu verkar det som om jag ställt till det med något.
Det är nämligen så att när jag har valt att visa en post / sida och när jag har fyra poster totalt, så börjar navigeringen på 0, så det blir:

```
<Pil> 0 1 2 3 4 <pil>
```

Det gäller alltså bara vid fyra poster, annars funkar det hur bra som helst.
Skulle gissa att det är något fel i följande kodsnutt:

```
		If intPage < 4 Then
			intNavStart = 1
			intNavEnd	= 5
		ElseIf intPage > intPages-3 Then
			intNavStart = intPages-4
			intNavEnd	= intPage+2
		Else
			intNavStart = intPage-2
			intNavEnd	= intPage+2
		End If
```

Behöver alltså lite hjälp med det här, tack!

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

## #23 — MickeA.com, 2006-07-26T09:02Z

Tjena
Jag har fortfarande på problem med det jag skriver om ovan.
Det är inte bara när man visar en post / sida utan det blir sådär när det finns 4 sidor totalt.
Då skrivs 0, 1, 2, 3, 4 ut.
När sida 5 skapas försvinner nollan, det är alltså bara när det finns 4 sidor.

Tips?

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

## #24 — @nders, 2006-07-26T09:05Z

Prova med **If intPage \<= 4 Then** då istället.

mvh

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

## #25 — MickeA.com, 2006-07-26T10:51Z

> **@nders skrev:**
>
> Prova med **If intPage \<= 4 Then** då istället.

Aha, det var alltså inte svårare än så. ;)

Tack!

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

## #26 — timedia, 2008-05-26T15:01Z

Hur gör jag när jag vill visa 3 rader med 6 bilder i varje? 

```
If IsArray(arrRecSet) Then

	'// Poster per sida
	intPostsPerPage = 18

	'// Navigeringshantering
	If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1
	intFirstPost = (intPage - 1) * intPostsPerPage
	intTotalPosts = UBound(arrRecSet, 2)
	intPages = ((intTotalPosts)\intPostsPerPage)+1

	If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
		intLastPost = UBound(arrRecSet, 2) 
	Else
		intLastPost = intFirstPost + (intPostsPerPage - 1)
		strNext = True
	End If

	'// Skriv ut posterna
	For i = intFirstPost To intLastPost
		strName = arrRecSet(0,i)
		[B][B]Response.Write "<a href='present_m.asp?miljo="&arrRecSet(0,i)&"'><img src='bild1/miljo/small_"&arrRecSet(1,i)&"' alt='' height='100' width='100' border='0'><br>	"& strName &"</a><br>[/B][/B]"& vbcrlf
	Next
	Response.Write vbcrlf &"</td>"& vbcrlf &"</tr>"& vbcrlf &"<tr>"& vbcrlf &"<td>"& vbcrlf

	'// Navigering, välj själv knappar eller text
	Call buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
	'Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)

'// Fanns inga poster
Else
	Response.Write "Här var det tomt.. fyll på i databasen bums. =)"

End If
```

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

## #27 — voigtann1, 2008-05-28T13:23Z

Precis som du skriver
Jag gissar att du har det i en tabell?

```
	[b]Dim TimeToDoLinebreak[/b]
	For i = intFirstPost To intLastPost
[b]		TimeToDoLinebreak = TimeToDoLinebreak + 1[/b]
		strName = arrRecSet(0,i)	
		Response.Write "<a href=""present_m.asp?miljo="&arrRecSet(0,i)&"""><img src=""bild1/miljo/small_"&arrRecSet(1,i)&""" alt="""" height=""100"" width=""100"" border=""0""><br>	"& strName &"</a><br>"& vbcrlf
[b]		If TimeToDoLinebreak = 6 Then
			Response.Write "</td></tr><td>" ' Vad du vill att den skall göra när den träffar var 6:e post
			TimeToDoLinebreak = 0
		End If[/b]
	Next
```

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

## #28 — timedia, 2008-05-29T08:58Z

Jättebra - funkade utmärkt!
Tack så mycket!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/77851-pagingsystem-getrows/page2  
Föregående sida: https://www.webforum.nu/amne/asp/77851-pagingsystem-getrows.md