Paging
Jeg ahr langt om længe fået paging til at virke, men der er opstået et lille problem.Den sidste side der vises komme op med en meddelse om at \"en undtagelse er opstået\"
Jeg er kommet frem til at opstår fordi: siderne er sat til at der skal vises 5 records pr. side, men hvis sidste side kun har 3 records komme fejlen.
Det er jo sjælent at man er så heldig at antal records i recordssettet \"går op\" med den værdi man har sat som \"antal records pr. side\"
(herunder kan i se den del af koden som det drejer sig om)
<%
set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL6 =\"SELECT * FROM FS_AlleVare WHERE UGrp3ID_Ref = \" & UGrp3ID & \"AND UGrp1ID_Ref = \" & request.cookies(\"ugrp1\")(\"id\")
strDBCon = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db/WebShopDB.mdb\")
rs.open strSQL6, strDBCon, 1
Varet = rs(\"VareNr\")
VareNr = rs(\"UGrp3ID_Ref\")
response.cookies(\"vare\") = Varet
response.Cookies(\"vare\")(\"id\") = VareNr
response.cookies(\"vare\").expires = now() + 60%>
<TABLE WIDTH=\"100%\" ALIGN=\"center\" BORDER=\"0\" CELLPADDING=\"0\" CELLSPACING=\"1\">
<TR>
<TD CLASS=\"cell5\" HEIGHT=\"20\" ALIGN=\"left\"><%response.write request(\"page\")%></TD>
</TR>
<TR>
<TD CLASS=\"cell6\"><SPAN CLASS=\"htext\"><CENTER><%response.write request.cookies(\"ugrp2\")(\"tekst\")%></CENTER></SPAN>
<TABLE WIDTH=\"550\" ALIGN=\"center\">
<TR>
<%
if not(rs.EOF) And Not(rs.BOF) then
rs.movefirst
rs.PageSize = 3
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%>
<TR>
<TD WIDTH=\"15%\" ROWSPAN=\"2\" ALIGN=\"center\" VALIGN=\"middle\"><IMG SRC=\"images/vare/<%=rs(\"BilledNr\")%>.jpg\" BORDER=\"0\" WIDTH=\"48\" HEIGHT=\"58\" ALIGN=\"bottom\" ALT=\"Klik her og se et stort billed af vare\"></TD>
<TD CLASS=\"btext\" WIDTH=\"65%\"><%response.write rs.fields(\"Tekst2\")%> <%response.write rs.fields(\"Tekst3\")%></TD>
<TD CLASS=\"atext\" WIDTH=\"20%\" rowspan=\"2\"><IMG SRC=\"images/tom1.gif\" BORDER=\"0\" WIDTH=\"40\" HEIGHT=\"48\" ALIGN=\"bottom\" ALT=\"\"></TD>
</TR>
<TR>
<TD WIDTH=\"65%\">Pris</TD>
</TR>
<SPAN CLASS=\"atext\">
<%
intRecCount = intRecCount - 1
rs.movenext
loop
end if
Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
Response.Write \"<a href=index.asp?UGrp3=\"&rs.fields(\"UGrp3ID_Ref\")&\"&page=\" & intNum & \" ><FONT COLOR=00035E>\" & intNum & \"</a> </FONT>\"
Next
Response.Write \"<p>\"
If Clng(intPage) > 1 Then
Response.Write \"<a href=index.asp?UGrp3=\"&rs.fields(\"UGrp3ID_Ref\")&\"&page=\" & intPage - 1 & \"><FONT COLOR=00035E><<</a></FONT>\"
Else
Response.Write \"<FONT COLOR=00035E><<</FONT>\"
End If
Response.Write \" \"
If Clng(intPage) < Clng(intPageCount) Then
Response.Write \"<a href=index.asp?UGrp3=\"&rs.fields(\"UGrp3ID_Ref\")&\"&page=\" & intPage + 1 & \"><FONT COLOR=00035E>>></a> </FONT>\"
Else
Response.Write \"<FONT COLOR=00035E>>></FONT>\"
End If%><%Request(\"page\")%></SPAN>
</TR>
</TABLE></TD>
</TR>
</TABLE>
