yo he modificado un poco el codigo y me va perfectamente
aqui tienes, yo lo he echo con un campo llamado localidad:
Aqui va la consulta
'Empezamos nuestro bucle para rellenar la lista
%> <select size="1" name="areas">
<option>Todasl Areas</option>
<%
while not rs.EOF%>
<OPTION VALUE="<%=rs.Fields("localidad")%>"> <%=rs.fields("localidad")%>
<%
rs.MoveNext
wend
%>
</OPTION></select>
