mostrar cuadro desplegable

[XaRoD]

Una vez que tengas tu consulta, el procedimiento es el siguiente:
<% Set rsClientes= BD.Execute("SELECT Clientes From Pedidos") %>
<input type=select name="selectClientes">
<% Do While Not rsClientes.EOF %>
<option value="<%=rsClientes("clientes") %>"><%=rsClientes("clientes&quo t;)%></option>
<%rsClientes.MoveNext
Loop%>
</select>

Salu2