---
title: "paging-prob"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/46247-paging-prob"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "webzonen"
published: "2002-06-19T13:23:17.000Z"
updated: "2002-06-19T16:25:34.000Z"
replies: 2
views: 234
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/46247-paging-prob"
---

# paging-prob

## #1 — webzonen, 2002-06-19T13:23Z

använder denna kod:

```
<%

till = Session("nick")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\wwwroot\community\data\db.mdb"
iPoster_Sida=10
If Request.QueryString("page") = "" Then
	iPageCurrent = 1
Else
	iPageCurrent = CInt(Request.QueryString("page"))
End If

SQL = "SELECT * FROM Meddelanden WHERE f_Till='Chrille-Boy' ORDER BY f_Read DESC"
Set RS= Server.CreateObject("ADODB.Recordset")

RS.PageSize = iPoster_Sida

RS.CacheSize = iPoster_Sida
RS.Open SQL, Connect

iPageCount = RS.PageCount
Response.Write RS.PageCount
If iPageCurrent > iPoster_Sida Then iPageCurrent = iPoster_Sida
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
	Response.Write "Du har inga meddelanden!"
Else
 RS.AbsolutePage = iPageCurrent

        %>
visa meddelanden koden (onödig här)
<%

RS.Close
Set RS=nothing
 Connect.Close
Set Connect=nothing
End If
If iPageCurrent > 1 Then
%>
	<a href="testa.asp?page=<%= iPageCurrent - 1 %>">[&lt;&lt; Föregående]</a>
	<%
End If

' You can also show page numbers:
For I = 1 To iPageCount
	If I = iPageCurrent Then
		%>
		<%= I %>
		<%
	Else
		%>
		<a href="testa.asp?page=<%= I %>"><%= I %></a>
		<%
	End If
Next 'I

If iPageCurrent < iPageCount Then
	%>
	<a href="testa.asp?page=<%= iPageCurrent + 1 %>">[Nästa &gt;&gt;]</a>
	<%
End If

%>
```

får felmeddelandet:
ADODB.Recordset fel '800a0cb3' 

The operation requested by the application is not supported by the provider. 

/paging/testa.asp, rad 35

och jag testa skriva ut RS.PageCount, den blir -1 hela tiden

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

## #2 — @nders, 2002-06-19T13:43Z

RS.Open SQL, Connect, 3, 3

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

## #3 — webzonen, 2002-06-19T16:25Z

jo, du hade än en gång rätt @nders..... TACK!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/46247-paging-prob