/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Hjælp til paging
Fra : ezolu


Dato : 31-05-01 08:31

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"


 
 
gandalf (31-05-2001)
Kommentar
Fra : gandalf


Dato : 31-05-01 08:52

Dette burde hjælpe dig : http://www.kandu.dk/dk/tip/391 '%s')

--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"


Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408872
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste