Fejl !!!

strSQL = \"select top 5 * from bruger order by id desc;\"

men prøv at udskrive lidt mere kode :)

Hele koden:

<%
\'Connection til databasen
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"database.mdb\")
strSQL = \"select top 5 * from bruger order by id desc\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"<font face=\"\"Arial\"\" size=\"\"2\"\">Der er ingen indlæg i databasen, men skynd dig og skriv et som den første ;-)</font>\"
else
Do Until rs.EOF
%>
<a href=profil.asp?id=<%=rs(\"brugerId\")%>><%=Rs(\"brugernavn\")%></a><br>
<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>

prøv med:
strSQL = \"select top 5 * from bruger order by brugerid desc\"