Select option

Hvis en option er valgt der svarer til resultatet i GET-strengen skal den vælges - hvorfor virker det ikke?



<select name="komp" style="width:200px;">
          <option value="0" <% If strKomp = 0  Then
          Response.Write "selected"
          else Response.Write ""
          End if %> >--- ikke valgt ---</option>
          <%
While (NOT rsKompetence.EOF)
%>
          <option value="<%=(rsKompetence.Fields.Item("KompetenceID").Value)%>" <% If strKomp = (rsKompetence.Fields.Item("KompetenceID").Value)  Then Response.Write "selected" Else Response.Write "" %> ><%=(rsKompetence.Fields.Item("Kompetencer").Value)%></option>
          <%
  rsKompetence.MoveNext()
Wend
If (rsKompetence.CursorType > 0) Then
  rsKompetence.MoveFirst
Else
  rsKompetence.Requery
End If
%>
        </select>