PLANKA.COM

<% SQL = "Select * From members Order by username" Set rstemp = Server.Createobject("ADODB.Recordset") MdbFilePath = Server.MapPath("database/members.mdb") rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"%>

<% rs.movefirst rs.pagesize = mypagesize maxcount = Cint(rs.pagecount) rstemp.absolutepage = mypage howmanyrecs = 0 howmanyfields = rs.fields.count -1 Do While Not RS.EOF AND howmanyrecs < rstemp.pagesize counter = counter + 1 If counter mod 2 = 0 then color = "#FFFFFF" Else color = "#F0F0F0" End If %> <% RS.Movenext howmanyrecs = howmanyrecs + 1 Loop RS.Close Cn.Close %>


Användare:	Stad:	Min. online:	Bild:

"><%Response.Write RS("username")%> <%=left(rs("kon"),1)%><%=RS("alder")%>	<%=RStemp("stad")%>	<%Response.Write RS("minonline")%> min.

<% If maxcount <> 0 then pad = "0" scriptname = request.Servervariables("script_name") for counter = 1 to maxcount If counter >= 10 then pad = "" End If ref = "" & pad & counter & " " response.write ref & " " Next End If %>

``` Permalänk: https://www.webforum.nu/p/13433 ## #2 — SPiN, 2001-12-30T17:27Z Och vilken rad är rad 109? Permalänk: https://www.webforum.nu/p/302047 ## #3 — antar, 2001-12-30T17:31Z rs.absolutepage = mypage Permalänk: https://www.webforum.nu/p/302048 ## #4 — antar, 2001-12-30T17:31Z Aktuellt Recordset stöder inte bokmärken. Det kan bero på en begränsning av providern eller den valda markörtypen. Permalänk: https://www.webforum.nu/p/302049 ## #5 — SPiN, 2001-12-30T17:34Z Varför har du två stycken recordset's? Du försöker använda rstemp, som inte är öppnat - därav felmeddelandet skulle jag gissa på. Varför har du med ett recordset som heter rstemp? Du använder det aldrig ju! Permalänk: https://www.webforum.nu/p/302050 ## #6 — antar, 2001-12-30T17:35Z nope har inte rstemp Permalänk: https://www.webforum.nu/p/302051 ## #7 — antar, 2001-12-30T17:36Z ops jo fast nu får jag ADODB.Recordset (0x800A0CB3) Aktuellt Recordset stöder inte bokmärken. Det kan bero på en begränsning av providern eller den valda markörtypen. /onlinelistan.asp, line 99 rs.absolutepage = mypage Permalänk: https://www.webforum.nu/p/302052 ## #8 — PatrikB, 2001-12-30T17:39Z för att recordsetet är inte "ställt" så att du får "röra" dig fritt i det. Du måste lägga till: rs.CursorType = 1 rs.LockType = 3 eller rs.Open strSQL, objConn, 1, 3 cya, PatrikB Permalänk: https://www.webforum.nu/p/302053 ## #9 — PatrikB, 2001-12-30T17:42Z denna rad: set rs=conn1.execute(strsql1) skapar ett nytt recordset och förstör det som du skapade med ADODB.Recordset. För att kunna använda denna metod av paging MÅSTE du använda dig av ADODB.Recordset så ovanstående rad kan du fimpa. rs.PageSize måste oxå sättas innan du öppnar recordsetet, lixom CursorType och LockType. cya, PatrikB Permalänk: https://www.webforum.nu/p/302054 ## #10 — antar, 2001-12-30T17:48Z såhär???: Set conn1 = Server.CreateObject("ADODB.Connection") conn1.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&"" strsql1 = "SELECT \* FROM members where status = 'online'" Set Rs = Server.CreateObject("ADODB.Recordset") rs.cursorlocation = 3 rs.cachesize = 5 rs.Open strsql1, objConn, 1, 3 %\> Permalänk: https://www.webforum.nu/p/302055 ## #11 — antar, 2001-12-30T18:15Z hoooohooo Permalänk: https://www.webforum.nu/p/302056 ## #12 — PatrikB, 2001-12-30T19:06Z med dina variabler: ``` rs.Open strsql1, Conn1, 1, 3 ``` cya, PatrikB Permalänk: https://www.webforum.nu/p/302057 ## #13 — antar, 2001-12-30T19:13Z tack så mycket missade det :-) Permalänk: https://www.webforum.nu/p/302058 --- Tråden på webben: https://www.webforum.nu/amne/asp/13433-paging-fel