Paging

Hvilken fejl får du?

http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp

Prøv følgende script - det virker i hvert fald hos mig på en Access DB:

<%@language=\"VBSCRIPT\"%>
<%
Option Explicit
%>
<%
Dim Connect, rs, rs1, intPage, intRecCount, intPageCount

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"dsn_name\"

Set rs1 = Server.CreateObject(\"ADODB.Recordset\")
rs1.Open \"SELECT * FROM table_name\", Connect, 1, 3

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

If Not (rs1.BOF Or rs1.EOF) Then
    rs1.PageSize = 1
    rs1.AbsolutePage = intPage
    intRecCount = rs1.PageSize
    intPageCount = rs1.PageCount
    Do While Not rs1.EOF AND intRecCount < 0
    intRecCount = intRecCount - 1
    rs1.MoveNext
    loop
End if
%>
<html>
<head>
<title></title>
</head>
<body background=\"images/structure/popup_bg.jpg\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"5\" width=\"600\" align=\"center\">
    <tr>
        <td align=\"center\"><img src=\"images/galleri/<%=rs1(\"Billede\")%>\" border=\"1\"><br><br><font face=\"Verdana\" size=\"1\" color=\"#FFFFFF\">
<%
If Clng(intPage) > 1 Then
    Response.Write(\"<a href=\"\"galleri_popup.asp?page=\"&intPage - 1&\"&dato=\"&request(\"dato\")&\"\"\"><font face=\"\"Verdana\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\"><< Forrige</font></a>\")
Else
    Response.Write(\"<font face=\"\"Verdana\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\"><< Forrige</font>\")
End if
%>
<font face=\"Verdana\" size=\"1\" color=\"#FFFFFF\">&#32;-&#32;
<%
If Clng(intPage) <Clng(intPageCount) Then
    Response.Write(\"<a href=\"\"galleri_popup.asp?page=\"&intPage + 1&\"&dato=\"&request(\"dato\")&\"\"\"><font face=\"\"Verdana\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Næste >></font></a>\")
Else
    Response.Write(\"<font face=\"\"Verdana\"\" size=\"\"1\"\" color=\"\"#c0c0c0\"\">Næste >></font>\")
End if
%></font></td>
    </tr>
</table>
</body>
</html>

Problemet med at lade ADO klarer paging, er at hele recordsettet hentes ind i hukommelsen, så man kunne lige så godt lave en rs.mode <start af page> og så udskrive de næste <pagesize elementer>.

En alternativ løsning er at nøjes med at hente de records som man skal bruge, med følgende SQL. (Skrevet til MS SQL). Det kan virke lidt kringlet, men tro mig, hvis du har mange records så er den guld værd.

SELECT * FROM
(SELECT TOP 10 * FROM
  (SELECT TOP 30 * FROM Test ORDER BY RANK DESC) da
  ORDER BY rank) art
ORDER BY rank DESC

\'10\' er antallet af records du vil have ud.
\'30\' er starten af din recordpage + antallet af records
\'(SELECT TOP 30 * ...) da\' er selve din forspørgsel
\'rank\' er den parameter du vil sorterer efter. (Bemærk at sorteringsrækkefølgen skifter)

der var intet der virkede....
sorry

Hvad melder den af fejl?

Og hvilken version af ADO bruger du. (det kan du nemt finde ud af med \'Connect.Version\')

Tak for hjælpen.... virkede ikke !?
Sikkert min fejl...