mmm probe asi pero no me va te dejo el codigo.
formulario
<body>
<form id="form1" name="form1" method="post" action="02.asp">
<p>
<select name="select">
<option>5.000€ 10.000€</option>
<option>15.000€ a 25.000€</option>
<option>mas de 25.000€</option>
</select>
</p>
<p>
<input type="submit" name="Submit" value="Enviar" />
02.asp
<%
rangos = request.form("select")
set oConn = Server.Createobject("Adodb.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("registrate.mdb")&";"
select case rangos
case 1
sql = "SELECT * FROM anuncio where Precio between 5.000€ and 10.000€"
case 2
sql = "SELECT * FROM tabla where importe between 15000 and 25000"
case 3
sql = "SELECT * FROM tabla where importe >= 25000"
end select
%>
saludos