Jag har en sida där jag vill lista de 5 senaste objekten.. Det är så att de har samma namn.. Detta exempel listar top 5 på en tabell, hur gör jag om jag vill lista de andra med?

<code>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas.mdb")&""
set rs=conn.execute("SELECT TOP 5 * FROM user ORDER BY date DESC")
%>
<h3>De 20 senaste bil annonserna:</h3>
<table width="625" border="0" cellpadding="2" cellspacing="1">
<tr bgcolor="#15B205">
<th width="118"><div align="left"><font size="1"><strong>PC:</strong></font></div></th>
<th width="104"><div align="left"><font size="1"><strong>DVD:</strong></font></div></th>
<th width="113"><div align="left"><font size="1"><strong>TV:</strong></font></div></th>
<th width="136"><div align="left"><font size="1"><strong>Film:</strong></font></div></th>
</tr>
<%
Do While Not rs.EOF
%>
<tr>
<td><b></b>
<% =rs("user") %>
<b></b></td>
<td>
<% =rs1("user") %>
<b></b></td>
<td>
<% =rs("user") %>
<b></b></td>
<td>
<% =rs("user") %>
</td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
<%
rs.Close
%>
</code>

Vad har du för tabellstruktur? Hur skall resultatet samanställas? Har du lite exempeldata?

Jag har user, dvd, tv och film. Resultatet ska visas på en sida, tex vilka som senast registrerade sig från user (order by date) och vilken DVD-spelare som senast har lagts in osv.

Har du en User tabell, en dvdtabell osv? Om fälten överänsstämmer mellan tabellerna är det bättre att köra med två tabeller. En för Objekt och en för objekt typ.

ja det har jag, jag har 4st tabeller, vill lista top 5 ifrån varje...

Testa något sånt här:
<code>
<h3>De 20 senaste bil annonserna:</h3>
<table width="625" border="0" cellpadding="2" cellspacing="1">
<tr bgcolor="#15B205">
<th width="118"><div align="left"><font size="1"><strong>PC:</strong></font></div></th>
<th width="104"><div align="left"><font size="1"><strong>DVD:</strong></font></div></th>
<th width="113"><div align="left"><font size="1"><strong>TV:</strong></font></div></th>
<th width="136"><div align="left"><font size="1"><strong>Film:</strong></font></div></th>
</tr>
<%
Private Sub ListTop5(rs, Field)
Response.Write "<table>"
Do Until rs.EOF
Response.Write "<tr><td>"
Response.Write Server.HTMLEncode(Field.Value)
Response.Write "</tr></td>"
rs.MoveNext
Loop
Response.Write "</table>"
End Sub

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas.mdb")&""
set rs = Server.CreateObject("ADODB.Recordset")
%>
<tr>
<td>
<%
rs.Open "SELECT TOP 5 * FROM user ORDER BY date DESC"
ListTop5 rs, rs("user")
rs.Close
%>
</td>
<td>
<%
rs.Open "SELECT TOP 5 * FROM user ORDER BY date DESC"
ListTop5 rs, rs("user")
rs.Close
%>
</td>
<td>
<%
rs.Open "SELECT TOP 5 * FROM user ORDER BY date DESC"
ListTop5 rs, rs("user")
rs.Close
%>
</td>
<td>
<%
rs.Open "SELECT TOP 5 * FROM user ORDER BY date DESC"
ListTop5 rs, rs("user")
rs.Close
%>
</td>
</tr>
</table>
<%
Set rs = Nothing

conn.Close
Set conn = Nothing
%>
</code>

Får inte riktigt grepp på det. Följande felmeddelande:

ADODB.Recordset (0x800A0E7D)
Det går inte att använda anslutningen för den här åtgärden. Den är stängd eller ogiltig i det här sammanhanget.

