Problemas con un select

[acrego]

buenas yo tengo algo parecido, mi codigo es:

<%If RstConfr.recordcount > 0 then
do while not RstConfr.eof
Response.write("<option value= " & RstConfr("Id") & ">" & RstConfr("NomeConfra") & "</option>")
RstConfr.movenext
loop
end if
RstConfr.Close
Set RstConfr=Nothing%>

(...)

asi me funciono, que te vaya bien.
ya diras si te funciono.