paging problem

håller på med ett forum och kan inte få pagingen att funka:

Fel
Object or provider is not capable of performing requested operation.

/pages/forum.asp, line 170

userSQL= "Select * From Users Where UserID="& CInt(Session("devnetDevID"))
Set userprop=Conn.Execute(userSQL)

intPageSize  = userprop("MessagesPP")
intPage = Request.QueryString("page")
If intPage = "" Then intPage = 1

antaldgr=userprop("MessagesOld")
DispMessages=userprop("DispMessages")
userprop.close
Set userprop=Nothing

topicSQL="Select * From DevTopics Where ForumBel="& forum &" And DevTopMod >= '" & date()-antaldgr & "' Order By DevTopMod DESC"
Set topic=Conn.Execute(topicSQL)
topic.PageSize = intPageSize
topic.AbsolutePage = intPage
intTotalPages = topic.PageCount

If topic.EOF Then
Response.Write ""
Else
Do Until topic.EOF or intRecordCount >= intPageSize

intRecordCount = intRecordCount + 1

Rad 170:
topic.AbsolutePage = intPage

------------------
Data-Doktorn
Min egen musik!
Mitt coverband

[Redigerat av aleborg den 11 sep 2001]

Om du skapar recordsetet implicit med execute så går det inte att använda de egenskaperna.

Du måste skapa recordsetet explicit och sedan öppna det, t.ex.

SQL = "Select * From tabell Order by fält"

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("path/databas.mdb")
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"

Ovanstående exempel finns i sin helhet här http://cgi.webforum.nu/wf/arkiv/asp_faq.html#paging

------------------
essentitia preter non sans multiplicandum

Ett recordset genom connection objectet har tex inte "stöd" för .RecordCount, .AbsolutePage etc.

Ändra denna rad:

Set topic=Conn.Execute(topicSQL)

Till:

Set topic = Server.CreateObject("ADODB.Recordset")
topic.Open topicSQL, Conn, 3, 1

cya,
PatrikB

------------------
*ordning och reda!, pengar på fredag.*

Problemet är att vi använder SQL server!
Så din kod funkar inte så bra :(

Hur löser man det då?

------------------
Data-Doktorn
Min egen musik!
Mitt coverband

Tack :)

------------------
Data-Doktorn
Min egen musik!
Mitt coverband