ASP

hej jeg har et problem med dette her script, det melder dene fejl::
Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'rs'

/hogwarts/fut tog/admin.asp, line 37

her er kode stumpen::

<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM bruger WHERE godkendt='nej' ORDER BY brugernavn"
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
%>
<b>Bruger der gerne Vil Godkendes!</b><p>
<table>
<tr><td>brugernavn</td><td>password</td><td>rigtigt navn</td><td>email</td><td>Slet</td><td>Godkend</td></tr>
<% Do While Not rs.EOF %>
<tr><td><% rs("brugernavn")%></td><td><% rs("brugerkode")%></td><td><% rs("brugerrigtignavn")%></td><td><% rs("brugeremail")%></td><td><a href="admin.asp?mode=slet&id=<%rs("id")%>">Slet</a></td><td><a href="admin.asp?mode=godkend&id=<%rs("id")%>">Godkend</a></td></tr>
<% rs.MoveNext
Loop %>
<tr><td colspan="6"><hr></td></tr>
<% else %>
<tr><td colspan="6">Der er ikke nogen nye bruger, der vil godkendes :(</td></tr>
<% End If
rs.Close
Set rs = Nothing
%>