Filtrar Listado

[darb]

Mi consulta es la sgte.:
Desplegue desde un BD todos los registros a una tabla (registro es la fila ; el campo la columna).
Ahora mi idea es colocar un menu despegable en la primera fila para que me filtre todos los valores indicados hacia abajo en la tabla. Se entiende???.

Gracias por cualkier ayuda

[lexus]

<%
'---------------------------------------------

Dim sql
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM tutabla Where campo='criterio' ORDER BY campo ASC"
rs.Open sql, con, 3, 3
'---------------------------------------------
%>

<select name="ubicacion">
<% if not rs.eof then %> <option selected>SELECCIONE UN HORNO</option>
<%
while Not rs.EOF %>
<option value="<%=rs("id"))%>"><%=Ucase(rs("nombre"))%></option>
<% rs.MoveNext
Wend %> <% else %><option>NO HAY DATOS</option><% END IF %>
</select> <%
Set rs = Nothing
%>


ESPERO TE SIRVA

[Myakire]

mmmmm, a ver, solo "retocando" un poco el código de lexus:

<%
Set rs = Server.CreateObject("ADODB.Recordset")
if (request("ubicacion")="") or (request("ubicacion")="Todos") Then
sql="SELECT * FROM tutabla ORDER BY campo ASC"
else
sql="SELECT * FROM tutabla Where campo='"&request("ubicacion")&"' ORDER BY campo ASC"
end if
rs.Open sql, con, 3, 3
'---------------------------------------------
%>

<select name="ubicacion">
<% if not rs.eof then %> <option selected>SELECCIONE UN HORNO</option>
<%
while Not rs.EOF %>
<option value="<%=rs("id"))%>"><%=Ucase(rs("nombre"))%></option>
<% rs.MoveNext
Wend %> <% else %><option value="Todos">Ver todos</option><% END IF %>
</select> <%
Set rs = Nothing
%>