---
title: "Problem med paging"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/74725-problem-med-paging"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Qimen"
published: "2003-04-22T18:56:11.000Z"
updated: "2003-04-23T20:26:38.000Z"
replies: 22
views: 506
page: 1
pages: 2
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/74725-problem-med-paging"
---

# Problem med paging

_Sida 1 av 2._

## #1 — Qimen, 2003-04-22T18:56Z

Hej

Har fått problem med ett paging script som inte vill funka numera då jag använder mysql istället för access.

```
<%
sida = TRIM( Request( "sida" ) )
	If sida = "" Then sida = 1

RecSet.PageSize = 10
RecSet.AbsolutePage = sida

Do until RecSet.EOF OR rowCount = RecSet.PageSize
	rowCount = rowCount + 1

color = color+1

	If color mod 2 = 0 then
		bgcolor="#ffffff"
	Else
		bgcolor="#cccccc"	
	End If
%>
```

och sedan för sidnumreringen:

```
<%
If RecSet.PageCount > 1 Then 

For a = 1 to RecSet.PageCount
If a <> cINT( sida ) Then 
Response.Write "<a href='medlemmar.asp?sida="& a &"'>"& a &"</a>"
Else 
Response.Write "<b>"&a&"</b>"

End If 
Next
End If
```

Jag tror problemmet ligger vid **RecSet.AbsolutePage = sida** 
Hur kan jag lösa detta?

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

## #2 — Sebbe, 2003-04-22T19:01Z

```
sida = Trim(Request.QueryString("sida"))
sida = CInt(sida)
```

Det kanske gör något? :)

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

## #3 — Qimen, 2003-04-22T19:05Z

Var ska jag lägga in den/ersätta med?

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

## #4 — Sebbe, 2003-04-22T19:06Z

Ersätt

```
sida = TRIM( Request( "sida" ) )
```

med det. :)

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

## #5 — Qimen, 2003-04-22T19:09Z

hmm  :l 
Inkompatibla typer: 'CInt'

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

## #6 — Sebbe, 2003-04-22T19:13Z

Det här då?

```
sida = Trim(Request.QueryString("sida"))
If IsNumeric(sida) Then
  sida = CInt(sida)
Else
  sida = 1
End If
```

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

## #7 — Qimen, 2003-04-22T19:15Z

Hmmm men alltså problemmet kvarstår ju vid:
RecSet.AbsolutePage = sida
Där den får problem. 
Objektet eller providern kan inte utföra den begärda åtgärden.

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

## #8 — Sebbe, 2003-04-22T19:28Z

Hur öppnar du ditt recordset?

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

## #9 — Qimen, 2003-04-22T19:30Z

RecSet.Open SQL, Connect, 3,3 ?

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

## #10 — Sebbe, 2003-04-22T19:31Z

Jag tror nog att det går bättre med

```
RecSet.Open SQL, Connect, 1, 3
```

 :)

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

## #11 — Qimen, 2003-04-22T19:32Z

hmm nu får jag inget fel, och dem visar så många som jag ställt in men jag får inte upp sidnumreringen?

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

## #12 — Sebbe, 2003-04-22T19:34Z

Kör med 

```
sida = TRIM( Request( "sida" ) )
	If sida = "" Then sida = 1
```

 istället för min kod, så ska det nog gå bra. :)

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

## #13 — LarsG, 2003-04-22T19:38Z

```
recset.cursorLocation = 3 ' adUseClient
RecSet.Open SQL, Connect, 3,3
```

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

## #14 — Qimen, 2003-04-22T19:42Z

> **LarsG skrev:**
>
> ```
> recset.cursorLocation = 3 ' adUseClient
> RecSet.Open SQL, Connect, 3,3
> ```

\--\> Dataprovidern eller annan tjänst returnerade en E_FAIL-status.
/spel/secure/medlemmar.asp, line 120

rad 120: 

```
If RecSet.PageCount > 1 Then
```

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

## #15 — LarsG, 2003-04-22T20:16Z

Jaha, då vet jag inte. har aldrig set det meddelandet förut.

Kan du inte skriva om alltihop med hjälp av limit?

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

## #16 — Qimen, 2003-04-22T20:22Z

Ajdå:OO :r 
Vet inte hur jag ska skriva om det då.

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

## #17 — mikul, 2003-04-22T21:21Z

.AbsolutPage funkar väll inte äns mot MySQL, eller har jag fel?
Använd SQL-funktionen limit. ;)

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

## #18 — mikul, 2003-04-22T21:39Z

Detta borde funka ganska bra...

```
postPerSida = 10
if not Isnumeric(request.querystring("page")) Or request.querystring("page") = "" Then
	sida = 1
else
	sida = cInt(request.querystring("page"))
end if

set connect = server.createObject("ADODB.Connection")
connect.open "Driver=MySql;server=***;user=***;pwd=***;database=***"

Query = "Select * From tbl limit " & (sida - 1) * postpersida & ", " & postpersida
set rs = connect.execute(query)

while not rs.eof
	response.write rs("fld") & "<br>"
	rs.movenext
wend

set rs = connect.execute("Select Count(*) from tbl")
antalposter = rs(0)
rs.close : set rs = nothing

response.write "<br>"
For i = 1 to cint(antalposter-posterpersida) step posterpersida
	if not i = sida Then
		response.write "<a href=""?page=" & i & """>" & i & "</a> "
	else
		response.write " [" & i & "] "
	end if
next
```

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

## #19 — PatrikB, 2003-04-23T06:39Z

Jo då, AbsolutePage, PageCount, RecordCount borde funka med .CursorLocation = 3 (dvs ett client-side recordset) mot MySQL.

Har du provat att lägga .AbsolutePage efter att du öppnat recordsetet?

Limit paging blir segare och segare ju fler poster som finns i databasen och ju längre "bort i pagingen" man kommer.

cya,
PatrikB

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

## #20 — PatrikB, 2003-04-23T06:40Z

En annan sak. Vilken provider används? MyODBC eller MySQL Provider?

cya,
PatrikB

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/74725-problem-med-paging  
Nästa sida: https://www.webforum.nu/amne/asp/74725-problem-med-paging/page2.md