---
title: "Dilenos paging blir inte ratt!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/77803-dilenos-paging-blir-inte-ratt"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "crisse6"
published: "2003-05-23T01:14:40.000Z"
updated: "2003-05-23T13:37:30.000Z"
replies: 11
views: 309
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/77803-dilenos-paging-blir-inte-ratt"
---

# Dilenos paging blir inte ratt!

## #1 — crisse6, 2003-05-23T01:14Z

Hej!

Riktar val detta till m_soderlund som har gjort exempelsidan med hur man gor Paging med GetRows()!

Iaf, far foljande felmess:

```
Microsoft VBScript compilation (0x800A03EE)
Expected ')'
/forumet/forum.asp, line 32, column 32
pagecount = ((posts-1) \ Pz -- 1
```

Eftersom jag inte ar sa haj an pa GetRows() sa kanske jag har strulat till det?

Har ar hela min kod:

```
[red]
<%
Dim forum, strSql, rs, page
Call DBConn()

forum = request.querystring("id")
page = Request.Querystring("page") 

	If page="" Then page=1 
	rowcount=0 

	strSql = 	"Select threadID, threadUser, threadLastReply, threadAns, ThreadAvailable, threadForumID"&_
			"From t_threads where threadForumID = "&forum
		set rs = objConn.execute(strSql)

If rs.eof then
	response.write "Inga trådar i detta forum"
	Call DBClose()
Else

	With rs 
		.Close 
		.Cursortype= 3 
		.Open 
		.Pagesize= 10
		End With

rs.absolutePage = cInt(page)

	posts = rs.recordCount
	Pz = rs.PageSize
	pagecount = ((posts-1) \ Pz -- 1

arrRecs = rs.GetRows(Pz)
	rs.close : Set rs = nothing
	Call DBClose()

response.write 	"<table width=""100%"" bgcolor=""#EFEFEF""><tr><td>Trådar</td></tr></table>"

If IsArray(arrRecs) Then
	For i = 0 To UBound(arrRecs,2) And rowcount < Pz
	posts(0) = arrRecs(0,i)
	posts(1) = arrRecs(1,i)
	posts(2) = arrRecs(2,i)
	posts(3) = arrRecs(3,i)
	posts(4) = arrRecs(4,i)
	posts(5) = arrRecs(5,i)
	posts(6) = arrRecs(6,i)

response.write 	"<table width=""100%"" bgcolor=""#FFFFFF"">"&_
			"<tr><td width=""2%""></td>"&_
			"<td width=""30%""><a href=""topic.asp?id="&rs("threadID")&""">"&rs("threadName")&"</a></td>"&_
			"<td width=""5%"">"&rs("threadUser")&"</td>"&_
			"<td width=""5%"">"&rs("threadAns")&"</td>"&_
			"<td width=""15%"">"&rs("threadLastReply")&"</td></tr></table>"&_
		
	Next
End IF
	rs.close : set rs = nothing
	Call DBClose()
If posts > Pz Then
For pagecounter = 1 to Pagecount
Response.write "<a href=""forum.asp?page="&pagecounter &"&id="&forum&""">"&pagecounter&"</a>"
Next
End IF
End IF
End IF
Call HTMLEnd()
%>
[/red]
```

Tackar ;)

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

## #2 — @nders, 2003-05-23T04:16Z

Du kan ju börja med att räkna start- och sluparenteser på den raden.

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

## #3 — PatrikB, 2003-05-23T05:52Z

.... de ska vara lika många .... :e

cya,
PatrikB

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

## #4 — m_soderlund, 2003-05-23T06:12Z

```
pagecount = ((Antal-1) \ Pz[b])[/b] -- 1
```

 ;) 
Glöm inte att ha en parentes. :)

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

## #5 — crisse6, 2003-05-23T12:59Z

oj!

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

## #6 — crisse6, 2003-05-23T13:01Z

forresten soderlund, du har ingen Foregaende och Nasta funktion? Kan iofs skriva en sjalv, men lattare om du har ;)

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

## #7 — m_soderlund, 2003-05-23T13:02Z

Nepp - desvärre inte crisse6. :( Och orkar inte skriva kod. ;)

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

## #8 — Nickemannen, 2003-05-23T13:09Z

```
If page >= 2 Then Response.Write "Previous" End If

If page < pagecount Then Response.Write "Next" End If
```

Borde fungera på det jag läst från koden

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

## #9 — crisse6, 2003-05-23T13:17Z

Men hur blir det pa sista posten da? Blir det inte en Next lank dar ocksa? :D

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

## #10 — Nickemannen, 2003-05-23T13:28Z

Ne det är bara om pagecount är mer än page som det listar ut.
Sista sidan är ju page och pagecount lika.

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

## #11 — Palle, 2003-05-23T13:31Z

Jag har ett pagingsystem där man brukar GetRows() som ligger och väntar på publicering i wF´s scriptarkiv.
voigtann1 är ju inte på forumet just nu så det kan nog ta en stund.. ;)

Den har en smidig navigering som man lätt själv kan kombinera på olika sätt.

Se [DEMO](http://www.rdt.nu/palle/default.asp)

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

## #12 — m_soderlund, 2003-05-23T13:37Z

Jag skrev och skrev, men datorn hängde sig och jag hade inte sparat. :(
Men Palle verkar i alla fall ha nåt på lut. :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/77803-dilenos-paging-blir-inte-ratt