Creo que es esto lo que preguntas. Espero te sirva.
Código:
<select size="1" name="Familia">
<option value="-1">Todos</option>
<%
SQL_query = "SELECT * FROM Familias Order By Descripción_FAM;"
Set RS = MyConn.Execute(SQL_query)
WHILE NOT RS.EOF
if rs("Id_FAM")<> cint(familia) then
txt = ""
else
txt="selected"
end if
%>
<option <%=txt%> value="<%=rs("Id_FAM")%>"><%=rs("Descripción_FAM")%></option>
<%
RS.MoveNext
WEND
RS.Close
%>
</select>
Saludos.
Ups....habla de NET????
pos nada, aqui te lo dejo por si te sirve.