Hvad er der i vejen her???

Hvad er der i vejen her???:

<%
strConn = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"dindb.mdb\")
Set objRS = Server.CreateObject(\"ADODB.RecordSet\")
strQ = \"SELECT * FROM Adgangskoder WHERE gruppenavn = \'arbejde\';\"
objRS.Open strQ, strConn

%>

<select>
<option value=\"
<%
Do Until rs.EOF
%>
<%= objRS(\"medlemsnummer\") & \",\"%>
<%
RS.MoveNext
Loop
%>
\">arbejde</option>
<%
strQ = \"SELECT * FROM Adgangskoder WHERE gruppenavn = \'arbejde\';\"
objRS.Open strQ, strConn
%>
<option value=\"
<%
Do Until rs.EOF
%>
<%= objRS(\"medlemsnummer\") & \",\"%>
<%
RS.MoveNext
Loop
%>
\">alarm</option>
</select>
<%
objRS.Close
Set objRS = Nothing
%>