Vis brugere fra database

Jeg får fejl i den her:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("adgangskontrol.mdb")
Conn.Open DSN

strSQL = "Select * from adgangskoder"
Set rs = Conn.Execute(strSQL)

Do

%> <a href='godkendt.asp?id=none&brugere=<% Response.Write rs("Username") %>'> <%
  <% Response.Write rs("Username") %>
  <% Response.write "<br>"
%> </a> <%

  rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
<% Else
Response.write " "
End if

Hvad skal jeg lave om, for at få det resultat, som jeg har forsøgt at få her?

/cotus