Missade connectionen argumentet till Open metden:
<code>
<h3>De 20 senaste bil annonserna:</h3>
<table width="625" border="0" cellpadding="2" cellspacing="1">
<tr bgcolor="#15B205">
<th width="118"><div align="left"><font size="1"><strong>PC:</strong></font></div></th>
<th width="104"><div align="left"><font size="1"><strong>DVD:</strong></font></div></th>
<th width="113"><div align="left"><font size="1"><strong>TV:</strong></font></div></th>
<th width="136"><div align="left"><font size="1"><strong>Film:</strong></font></div></th>
</tr>
<%
Private Sub ListTop5(rs, Field)
Response.Write "<table>"
Do Until rs.EOF
Response.Write "<tr><td>"
Response.Write Server.HTMLEncode(Field.Value)
Response.Write "</tr></td>"
rs.MoveNext
Loop
Response.Write "</table>"
End Sub

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas.mdb")&""
set rs = Server.CreateObject("ADODB.Recordset")
%>
<tr>
<td>
<%
rs.Open "SELECT TOP 5 * FROM user ORDER BY date DESC", conn
ListTop5 rs, rs("user")
rs.Close
%>
</td>
<td>
<%
rs.Open "SELECT TOP 5 * FROM user ORDER BY date DESC", conn
ListTop5 rs, rs("user")
rs.Close
%>
</td>
<td>
<%
rs.Open "SELECT TOP 5 * FROM user ORDER BY date DESC", conn
ListTop5 rs, rs("user")
rs.Close
%>
</td>
<td>
<%
rs.Open "SELECT TOP 5 * FROM user ORDER BY date DESC", conn
ListTop5 rs, rs("user")
rs.Close
%>
</td>
</tr>
</table>
<%
Set rs = Nothing

conn.Close
Set conn = Nothing
%>
</code>
Du får själv skriva om frågerna för att pass din datastruktur och urval.

tack fungerar klockrent nu :)

en sista fundering bara, om jag vill skriva ut mer än bara "marke" vadför kan jag inte skriva ut så här?:


<code>
<%
rs.Open "SELECT TOP 5 * FROM pryl ORDER BY date DESC", conn
ListTop5 rs, rs("dvdmarke") & rs("dvdmodell")
%>
</code>

Därför att funktionen fungerar så att du skickar fältobjektet till den. Det du gör arr att skicka värdena från den första posten.
Du kan istället skriva:
<code>
<%
rs.Open "SELECT TOP 5 dvdmarke & ' ' & dvdmodell As Caption FROM pryl ORDER BY date DESC", conn
ListTop5 rs, rs("Caption")
%>
</code>

Om jag vill länka till ID:et i databasen, måste jag skicka med ID:et också?

Jag vill alltså ha en länk till rs("ID") på rs("marke").

Har hållt på nu i flera timmar, får inte rätt på det :( Går det överhuvudtaget göra? Med tanke på att man stänger ju recordsettet, då kan man inte hämta rs("ID").

Har kommit på ett sätt at skriva en rätt snygg funktion:
<code>
<h3>De 20 senaste bil annonserna:</h3>
<table width="625" border="0" cellpadding="2" cellspacing="1">
<tr bgcolor="#15B205">
<th width="118"><div align="left"><font size="1"><strong>PC:</strong></font></div></th>
<th width="104"><div align="left"><font size="1"><strong>DVD:</strong></font></div></th>
<th width="113"><div align="left"><font size="1"><strong>TV:</strong></font></div></th>
<th width="136"><div align="left"><font size="1"><strong>Film:</strong></font></div></th>
</tr>
<%
Private Sub ListRecordset(rs, Values)
Do Until rs.EOF
Response.Write Join(Values, "")
rs.MoveNext
Loop
End Sub

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas.mdb")&""
set rs = Server.CreateObject("ADODB.Recordset")
%>
<tr>
<td>
<table>
<%
rs.Open "SELECT TOP 5 * FROM user ORDER BY date DESC", conn
ListRecordset rs, Array("<tr><td>", rs("Text"), "</td></tr>")
rs.Close
%>
</table>
</td>
<td>
<table>
<%
rs.Open "SELECT TOP 5 * FROM user ORDER BY date DESC", conn
ListRecordset rs, Array("<tr><td>", rs("Text"), "</td></tr>")
rs.Close
%>
</table>
</td>
<td>
<table>
<%
rs.Open "SELECT TOP 5 * FROM user ORDER BY date DESC", conn
ListRecordset rs, Array("<tr><td>", rs("Text"), "</td></tr>")
rs.Close
%>
</table>
</td>
<td>
<table>
<%
rs.Open "SELECT TOP 5 * FROM user ORDER BY date DESC", conn
ListRecordset rs, Array("<tr><td>", rs("Text"), "</td></tr>")
rs.Close
%>
</table>
</td>
</tr>
</table>
<%
Set rs = Nothing

conn.Close
Set conn = Nothing
%>
</code>

Suvverän funktion! Tack än en gång!