Pagning problem !
Hej !Jeg har siddet og rodet med en pagning kode de sidst par dage, men jeg kan ikke få den til at funke helt optimal...som I nok kan se på disse to link
http://www.web-byggeren.dk/fiskegrej/fangstrapport/pagning.asp?page=1
http://www.web-byggeren.dk/fiskegrej/fangstrapport/pagning2.asp?page=1
Denne koder tilhører det første link
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head>
<title>Fangstjournal !</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<style type="text/css">
body {
margin: 0px;
padding: 20px 0px 0px 10px;
height: 100px;
color: #FFFFFF;
font-size: 10px;
}
img {
border: 0px;
}
a:hover {
color: #99CCFF;
}
</style>
<body background="/fiskegrej/fangstrapport/baggrund.jpg">
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
<tr>
<td>
</td>
</tr>
<tr>
<td><table width="100%" border="0" align="center" cellspacing="0" cellpadding="0">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From skema ORDER BY dato desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("fang.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
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
%>
<table width="80%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td><div align="left">
<h4>Dato</h4>
</div></td>
<td><div align="left">
<h4>Art</h4>
</div></td>
<td><div align="left">
<h4>Sted</h4>
</div></td>
<td><div align="left">
<h4>Vægt</h4>
</div></td>
</tr>
<%
if farve = "#003399" Then
farve = "#288CD4"
Else
farve = "#003399"
End if
' Personens navn
strArt = rs("art")
strDato = rs("dato")
strSted = rs("sted")
strVagt = rs("vagt")
strLangde = rs("langde")
' lav et link til person.asp med Id-værdien i URL
strLink = "<a href='vis.asp?id=" & rs("Id") & "'>" & strArt & "</a>"
%>
<tr bgcolor = "<% =farve%>">
<td><%Response.Write " " & strDato %></td>
<td><%Response.Write "<b>" & strLink & "</b>" & " " & " " %></td>
<td><%Response.Write strSted %></td>
<td><%Response.Write strVagt & " " & "kg" %></td>
<td> <%Response.write "<a href='UpdateFangst.asp?id=" & rs("Id") & "'>" & "<img src=""icon_edit_topic.gif "" alt=""rediger"">" & "</a>" %> </td>
<td><%Response.write "<a href='Slet1.asp?id=" & rs("Id") & "'>" & "<img src=""icon_delete_reply.gif"" alt=""slet"">" & "</a>" %></td>
</tr></table>
<%
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=pagning.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=pagning.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=pagning.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
</table></td>
</tr>
</table>
</body></html>
Hvad gør jeg forkert udover at denne sætning sidder et forkert sted "\Do While Not rs.EOF And intRecCount > 0\" ???
