---
title: "Konstigt fel i samband med paging..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/78328-konstigt-fel-i-samband-med-paging"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MickeA.com"
published: "2003-05-28T12:45:39.000Z"
updated: "2003-05-29T11:46:00.000Z"
replies: 7
views: 191
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/78328-konstigt-fel-i-samband-med-paging"
---

# Konstigt fel i samband med paging...

## #1 — MickeA.com, 2003-05-28T12:45Z

Hej

Får detta:

```
ADODB.Recordset (0x800A0CB3)
Aktuellt Recordset stöder inte bokmärken. Det kan bero på en begränsning av providern eller den valda markörtypen.
/ec/script/forum/fritt/ladda_amne.asp, line 48
```

Så här ser mitt script ut:

```
<%

'_____________________________________________________________

Dim oConn
Dim oRec
Dim strSQL

'_____________________________________________________________

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/forum_db.mdb"))

'_____________________________________________________________

nextPage = TRIM( Request( "nextPage" ) )
IF nextPage = "" THEN nextPage = 1

'_____________________________________________________________

Set oRec = Server.CreateObject("ADODB.Recordset")
oRec.CursorLocation = 3

strSQL= "SELECT ID, Amne, Skribent, Antal_Svar, Senaste_Svar, Senaste_Namn FROM tbl_forum WHERE Svar_ID = '0' AND Forum_ID = 'oppet' ORDER BY Senaste_Svar DESC;"

Set oRec = oConn.Execute(strSQL)
%>
<table width='100%' border='0' height='10'>
<tr><td height='10' width='50%' align='left'>Tråd</td><td width='20%' align='center'>Startad Av</td><td width='10%' align='center'>Svar</td><td width='20%' align='right'>Senaste Svar</td></tr>
<%
oRec.PageSize = 10 '<-- Här bestämmer du hur många inlägg det ska finnas på sidan
oRec.AbsolutePage = nextPage

Do While NOT oRec.EOF OR rowCount > oRec.PageSize
rowCount = rowCount + 1

%>
<tr><td height='10' width='50%' align='left'><font face='verdana' color='#000000' size='2'><%=oRec("Amne")%></td><td width='20%' align='center'><%=oRec("Skribent")%></td><td width='10%' align='center'><%=oRec("Antal_Svar")%></td><td width='20%' align='right'></font><font face='verdana' color='#000000' size='1'><%=oRec("Senaste_Svar")%><br>Av: <%=oRec("Senaste_Namn")%></font></td></tr>

<%	
	oRec.MoveNext

Loop
%>

<tr><td height='10' width='50%' align='left'>Tråd</td><td width='20%' align='center'>Startad Av</td><td width='10%' align='center'>Svar</td><td width='20%' align='right'>Senaste 
</table>
</body>
</html>
<%
IF oRec.PageCount > 1 THEN 

FOR a = 1 to oRec.PageCount
IF a <> cINT( nextPage ) THEN 
Response.Write "<a href='sida.asp?nextPage="& a &"'>"& a &"</a>"
ELSE 
Response.Write "&nbsp;"& a

END IF 
NEXT 
END IF

Set oConn = NOTHING
Set oRec = NOTHING
Set strSQL = NOTHING
%>
```

Men som sagt får jag det där felmesset.

Beror det på att ngt saknas på min IIS, eller är det fel o koden\`?!

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

## #2 — Sebbe, 2003-05-28T12:54Z

Ändra

```
Set oRec = Server.CreateObject("ADODB.Recordset")
oRec.CursorLocation = 3

strSQL= "SELECT ID, Amne, Skribent, Antal_Svar, Senaste_Svar, Senaste_Namn FROM tbl_forum WHERE Svar_ID = '0' AND Forum_ID = 'oppet' ORDER BY Senaste_Svar DESC;"

Set oRec = oConn.Execute(strSQL)
```

till

```
Set oRec = Server.CreateObject("ADODB.Recordset")

strSQL= "SELECT ID, Amne, Skribent, Antal_Svar, Senaste_Svar, Senaste_Namn FROM tbl_forum WHERE Svar_ID = '0' AND Forum_ID = 'oppet' ORDER BY Senaste_Svar DESC;"

oRec.Open strSQL, oConn, 1, 3
```

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

## #3 — MickeA.com, 2003-05-28T12:56Z

Ok, tack, nu laddas alla trådarna, men som jag tolkar det av scriptet så ska det skrivas ut en etta "1", om det bara finns en sida, men det gör visst itne det...

<http://MickeA.dynDNS.org/ec> \==\> Ec-Programmet ==\> Öppet Forum

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

## #4 — MickeA.com, 2003-05-28T14:56Z

Ingen som vet eller vill svara?

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

## #5 — solbulle, 2003-05-28T15:24Z

IF oRec.PageCount \> 1 THEN 

Om IF oRec.PageCount  är mer än 1 står det väl?

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

## #6 — MickeA.com, 2003-05-29T03:29Z

Ok, så då bör det alltså funka med koden som jag har ovan, tillsammans med Sebbe's korrigering?

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

## #7 — solbulle, 2003-05-29T09:53Z

Kanske är det lättast att testa? ;)

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

## #8 — MickeA.com, 2003-05-29T11:46Z

Jo, det ä rkju klart, men et är så jobbigt o skriva direkt i db'n, ska göra ett fomulär....snart.... ; ))

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/78328-konstigt-fel-i-samband-med-paging