Listebox Select

Hvordan er det nu lige man laver denne her:

    <select size="1" selected="<%responese.write rsProdukt("produktKategori")%>" name="Kategori">

<%

    Do until rsUnderkategori.EOF

        response.write "<option value='"& rsUnderkategori("ID") & "'>" & rsUnderkategori("underkategori")

        rsUnderkategori.movenext

    loop

    %>

</select>

Sådan er det felt der passer med rsProdukt er VALGT i listen????