---
title: "Paging, igen"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13948-paging-igen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "web00132"
published: "2002-01-22T21:45:00.000Z"
updated: "2002-01-23T06:49:00.000Z"
replies: 7
views: 235
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/13948-paging-igen"
---

# Paging, igen

## #1 — web00132, 2002-01-22T21:45Z

Jag gjorde precis som PatrikB beskrivit 
[här](http://cgi.webforum.nu/wf/Forum11/HTML/003221.html). Och det fungerade bra.

Men nu undrar jag, när jag lägger till att jag vill ha fram ett recordset där alla poster börjar med en speciell bokstav så säger den:
"Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record."

vid:

```
rsitems.AbsolutePage = intPage
```

Vad beror detta på?

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

## #2 — LarsG, 2002-01-22T22:00Z

Det beror på att du får ett tomt recordset tillbaka, det finns alltså inga poster i databasen som uppfyller ditt villkor.

Om du använder skriptet precis som i inlägget så borde det räcka att ändra detta 

```
'## -- vilken sida i recordset uppdelningen ska visas --
objRS.AbsolutePage = intPage

'## -- hur många sidor finns i recordset uppdelningen --
intTotalPages = objRS.PageCount

If objRS.EOF Then
Response.Write "Det finns inga inlägg."
Else
```

till

```

If objRS.EOF Then
Response.Write "Det finns inga inlägg."
Else
'## -- vilken sida i recordset uppdelningen ska visas --
objRS.AbsolutePage = intPage

'## -- hur många sidor finns i recordset uppdelningen --
intTotalPages = objRS.PageCount
```

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

## #3 — JonasT, 2002-01-22T22:15Z

Finns det inget script där man bara behöver fylla i sökvägen till databasen för att få paging?

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

## #4 — web00132, 2002-01-22T22:16Z

Ja, tack, nu visas sidan iaf. Men den borde returnera poster från DB:n.

Så här blir SQL-satsen efter att servern behandlat den:

```
SELECT * FROM pop WHERE itemname LIKE 'f*' ORDER BY itemname;
```

...och den stämmer ju. Den funkar om jag kör den direkt i Access. Och den ser ut så här om jag visar den i browsern.

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

## #5 — LarsG, 2002-01-22T22:22Z

Like är lite olika beroende på vilken drivrutin man använder.

Om du använder OLEDB som provider så är det bättre att använda % istf \*

```
SELECT * FROM pop WHERE itemname LIKE 'f%' ORDER BY itemname
```

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

## #6 — web00132, 2002-01-22T22:24Z

Tänkte precis skriva att jag redan testat det men det hade jag uppenbarligen inte. Tack ska du ha!

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

## #7 — MaxPayne, 2002-01-23T02:22Z

Hakar på tråden här lite! Jag är intresserad av att lära mig hur man gör paging på själva pagingen!
Det kan ju bli en väldans massa sifferlänkar med mycket info annars!

Tips?

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

## #8 — PatrikB, 2002-01-23T06:49Z

ok, för att göra paging på pagingen :e

2 Subbar, en för pagebaren och en för paging på page baren:

```
	'## -- show all pages as numbers and linked to page --
	Public Sub PageNo(ByVal iPage, iTotPages, iPageSize)
		Dim N
		Dim intPageCount, intPageSpan, intStart
		
		If Not g_objFunc.IsArgument(iPage) OR Not g_objFunc.IsArgument(iTotPages) Then Exit Sub

		'## -- last page in pagespan --
		intPageSpan = PageSpan(iPage, iPageSize)
		
		'## -- start page in pagespan --
		intStart = (intPageSpan - iPageSize) + 1

		'## -- show pagenumbers --
		For N = intStart TO intPageSpan
			intPageCount = intPageCount + 1
			If N <> CLng(iPage) Then
				Response.Write "<A href=""" & g_strScriptName & "?page=" & N & """ " & _
					"class=""winContent"">" & _
					N & "</A> "
			Else
				Response.Write "<B>" & N & "</B> "
			End If
			If N = iTotPages Then Exit For
		Next
	End Sub
	
	'## -----------------------------------------------------------------------

	'## -- paging on pagenumbers --
	Public Function PageSpan(ByVal iPage, ByVal iPageSpan)
		Dim m_intPageSpan, m_intRest
		m_intPageSpan = iPage / iPageSpan
		
		If m_intPageSpan < 1 Then
			m_intPageSpan = 1
		Else
			m_intRest = m_intPageSpan - CLng(m_intPageSpan)
			
			If m_intRest > 0 AND m_intRest < 0.5 Then
				m_intPageSpan = CLng(m_intPageSpan) + 1
			Else
				m_intPageSpan = CLng(m_intPageSpan)
			End If
		End If
		
		'## -- return last page in pagespan --
		PageSpan = m_intPageSpan & "0"
	End Function
```

cya,
PatrikB

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

---

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