Optælling af poster med paging
"Jeg" har endelig fået paging til at virke (hovedsageligt copy/paste og lidt hjælpe fra gizom), men der opstår et problem. De poster som jeg deler med pagin tager jeg fra en access database, men de er ikke alle poster jeg tager. Kun dem hvor feltet "hp" er "true". Når jeg så vælger at der skal vises f.eks. 5 resultater pr. side tæller den også alle post hvor hp=false med. Dvs. at hvis der er en "false" blandt de fem første poster er der kun 4 post på første side.Her er koden og på www.frip.dk/lordpoke kan siden ses:
<html><head>
<title>Paging af et recordset</title>
</head><body>
<table border="1">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT id, nvn, mdl, pic, hp FROM produkt"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("test.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 5
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
if rs("hp") = true then
%>
<tr>
<td><% response.write rs("id")%></td>
<td><% response.write rs("nvn")%></td>
<td><% response.write rs("mdl")%></td>
<td><img src="<% response.write rs("pic")%>"></td>
<td><% response.write rs("hp")%></td>
</tr>
<%
End If
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
%>
</table>
<%
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=index.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=index.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=index.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
</body></html>
Som det ses er "rs.PageSize = 5", men da jeg i øjeblikket har valgt de fem første post i min database til at være false, er der ingen post på første side..
Nogen der ved hvordan det problem kan afhjælpes?
