---
title: "Fel på paging vid byte till mysql"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/142104-fel-på-paging-vid-byte-till-mysql"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Nova"
published: "2006-02-07T06:05:44.000Z"
updated: "2006-02-07T15:46:50.000Z"
replies: 2
views: 282
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/142104-fel-på-paging-vid-byte-till-mysql"
---

# Fel på paging vid byte till mysql

## #1 — Nova, 2006-02-07T06:05Z

Jag håller på att byta databas från Access 2000 till Mysql. Det har gått hyffsat bra ända tills jag kom till pagining.

```
strSQL = "SELECT recgruppkopp.*, Recept.Receptnr, Recept.rec_namn1 FROM Recept INNER JOIN recgruppkopp ON Recept.Receptnr = recgruppkopp.Receptnr WHERE recgruppkopp.gruppid =  " & FixqueryInject("gruppid") & " ORDER BY rec_namn1 ASC"
Set forRS = Server.CreateObject("ADODB.Recordset")
forRS.Open strSQL, objConn, 1, 3

With forRS
  [B].AbsolutePage = intPage[/B]
  .PageSize = 10 'Ändra 10 till så många poster du vill ha per sida.
End With

  Do Until forRS.EOF OR intCount = forRS.PageSize
    With Response
      .Write  "<A HREF='recept.asp?Receptnr=" & forRS("Receptnr") & "&amp;gruppid="&forRS("gruppid") &"&amp;for="& intPage &"' title='"&forRS("rec_namn1")&"'>"& forRS("rec_namn1")& "</a><br>"
    End With
    forRS.MoveNext
    intCount = intCount + 1
  Loop
 response.Write ("<p>")
  If forRS.PageCount > 1 Then
    If intPage > 1 Then
	
      Response.Write("<b><a href=""recept.asp?for=1"&"&amp;gruppid="& FixqueryInject("gruppid")&"&amp;text_nr="& FixqueryInject("gruppid")&""">Första"&"</a></b> ")
     
   
    End If

    For i = 1 To forRS.PageCount
      If i <> intPage Then
        Response.Write("<b><a href=""recept.asp?for=" & i & "&amp;gruppid="&FixqueryInject("gruppid")&"&amp;text_nr="& FixqueryInject("gruppid")&""">" & i & "</a> </b>")
      Else
        Response.Write(i & " ")
      End If
    Next

    If intPage < forRS.PageCount Then
            Response.Write("<b><a href=""recept.asp?for=" & forRS.PageCount & "&amp;gruppid="& forRS("gruppid")&"&amp;text_nr=" &forRS("gruppid")&""">Sista</a></b> ")
    
     
    End If
  End If
```

Och jag får detta felmedelande

```
Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.
/webshop/wwwroot/recept.asp, line 841
```

Line 841 är denna 

```
.AbsolutePage = intPage
```

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

## #2 — yohpops, 2006-02-07T06:40Z

Prova att ändra "forRS.Open strSQL, objConn, 1, 3" till "forRS.Open strSQL, objConn, 2, 3".

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

## #3 — Nova, 2006-02-07T15:46Z

Jag hittade lösning här på forumet, jag sökte inte nog bra i morse när jag var nyvaken.

```
forRs.cursorlocation = 3
forRS.Open strSQL, objConn
```

Är lösningen som LarsG hade skrivit i en annan tråd.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/142104-fel-på-paging-vid-byte-till-mysql