Flere valgte felter i en select list ....

Hejsa Eksperter...

Er der nogen der kan se hvad der er galt med følgende;

<%
Dim compareRS, compareSQL, ansvar
                 
if opgRS(\"ansvarlig\") <> \"\" Then
                 
ansvar = opgRS(\"ansvarlig\")
Set compareRS = Server.CreateObject(\"ADODB.Recordset\")
compareSQL = \"SELECT * FROM ansvarlig WHERE ansvid IN (\"& ansvar &\") OR ansvid LIKE \'%\"& ansvar &\"%\'\"
Set compareRS = Connect.execute(compareSQL)
%>
<select name=\"ansv\" size=\"4\" multiple>
<% While not ansvRS.EOF %>
<option value=\"<%=ansvRS(\"ansvid\")%>\" <%
While not CompareRS.EOF
If ansvRS(\"ansvid\") = compareRS(\"ansvid\") Then
Response.Write \"selected\"
end if
CompareRS.MoveNext
Wend
%>><%=ansvRS(\"ansvnavn\")%></option>
<%
ansvRS.MoveNext
Wend
%>
</select>

Det er meningen, at hvis der er flere ansvarlig tilknyttet skal alle tilknyttede vælges i listen.
Der bliver dog kun valgt én, selvom der er 2 eller flere ?! ;)