[ASP] Absolutepage werkt niet

[Phenomenon]

Opgelost:http://gathering.tweakers...message/19913410#19913410

Ik probeer een pagina te maken met recordtelling, zodat je naar pagina's kunt springen, maar op de één of andere manier behoudt hij steeds dezelfde pagina.

Volgende gebruik ik.

ASP:

Dim Q_LeverancierNum
Dim Q_ArtNummer 'Toevoegen aan bestellingslijst
Dim Cm 'Commmand voor bestellingslijst
Dim Rst_Leverancier 'Recordset voor leveranciers
Dim Rst_Artikelen 'De Recordset voor de artikelen
Dim Sql_Artikelen 'De Sql voor artikelen

Dim Sortering 'Voor de artikelen te sorteren
Dim Opmerking 'Memoveld dus bug

'//Paging
Dim iPageSize       'How big our pages are
Dim iPageCount      'The number of pages we get back
Dim iPageCurrent    'The page we want to show
Dim iRecordsShown   'Loop controller for displaying just iPageSize records
Dim I               'Standard looping var

'Parameters halen
iPageSize = 20   '//Hoeveel artikelen per pagina.
iPageCurrent = 1 '//Wordt later veranderd als er een querystring is

Q_LeverancierNum = CInt(Request.QueryString("LeverancierNum"))
Q_ArtNummer = CInt(Request.QueryString("Toevoegen"))
iPageCurrent = Cint(Request.QueryString("page"))
...........................

'//Sql Artikelen opbouwen
If Request.QueryString("sortering") = "" Then
    Sortering = "plu"
Else
    Sortering = Replace(Request.QueryString("sortering"), "'", "''")
End If

' Alleen door ons toegekende velden mogen op gesorteerd worden
Sortering = LCase(Request.QueryString("sortering"))
Select Case Sortering
    Case "omschrijving"
        ' Beetje onnodig maar.....
        Sortering = Sortering
    Case Else
        Sortering = "plu"
End Select

'// De Sql opbouwen
Sql_Artikelen = "SELECT * FROM Artikelbestand WHERE LevId =" & Q_LeverancierNum & " AND Saneren = False AND Inkoopprijs <> 0 AND Not Isnull(Omschrijving) ORDER BY " & Sortering

Set Rst_Artikelen = Server.CreateObject("ADODB.Recordset")
Rst_Artikelen.PageSize = iPageSize
Rst_Artikelen.CacheSize = iPageSize
Rst_Artikelen.Open Sql_Artikelen, Con, adOpenStatic, adLockReadOnly, adCmdText

'//Paging
iPageCount = Rst_Artikelen.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

Rst_Artikelen.AbsolutePage = iPageCount
%>
.......................
<% If iPageCount = 0 Then %>
   <div class="note">Er zijn geen artikelen gevonden.</div>
<% Else %>
     iRecordsShown = 0
     Do While iRecordsShown < iPageSize And Not Rst_Artikelen.EOF %>
     <tr>
       <td><%=Rst_Artikelen("Plu")%></td>
       <td><%=Rst_Artikelen("Omschrijving")%></td>
       <td><% If Rst_Artikelen("StuksArtikel") = True Then %>Stuk<% Else %>Kilo<% End If %></td>
       <td>&euro;<%=FormatNumber(Rst_Artikelen("Inkoopprijs"),2)%></td>
       <td><a href="Leveranciers.asp?Toevoegen=<%=Rst_Artikelen("Plu")%>">[img]"Image\edit.gif"[/img]</a></td>
       <td><% If Rst_Artikelen("Opmerkingen") <> "" AND Not IsNull(Rst_Artikelen("Opmerkingen")) Then %>[img]"image\icon_label.gif"[/img]"><% End If %></td>
     <% End If %>
     </tr>
<%
     iRecordsShown = iRecordsShown + 1
     Rst_Artikelen.MoveNext()
Loop

Als ik nu op een pagina nummer klik welke onderaan de pagina gemaakt wordt, dan blijft hij altijd op dezelfde pagina hangen. In de querystring wordt dan 'page=4' meegeven.

Het lijkt wel of hij absolutepage niet pakt. Iemand ideen?

[ Voor 15% gewijzigd door Phenomenon op 12-02-2004 13:39 ]

[P_de_B]

heb je ADOVBS.INC wel geincluded? (of de type library van ADO in gebruik?)

[Phenomenon]

P_de_B schreef op 04 februari 2004 @ 13:39:
heb je ADOVBS.INC wel geincluded? (of de type library van ADO in gebruik?)

Jah zit ertussen, maar anders zou ik er wel een foutmelding op krijgen lijkt me toch.

Hij blijft gewoon elke keer dezelfde pagina weer geven.

[P_de_B]

Phenomenon schreef op 04 februari 2004 @ 13:45:
[...]

maar anders zou ik er wel een foutmelding op krijgen lijkt me toch.

Nee hoor.


Gebruik je de page parameter wel in je querystring? Wat als je een pagina hardcodeert? Je zult een beetje moeten debuggen.

[Phenomenon]

P_de_B schreef op 04 februari 2004 @ 13:52:
[...]


Nee hoor.


Gebruik je de page parameter wel in je querystring? Wat als je een pagina hardcodeert? Je zult een beetje moeten debuggen.

Nah lijkt me wel dat ik een foutmelding moet krijgen. Ik gebruik option explicit, dus dan zou die daar over moeten struikelen.

En ben de hele dag al aan het debuggen. De waarden worden allemaal goed doorgegeven. En de paginatelling doet het ook goed.

Ik heb al AdUseClient gebruikt, maar dat helpt ook niet.

[DeverauX]

ASP:

Rst_Artikelen.AbsolutePage = iPageCurrent

[Phenomenon]

DeverauX schreef op 04 februari 2004 @ 13:59:

ASP:

Rst_Artikelen.AbsolutePage = iPageCurrent

Daarmee geef je aan op welke pagina de recordset moet staan jah

quote: http://www.w3schools.com/ado/prop_rs_absolute.asp

AbsolutePage
The AbsolutePage property sets or returns a long value that specifies the page number in the Recordset object. It sets or returns a value from 1 to the number of pages in the Recordset, or it returns a PositionEnum value. The value is 1 when the current record is the first record in the Recordset.

[ Voor 46% gewijzigd door Phenomenon op 04-02-2004 14:03 ]

[gorgi_19]

Phenomenon schreef op 04 februari 2004 @ 14:00:
[...]


Daarmee geef je aan op welke pagina de recordset moet staan jah

En hoe ziet jouw regel 57 er uit?
Deveraux-versie:

ASP:

Rst_Artikelen.AbsolutePage = iPageCurrent

Phenomenon-versie:

ASP:

Rst_Artikelen.AbsolutePage = iPageCount

Zoek de verschillen...

[ Voor 31% gewijzigd door gorgi_19 op 04-02-2004 14:04 ]

[DeverauX]

Phenomenon schreef op 04 februari 2004 @ 14:00:
[...]


Daarmee geef je aan op welke pagina de recordset moet staan jah

Wat jij dus niet doet, aangezien je het aantal pagina's meegeeft:

ASP:

Rst_Artikelen.AbsolutePage = iPageCount

[Phenomenon]

Ooooooh zo slecht

Nou mag ik jullie hartelijk bedanken dan maar