Este es el codigo, espero que le sirva a algun usuario
<select>
<%
do while not rs.EOF
mostrar = tema + " - [ V: " + visitas + " / R: " + resp + " ]"
%>
<option value = " <% response.write rs("idf")%> "> <%Response.Write ( mostrar )
forors.movenext
Loop
%>
</select>