5 sidst tilføjet

du kan bare bruge den automatiske id der er:

strSQL = \"SELECT TOP 5 * FROM mappe ORDER BY ID DESC\"

nu er jeg ikke særlig snedig til asp endnu, så er det bare det eneste jeg skal skrive?

Hvis du gad ville jeg blive glad hvis du skrev præcis hvad jeg skal sætte ind over <html> og hvad for en sætning jeg skal skrive der hvor komandoen skal udføres :-)

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"NAVNET PÅ DIN DATABASE.mdb\")
strSQL = \"select top 5 * from NAVNET PÅ DIN TABEL ORDER BY id DESC\"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write \"<font face=\"\"Arial\"\" size=\"\"2\"\">Der er pt. ikke tilføjet noget i databasen.</font>\"
else
color = \"F0F8FD\"
Do Until rs.EOF
%>

<tr><td bgcolor=\"#<%=color%>\" width=\"382\" height=\"19\"><p><B><%=RS(\"DIT FELTNAVN\")%></b><td bgcolor=\"#<%=color%>\" height=\"19\" width=\"47\" style=\"color: #1E694E\"></A></B><FONT SIZE=\"1\"><%=RS(\"DATO\")%></FONT></td></tr>


<%
if color = \"F0F8FD\" then
color = \"F0F8FD\"
else
color = \"F0F8FD\"
end if
RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>
</table>

Ovenstående kode forudsætter at du har et autonummereringsfelt i din database som du kalder ID

Koden sættes ind imellem <body></body>

Gør det noget at autonummereringsfeltet i databsen hedder id og ikke ID ???

Nej det er ligegyldigt !!

Jeg kan slet ikke få det til at passe!

Det eneste jeg skal bruge er \"set record\" linien og så den linie jeg skal skrive imellem <body> og </body> !!

Der skal ikke skrives dato eller være specielle farver. Den skal kun skrive navnene på de 5 sidst tilføjede, og linke til dem!

<body>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"NAVNET PÅ DIN DATABASE.mdb\")
strSQL = \"select top 5 * from NAVNET PÅ DIN TABEL ORDER BY id DESC\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"Der er pt. ingen link i databasen.\"
else
Do Until rs.EOF
%>

<A HREF=\"http://<%=RS(\"LINK\")%>\"><%=RS(\"LINKNAVN\")%></a>

<%
RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>
</Body>

Nu er koden renset for farver og diverse, hvis du vil have linkene under hinanden skal du sætte <A href ........</a> ind i en tabel.

Du kan også bare udskifte følgende linie så får du også linkene under hinanden.

<A HREF=\"http://<%=RS(\"LINK\")%>\"><%=RS(\"Linknavn\")%></a><br>

Desværre ikke uddybet nok :-)

Ups! Det var til darkhero at svaret ikke var uddybet nok!

Til peterp1: Kanon!