DE 10

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

strSQL = \"\"Select top 10 * From bruger Order by hits Desc\"
Set rs = Conn.Execute(strSQL)

count = 10
While not rs.eof and count > 0
count = count -1

Do
  strNavn = rs(\"Navn\")

  strLink = \"<a href=\'showuser.asp?id=\" & rs(\"Id\") & \"\'>\" & strNavn & \"</a>\"

  Response.Write \"<li>\" & strLink & \"</li>\"

  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

hvorfor virker det ik når jeg selecter fra top 10 i databasen ?