Vis nyeste bruger

Hey.

Jeg kan ikke finde ud hvorfor den her kode ikke gider virke.
www.leol.dk/test.asp

KODE

--------------------------------------------------------

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/brugersystem.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "SELECT * FROM bruger ORDER BY id desc LIMIT 1"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

  ' Udskriv værdien af kolonnen Fornavn
response.write rs("Brugernavn") & ("<br>")

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>