Als eerste, hallo allemaal. Als volgt mijn probleem. Ik ben bezig om een paging systeem aan te brengen in een overzicht pagina. Op de pagina worden een aantal waarden van buitenaf geladen en deze komen in een lijst terecht. Nu wil ik graag 8 items per pagina tonen en alles wat daarop volgt in pagina's onderverdelen.
De code die ik hiervoor heb geschreven is:
Ik krijg geen foutmeldingen en de previous en next page buttons worden getoond en werken. Alleen er worden geen waarden ingeladen (of wel ingeladen, maar niet getoond). Ik kom er niet achter waar hij nu fout loopt. Is er hier iemand met een scherpe blik die ziet waar het aan ligt? Tnx!
De code die ik hiervoor heb geschreven is:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
| <!-- #include virtual="/include/cmssqllib2.inc.asp" --><%
dim oRS, szHuidigePlaats, bFavoriet, recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter
call OpenXPSRConnection() %>
<xsl:variable name="strStylesheetName">
<xsl:value-of select="translate(translate(../../../Details/SiteSection, ' ', '_'), 'è', 'e')"/>
</xsl:variable><%
recordsonpage = 8
allrecords = 0
set oRS = GetPagesFromTemplate("SumTV Aflevering", "Afleveringnr,Titel,Intro_Tekst,Tonen_in_lijst,Afbeelding_intro","Tonen_in_lijst='1'","XPSR_FirstPublishedDate DESC", 0, 0, 0, "")
do until oRS.EOF
allrecords = allrecords + 1
oRS.movenext
loop
offset = request.querystring("offset")
if offset = 0 OR offset = "" then
requestrecords = 0
else
requestrecords = requestrecords + offset
end if
hiddenrecords = requestrecords
do until hiddenrecords = 0 OR oRS.EOF
hiddenrecords = hiddenrecords - 1
oRS.movenext
if oRS.EOF then
lastrecord = 1
end if
loop
%>
<div class="article_intro">
<table cellpadding="0" cellspacing="0" border="0" width="655">
<% showrecords = recordsonpage
recordcounter = requestrecords
do until showrecords = 0 OR oRS.EOF
recordcounter = recordcounter + 1 %>
<tr>
<td><b><% = recordcounter %></b></td>
<td valign="top" width="150">
<a href="<%= oRS("XPSR_URL") %>"><img src="<%= oRS("Afbeelding_intro") %>" border="0" width="150" height="100" alt="" style="border: 1px solid #666;"></a>
</td>
<td width="10"></td>
<td valign="top" width="495">
<div class="article_title"><a href="<%= oRS("XPSR_URL") %>"><%= oRS("Titel") %></a></div>
<div class="article_text"><%= oRS("Intro_Tekst") %>
<div class="article_link"><a href="<%= oRS("XPSR_URL") %>">Bekijk de video>></a></div>
</div>
</td>
</tr>
<tr><td height="20" colspan="3"></td></tr>
<% showrecords = showrecords - 1
oRS.movenext
if oRS.EOF then
lastrecord = 1
end if
loop %>
</table>
<table cellspacing="0" cellpadding="0" border="0" width="655">
<tr>
<td><% if requestrecords <> 0 then %><a href="preview.asp?offset=<% = requestrecords - recordsonpage %>">Prev Page</a><% else %>Prev Page<% end if %></td>
<td><% if lastrecord <> 1 then %> <a href="preview.asp?offset=<% = requestrecords + recordsonpage %>">Next Page</a><% else %>Next Page<% end if %></td>
</tr>
<tr>
<td colspan="2">pagelist:
<%
pagelist = 0
pagelistcounter = 0
do until pagelist > allrecords
pagelistcounter = pagelistcounter + 1
%>
<a href="preview.asp?offset=<% = pagelist %>"><% = pagelistcounter %></a>
<%
pagelist = pagelist + recordsonpage
loop
%>
</td>
</tr>
</table>
</div>
<%
set oRS = nothing
call CloseXPSRConnection() %> |
Ik krijg geen foutmeldingen en de previous en next page buttons worden getoond en werken. Alleen er worden geen waarden ingeladen (of wel ingeladen, maar niet getoond). Ik kom er niet achter waar hij nu fout loopt. Is er hier iemand met een scherpe blik die ziet waar het aan ligt? Tnx!
:strip_icc():strip_exif()/u/43400/avatar.jpeg?f=community){kind=avatar}
