Dropbox con Base de datos

[holstensan]

Saludos a tod@s

Veréis, tengo el siguiente problema: quiero hacer que los elementos que aparecen en un dropbox sean los de una consulta sql. He estado buscando en internet y en el foro y he encontrado varios código pero mi problema es que el dropbox aparece vacío.

Os dejo el código que tengo por si sirve para algo

Muchas gracias

<select class=ve1 name="id">
<%
Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("catalogo.mdb")

'Ejecuta un sentencia SQL de consulta
sql = "select id from articulos;"

Set result = con.Execute(sql)

'Recorre todas las filas del resultado
Do While Not result.EOF

'Imprimimos los contenidos del listbox
%>
<option value="<% Response.Write(result("id")) %>"><% Response.Write(result("id")) %></option>
<%
'Pasa a la siguiente fila
result.MoveNext
loop
%>

</select>

[holstensan]

Solucionado! Como una gran mayoría de los problemas, era una tontería que se me había escapado. La comparto para que todo el mundo la tenga en cuenta:

Cuando establecía la conexión, lo hacía de la siguiente forma-> Set Conn = Server.CreateObject ("ADODB.Connection")"

Pero, al ejecutar la consulta escribía -> Set result = con.Execute(sql)

Y todavía algunos diréis ¿¿Dónde está el error?? Pues en una pu...ñetera N del Conn de la segunda línea.

En fin...esto es aprender a programar...