Hej med jer
Jeg går og bakser med at lave paging på en side og jeg kan ikke finde ud
af det!
Sourcen for siden ser ud som følger:
<%
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)
%>
..blah blah
<%
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"
rowspan="7"><img border="0" src="<%=RS("Billednavn")%>"></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="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
%>
Det heler virker perfekt - altså den hiver det ud fra db'en som den skal
- men jeg kunne godt tænke mig at lave paging på siden, således at den
kun viste de første e.g 5 produkter - og så med link videre til
næste/forrige side.
Hvordan gør man det? (og plz lad vaer at henvise mig til
activeserverpages.dk eksempelet for jeg kan ikke finde ud af at omskrive
det så det virker)
På forhånd mange tak
//
ezolu
--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"