---
title: "Funktion för paging"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/60275-funktion-för-paging"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "andreasw"
published: "2002-11-26T08:02:25.000Z"
updated: "2002-11-26T09:32:37.000Z"
replies: 6
views: 252
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/60275-funktion-för-paging"
---

# Funktion för paging

## #1 — andreasw, 2002-11-26T08:02Z

Jag försöker göra en pagingfunktion men får inte till det riktigt. Antar att det är något jag missförstått.

```
' Hämta Recordset med Paging ========================================================
Dim objRs, intPageId, intCurrentPost, intPages
Public Function getPagedRs(strSql, intPageSize)
Dim objConn
Set objConn = getConn()
Set objRs = Server.CreateObject("ADODB.RecordSet")
	
intPageId = request.querystring("page_id")
if intPageId = "" then intPageId = 1
	
With objRs
   .cursorlocation = 3   		
   .open strSql, objConn   		
   If Not objRs.EOF Then
     .pagesize = intPageSize 
     .absolutepage = intPageId 
  End If
End With
	
intPages = CInt(objRs.pagecount) 	
intCurrentPost = 0 	

Set getPagedRs = objRs
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
End Function
```

Jag försöker hämta recsetet med

```
strSql = "SELECT id, name, city FROM retailers WHERE " & strMethod & " LIKE '" & sqlFix(Request.Querystring("q")) & "%' ORDER BY " & strMethod
						
Set rs = getPagedRs(strSql, 10)

[B]If rs.EOF Then 'Line 132[/B]
```

Jag får felmeddelandet 

ADODB.Recordset error '800a0e78' 
Operation is not allowed when the object is closed. 
/admin/retailers.asp, line 132

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

## #2 — icaaq, 2002-11-26T08:07Z

Felmedelandet du får beror på att du har stängt ditt connection-object.

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

## #3 — andreasw, 2002-11-26T08:13Z

Är du säker på det? Jag trodde att jag kunde förstöra det när jag lagt över obj Rs i rs. 
Har sett flera exempel på att man kan göra så här på wf. T ex <http://www.webforum.nu/showthread.php?s=&postid=484811#post484811>

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

## #4 — OveRRidE, 2002-11-26T08:58Z

> **andreasw skrev:**
>
> Är du säker på det? Jag trodde att jag kunde förstöra det när jag lagt över obj Rs i rs. 
> Har sett flera exempel på att man kan göra så här på wf. T ex <http://www.webforum.nu/showthread.php?s=&postid=484811#post484811>

Redigering) Jag skrev fel, men jag såg även vad som var problemet. 

Du får inte använda metoden .close innan när du returnerar från en funktion på det sättet. Tilldela bara objektet 'nothing' så kommer det fungera. Att använda close och sätta nothing är inte samma sak.

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

## #5 — andreasw, 2002-11-26T09:04Z

Betyder det att jag inte skall förstöra connection-objektet i funktionen utan efter att jag använt det utanför funktionen? 

Jag lägger ju över RecordSet-objektet i variabeln rs innan jag förstör det. Eller?

```
[b]Set getPagedRs = objRs[/b]
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
```

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

## #6 — andreasw, 2002-11-26T09:05Z

Du han före mig med redigeringen OveRRidE. Skall genast testa. Tack.

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

## #7 — andreasw, 2002-11-26T09:32Z

Nu fungerar det. Tack för hjälpen.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/60275-funktion-för-paging