Udtræk over flere sider

Paging, se eks her:

http://activedeveloper.dk/aspdigital/kapitel2/paging.asp

http://activedeveloper.dk/aspdigital/kapitel2/paging.asp

Bruger du mySQL så kig på dette eks:
http://activedeveloper.dk/aspdigital/2001112301.asp

Hmm, hvad er der gal her ???

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If


hentData = "SELECT * from driftinfo order by dato desc"
set rs = objCOnn.execute(hentData)
If Not (rs.BOF Or rs.EOF) Then

    rs.PageSize = 1
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount

Do While Not rs.EOF And intRecCount > 0
%>
<tr>
<td class="punktB"><% =rs("dato")%></td>
<td class="punktB"><% =rs("emne") %></td>
<td class="punktB"><a href="sec9.asp?mode=show&action=delete&id=<% =rs("id") %>">Slet</a></td>
</tr>
<%
intRecCount = intRecCount - 1
rs.movenext
loop while not rs.eof
end if
%>

loop while not rs.eof = loop
Klart nok ;)


Nu kommer den med fejlen:
ADODB.Recordset error '800a0cb3'
Object or provider is not capable of performing requested operation.

/v2/sec9.asp, line 43

DOOH glemmer jo lige at opsætte det rigtigt, nu virker det... TAK!

Du skal bruge rs.Open metoden og ikke Set rs = Con.....

Så rete denne linje:

set rs = objCOnn.execute(hentData)


Til:

Set rs = Server.CreateObejct("ADODB.Recordset")
rs.Open hentData, objCOnn, 1