Filtrar Listado

[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