Paging på følgende source
Hej Eksperter-
Jeg har følgende side som trækker en masse produkter (faktisk alle) ud af en db. Jeg kunne godt tænkemig at lave en funktion der gør at kun e.g de første fem produkter vises - og derefter link til næste/forrige side.
Hvordan gør man det?
Her er sourcen
-
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"../../db/produkter.mdb\")
strSQL = \"select * from automater ORDER BY Id\"
set rs = Conn.execute(strSQL)
%>
<html>
<head>
<link HREF=\"../../faaborg.css\" REL=\"stylesheet\" TYPE=\"text/css\">
<title>::..Faaborg - kvalitet og trivsel i stalden..::</title>
<script language=\"JavaScript\" src=\"../../tdover.js\"></script>
</head>
<body bgcolor=\"#45556A\">
<div align=\"center\">
<center>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"80%\" height=\"460\" bgcolor=\"#F9F9F1\">
<tr>
<td colspan=\"7\" class=\"tdtop\" </td valign=\"middle\" width=\"604\">
<img border=\"0\" src=\"../../graf/misc/blank.gif\" width=\"10\" height=\"14\"><img border=\"0\" src=\"../../graf/brochure/Image8.gif\" width=\"114\" height=\"25\"><img border=\"0\" src=\"../../graf/misc/blank.gif\" width=\"10\" height=\"14\"><img border=\"0\" src=\"../../graf/brochure/perf.gif\" width=\"139\" height=\"24\">
</tr>
<tr>
<td onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\" onClick=\"location.href=\'svin/svin.asp\';\" width=\"96\" height=\"20\" align=\"center\" colspan=\"2\" class=\"tdmnu\" <a href=\"svin/svin.asp\" valign=\"middle\">Løsninger til svin</td>
<td onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\" onClick=\"location.href=\'../gulv/gulv.asp\';\" width=\"96\" height=\"20\" align=\"center\" class=\"tdmnu\" <a href=\"../gulv/gulv.asp\" valign=\"middle\"> Gulvløsninger</td>
<td onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\" onClick=\"location.href=\'../plast/plast.asp\';\" width=\"99\" height=\"20\" align=\"center\" class=\"tdmnu\" <a href=\"../plast/plast.asp\" valign=\"middle\"> Plastvægsløsninger</td>
<td onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\" onClick=\"location.href=\'../kvaeg/kvaeg.asp\';\" width=\"98\" height=\"20\" align=\"center\" class=\"tdmnu\" <a href=\"../kvaeg/kvaeg.asp\" valign=\"middle\">Løsninger til kvæg</td>
<td onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\" onClick=\"location.href=\'../generel/generel.asp?mode=kontakt\';\" width=\"99\" height=\"20\" align=\"center\" class=\"tdmnu\" <a href=\"../generel/generel.asp?mode=kontakt\" valign=\"middle\">Kontakt os</td>
<td onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\" onClick=\"location.href=\'../default.asp\';\" width=\"85\" height=\"20\" align=\"center\" class=\"tdmnulast\" <a href=\"../default.asp\" valign=\"middle\">Start</td>
</tr>
<tr>
<td height=\"23\" colspan=\"7\" width=\"636\" class=\"tdstatus\">Her er du :
<a href=\"http://www.faaborg-dk.dk\">faaborg-dk.dk</a>
<img border=\"0\" src=\"../../graf/misc/2.navig.arrow.white.gif\" width=\"11\" height=\"7\">
Foderløsninger til svin<img border=\"0\" src=\"../../graf/misc/2.navig.arrow.white.gif\" width=\"11\" height=\"7\">
Automater
</td>
</tr>
<tr>
<td style=\"padding: 0\" width=\"94\" class=\"tddummy\" valign=\"top\" height=\"499\"><img border=\"0\" src=\"../../graf/misc/blank.gif\" width=\"10\" height=\"14\"><a href=\"automat.asp\">Automater</a><br>
<img border=\"0\" src=\"../../graf/misc/blank.gif\" width=\"10\" height=\"14\"><a href=\"krybber.asp\">Krybber<br>
</a><img border=\"0\" src=\"../../graf/misc/blank.gif\" width=\"10\" height=\"14\"><a href=\"kopper.asp\">Kopper</a><br>
<img border=\"0\" src=\"../../graf/misc/blank.gif\" width=\"10\" height=\"14\"><a href=\"skåle.asp\">Skåle</a><a href=\"../generel/generel.asp?mode=kontakt\"><br>
</a><img border=\"0\" src=\"../../graf/misc/blank.gif\" width=\"10\" height=\"14\"><a href=\"../generel/generel.asp?mode=kontakt\">Kontakt os<br>
</a><br>
</td>
<td style=\"padding: 2\" rowspan=\"2\" valign=\"top\" align=\"left\" width=\"3\" height=\"500\">
</td>
<td height=\"499\" colspan=\"5\" width=\"509\" class=\"tdmain\" valign=\"top\" align=\"center\">
</center>
<div align=\"left\">
<table border=\"0\" width=\"100%\" height=\"99\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"581\" height=\"7\" colspan=\"3\"><b>Prisliste for FAABORG foderautomater til svin</b></td>
</tr>
<tr>
<td colspan=\"3\">
<p>Saadan ser en FAABORG foderautomat ud.<br>
De fås naturligvis i forskellige varianter afhængig af staldtype, dyrenes vægt osv</p>
<img border=\"0\" src=\"../../graf/brochure/automat2.gif\"</td><br>
<td width=\"190\" colspan=\"3\" valign=\"top\"></td>
</tr>
<tr>
<td colspan=\"3\"><a href=\"Næste 10.asp\"><-- Forrige 5 produkter</a> | <a href=\"Næste 10.asp\">Næste 5 produkter --></a></td>
</tr>
<tr>
<td colspan=\"3\"><img border=\"0\" src=\"../../graf/misc/blank.gif\" width=\"10\" height=\"14\"></td>
</tr>
<tr>
<%
if rs.EOF then
Response.write \"<font face=\"\"Arial\"\" size=\"\"2\"\">Databasen er tom.</font>\"
else
Do Until rs.EOF
%>
<td width=\"11\" height=\"15\" style=\"padding: 2\" valign=\"top\">Billede</td>
<td width=\"80\" height=\"4\" style=\"padding: 2\" valign=\"top\">Beskrivelse</td>
<td width=\"473\" height=\"4\" style=\"padding: 2\" valign=\"top\"><%=RS(\"Beskrivelse\")%></td>
</tr>
<tr>
<td width=\"200\" rowspan=\"7\"></td>
<td width=\"80\" height=\"5\" style=\"padding: 2\">Vare-nr.</td>
<td width=\"473\" height=\"5\" style=\"padding: 2\"><%=RS(\"Varenr\")%></td>
</tr>
<tr>
<td width=\"80\" height=\"5\" style=\"padding: 2\">TUN-nr.</td>
<td width=\"473\" height=\"5\" style=\"padding: 2\"><%=RS(\"TUNnr\")%></td>
</tr>
<tr>
<td width=\"80\" height=\"6\" style=\"padding: 2\">Bredde cm.</td>
<td width=\"473\" height=\"6\" style=\"padding: 2\"><%=RS(\"Bredde\")%></td>
</tr>
<tr>
<td width=\"80\" height=\"5\" style=\"padding: 2\">Dybde cm.</td>
<td width=\"473\" height=\"5\" style=\"padding: 2\"><%=RS(\"Dybde\")%></td>
</tr>
<tr>
<td width=\"80\" height=\"7\" style=\"padding: 2\">Stk. pr. palle</td>
<td width=\"473\" height=\"7\" style=\"padding: 2\"><%=RS(\"StkPrPalle\")%></td>
</tr>
<tr>
<td width=\"80\" height=\"6\" style=\"padding: 2\">Pris pr. stk</td>
<td width=\"473\" height=\"6\" style=\"padding: 2\"><%=RS(\"StkPrisDKK\")%></td>
</tr>
<tr>
<td width=\"80\" height=\"54\">
</td>
<td width=\"473\" height=\"54\"></td>
</tr>
<%
RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing
%>
</table>
</tr>
<tr>
<td style=\"padding: 0\" width=\"94\" class=\"tddummy\" height=\"1\">
</td>
<td height=\"1\" colspan=\"5\" width=\"509\" class=\"tdmain\" valign=\"top\">
</td>
</tr>
<tr>
<td class=\"tdfoot\" height=\"1\" colspan=\"7\" align=\"center\">FAABORG
- L. Frandsensvej 4 - DK-5600 Faaborg - Tel. (0045) 62 61 83 33<br>
Fax (0045) 62 61 73 33 - e-mail: <a href=\"mailto:frandsen@l-frandsen.dk\">frandsen@l-frandsen.dk</a>
- <a href=\"www.faaborg-dk.dk</a>" target="_blank">http://www.faaborg-dk.dk\">www.faaborg-dk.dk</a>
</td>
</tr>
</table>
</div>
<p> </p>
</body>
</html>
