ASP - listas desplegables con tablas

lo que quiero hacer es que las opciones de una lista desplegable las saque de una tabla, de una b.datos como se puede hacer
gracias

<%
set BaseDatos = server.CreateObject ("adodb.connection")
BaseDatos.Open ("ASP")

sql_tabla ="select * from miTabla"
set rsTabla = BaseDatos.Execute(sql_tabla)

if not rsTabla.eof then
rsTable.movefirst
end if
%>

<SELECT id=select1 name=select1 style="HEIGHT: 22px; WIDTH: 421px">
<%
cCadena = " selected "
Do While not rsTabla.eof%>
<OPTION <%=cCadena%> > <%=rsTabla("campo")%> </OPTION>
cCadena = ""
rsTabla.movenext
<%Loop%>
</SELECT></P>

<%rsTabla.close%>
<%set rsTabla = Nothing%>
<%BaseDatos.close%>
<%Set BaseDatos = Nothing%>

Es muy posible que tenga algun error, ya que lo escribi directamente.

Saludos...
Guy.-