Paging uden at vise tomme felter
Jeg har fundet nedenstående script til at anvende paging. Det virker fortræffeligt, men nu vil jeg gerne have at den ikke viser titel, hvis ikke der findes noget information i feltet. Jeg har nemlig nogle tomme felter i databasen under titel, som den viser alligevel.Jeg prøvede med:
if Not (rs.BOF Or rs.EOF) AND rs("titel") <> "" then
- men det virker ikke, da den slet ikke viser nogle titler så.
Mit script:
<html><head>
<title>Paging af et recordset</title>
</head><body>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT titel FROM film"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/vti_log/film.mdb")
rs.Open strSQL, strDSN, 1
if Not (rs.BOF Or rs.EOF) then
rs.PageSize = 20
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
Response.Write rs("titel") & "<br>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
</body></html>
