<code>
If PageNo ="" then
PageNo = 1
PageNo = Trim(request.Querystring("PageNo"))
rst.CursorLocation = 3
rst.PageSize = 10
rst.AbsolutePage = PageNo
</code>

Så får jag felmedelande:

Provider error '80020005'

Type mismatch.

/dreamweaver/1024-768/user/imail/imail.asp, line 22

på rad 22 har jag koden.

<code>
rst.AbsolutePage = PageNo
</code>

vad är fel? Någon som kan se vad som är fel.


jag får också om jag ändrar att objektet är stängt.
och då har jag byt Trim till cLng
vad är då fel .
hur jag än gör så får jag deta felmeddelande.

Det handlar troligen om hur du öppnar ditt RS.

const adOpenForwardOnly = 0
  const adOpenKeyset = 1
  const adOpenDynamic = 2
  const adOpenStatic = 3
  const adLockReadOnly = 1
  const adLockPessimistic = 2
  const adLockOptimistic = 3
  const adLockBatchOptimistic = 4

Rs.Open Sql, Connection, adOpenStatic, adLockReadOnly, adCmdText

Det konstiga är också att jag prova även med

set rst = con.execute("sql satsen")
men lika så funka inte det heller.
Men ska prova med det du gav mig.


Problemet kvarstår ändå.

Får att det inte är tillåtet när objektet är låst.

den klagar på följande kod:

rst.absolutepage = PageNo

det är den raden som den alltid klagar på.
Även med din nya kod.

Jag utgår ifrån att du har instanserat ditt RS korrekt
>set rst = con.execute("sql satsen")
Du kan inte ha execute när du skall ha paging.

Hela koden är följande:

<code>
<%
const adOpenForwardOnly = 0
const adOpenKeyset = 1
const adOpenDynamic = 2
const adOpenStatic = 3
const adLockReadOnly = 1
const adLockPessimistic = 2
const adLockOptimistic = 3
const adLockBatchOptimistic = 4

If Request.querystring("PageNo") = ""then
PageNo = 1
end if

set con = server.createobject("adodb.connection")
con.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("databasen.mdb") & ";"
set rst = server.createobject("Adodb.RecOrdSet")
rst.CursorLocation = 3
rst.PageSize = 10
rst.Absolutepage = PageNo
sql ="select * from Imail where Tuser =" & cLng(session("AnvändarId"))
rst.Open Sql, Con, adOpenStatic, adLockReadOnly, adCmdText
response.write "Rubrik&nbsp;" & Rst("MessRubrik") & "<br>"
response.write "Meddleande&nbsp;" & Rst("Mess") & "<br>"

%>
</code>

Två fel:

Du har glömt att sätta något värde på PageNo ifall Request.Querystring("PageNo") inte är tom.

Då måste öppna recordsetet innan du väljer sida.

Så det räcker inte att ha med kontrollen
if cLng(request.querysdtring("PageNo") = "" then

PageNo = 1
end if

' så kan man inte skriva för att ge PageNo värde 1 om det är tomt?
Och seb öppnar recordset och
sen kör
rst.Cursorlocation = 3
rst.Pagesize = 10
rst.Absolutepage = PageNo

det är alltså fel att skriva dom 3 sist araderna efter att ha öppnat rst.

<code>
If Request.querystring("PageNo") = "" then
PageNo = 1
else
PageNo = PageNo
end if
set con = server.createobject("adodb.connection")
con.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/../../../../db/pluget-nu.mdb") & ";"
set rst = server.createobject("Adodb.RecOrdSet")
rst.CursorLocation = 3
rst.PageSize = 10
rst.Absolutepage = PageNo
</code>

fortfarande
samma fel:
får följande felmedleande:

<code>
ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed.

/dreamweaver/1024-768/user/imail/imail.asp, line 31
</code>

rad 31 har jag följande kod.

<code>
rst.AbsolutePage = PageNo
</code>

Hejean problemet är löst .
Problemet vet jag inte varför.
Men kolla på en gammal sida.
Skrev då inte med
<code>
rst.cursorLocation = 3
</code>
Och nu funkar det.

skrev istället.

<code>
set rst = server.createobject("Adodb.RecOrdSet")
sql fråga.
objekt.open sql,objek1,1,2
rst.Pagesize = 10
rst.AbsolutePage = pageNo
</code>
Nu funkar det. Nu ska jag bara göra en loop så den lägger in alla inläggen.
Har bara första inlägget av alla 11.

Har även då lakt till.

<code>
PageNo = Trim(request.querystring("PageNo"))
if PageNo = "" then
PageNo = 1
end if
</code>

Så var nog att jag hade den som heter
rst.cursorLocation = 3

som gjorde att min rst var låst.
Men fick att den skulle vara med var från en annan användare som fråga om Pagin.
Men då behöver man väll inte CursorLocation = 3
I övrigt vad gör just den raden för nytta i Paging?
Är den bara i vägen?
Hoppas på svar. :-)

Talet tre står för adUseClient, alltså att den ska använda ADOs markörfunktioner istället för databasens.

CursorLocation måste du sätta innan du öppnar recordsetet.