---
title: "Paging, lokalisera felet vinn en påse muffins= )"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/121688-paging-lokalisera-felet-vinn-en-påse-muffins"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "cubic"
published: "2005-02-03T21:42:25.000Z"
updated: "2005-02-04T06:02:45.000Z"
replies: 4
views: 424
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/121688-paging-lokalisera-felet-vinn-en-påse-muffins"
---

# Paging, lokalisera felet vinn en påse muffins= )

## #1 — cubic, 2005-02-03T21:42Z

Någon som vill lokalisera problemet eller rättare sagt kan hitta det?!

```
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("anteckningsblock.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT datum, rubrik, gengre, special, handelse From block ORDER BY Datum Desc"

%>
<% 	
Set Data = conn.Execute(SQL)

Do until data.EOF
%>
	<%'Detta är DEL1 i PAGING KODEN den del som är uttabbad är pagingkod!!!!
	
	Dim sida
	sida = Trim(Request.QueryString("sida"))
	If sida = "" Then
	sida = 1
	End If
	

[B]RAD35[/B]     RecSet.PageSize = 3
	RecSet.AbsolutePage = sida
	%>
	
	<%' Detta är del 2 i pagingkoden Den del som är UTtabbad ett hack är PAGING!!!!
	Dim rad
	rad = 0
	While Not RecSet.EOF and rad < RecSet.PageSize
	rad = rad + 1
	%>

Här kommer response.write data("rubrik")
och andra databas utskrivningar samt textformatering.

	<%RecSet.MoveNext%>
	<%Wend%>
	
<%Detta är 3e delen i PAGING koden! Den kod som är uttabad ett hack är PAGING KOD!!!! OBS OBS OBS%>
	<%If RecSet.PageCount > 1 Then
	For i = 1 to RecSet.PageCount
	If i = CLng(sida) Then
	Response.Write "[" & i & "]&nbsp;"
	Else
	Response.Write "<a href=""ms_anteckningleft.asp?sida=" & i & """>" & i & "</a>&nbsp;"
	End If
	Next
	End If%>

<% 

data.MoveNext
loop

RecSet.Close: Set RecSet = Nothing
data.Close: Set data = Nothing
conn.Close: Set conn = Nothing

%>
```

Ok här har ni en ?enkel paging kod skall göra den snyggare så att ni som vill saxa kod kan ta den. Eftersom jag gjorde det från början= ).

Men först måste vi lösa ett problem nämligen att jag får följande felmeddelande:

ADODB.Recordset- Error '800a0e78' 

Åtgärden är inte tillåten när objektet är stängt. 

rad 35

Någon som vill lokalisera problemet eller rättare sagt kan hitta det?!

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

## #2 — Troxy, 2005-02-03T22:15Z

Hm, jag kan inte lösa problemet, men jag antar att det är för att du först skapar ett RecSet där uppe som aldrig öppnas, sedan skapar du Data, och RecSet och Data har inget med varandra att göra där.

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

## #3 — cubic, 2005-02-03T22:19Z

Ok har du lust att förklara lite mer på detta? Hur man kollar det med en If-sats så vore du grymt sjysst. Du eller NI ser inget annat som kan vara tok?

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

## #4 — SprayMaphia, 2005-02-03T23:11Z

Set Data = conn.Execute(SQL)

Do until data.EOF

Ska vara såhär:

Set RecSet = conn.Execute(SQL)

Do until RecSet.EOF

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

## #5 — @nders, 2005-02-04T06:02Z

Skall man använda paging måste man skapa ett recordset med cursortyp som tillåter det. När man skapar sitt recordset som du gör så skapas det med en standard forward-only cursor som inte har de egenskaper du vill använda. Prova något sånt här:

```
Set RecSet = Server.CreateObject("ADODB.RecordSet")
RecSet.Open SQL, Conn, 3, 1 ' cursortyp 3 är adOpenStatic
```

<http://www.devguru.com/technologies/ado/quickref/recordset_open.html>

mvh

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/121688-paging-lokalisera-felet-vinn-en-påse-muffins