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>