webForumDet fria alternativet

Paging problem..

8 svar · 520 visningar · startad av N0M0NEY

N0M0NEYMedlem sedan juli 200543 inlägg
#1

Tja !

Jag får detta meddelande:

ADODB.Recordset error '800a0e79'

Operation is not allowed when the object is open.

/olles/Guestbook.asp, line 126

När jag la in en paging i min gästbok.
Min kod ser ut såhär:
http://www.aspsidan.se/code/default.asp?c=5158&error=36
(Jag har tagit bort all onödig html kod)
Min databas är MySQL och det fungerar utan pagingen.
Så alla tabell namn och sånt stämmer.

Någon som vet ? ^o)

MVH. Daniel

EDIT: Jag använde exakt den koden som fanns i artikeln förut men då fick jag samma meddelande fast closed.
Då sökte jag i forumet och dom flesta hade löst det med:
RecSet.CursorLocation = 3
så jag provade de så fick jag detta.
Har även provat med
RecSet.Open "Select * from tblguestbook order by fldcreated desc",Conn,1,2
Men samma problem..

@ndersMedlem sedan juni 200032 969 inlägg
#2

Du får se till att öppna recordset på rätt sätt också. Borde väl kunna se ut typ så här:

Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.CursorLocation = 3
RecSet.PageSize = 10
RecSet.AbsolutePage = sida
RecSet.Open "Select * from tblguestbook order by fldcreated desc", Conn

Se till att du har skapat sida innan du öppnar recordsetet.

Du kan behöva ange cursortyp också innan du öppnar recordsetet.

http://www.devguru.com/technologies/ado/8686.asp

N0M0NEYMedlem sedan juli 200543 inlägg
#3

Får detta fel då
ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed.

/olles/Guestbook.asp, line 120

Ser ut såhär nu

Dim Answer,RecSet,sida
sida = Trim(Request.QueryString("sida"))
If sida = "" Then
sida = 1
End If

Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.CursorLocation = 3
RecSet.PageSize = 10
RecSet.AbsolutePage = sida
RecSet.Open "Select * from tblguestbook order by fldcreated desc", Conn

EDIT: om jag sätter RecSet.AbsolutPage = sida som är rad nmr 120 under RecSet.Open skriver den ut allting men då alla inlägg.
Inte 10 .

@ndersMedlem sedan juni 200032 969 inlägg
#4

Vad är rad 120 då?

N0M0NEYMedlem sedan juli 200543 inlägg
#5

@nders skrev:

Vad är rad 120 då?

RecSet.AbsolutePage = sida

@ndersMedlem sedan juni 200032 969 inlägg
#6

Flytta den raden till efter .Open.

N0M0NEYMedlem sedan juli 200543 inlägg
#7

Då skriver den ut allting.
Alltså alla inlägg.
Inte bara 10 utan alla !

N0M0NEYMedlem sedan juli 200543 inlägg
#8

Nu fungerar det.
Det var fel i loopen. !
Tack så hemskt mycket

MVH Daniel

@ndersMedlem sedan juni 200032 969 inlägg
#9

Vasse! :)

Mvh

133 ms totalt · 3 externa anrop · v20260731065814-full.3ab8d573
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)