menu con elementos de una consulta sql

[ana1981]

Hola,
estoy haciendo una aplicacion en la cual, necesito que un campo de tipo menu tenga diferentes opciones. La plicación tendrá que ir a buscar estas opciones a una base de datos que está en el servidor.
he puesto este codigo en el elemento de tipo menu, pero no me funciona. A ver si me podeis ayudar:

<select name="centro" id="centro">
<option value="0">(Seleccionar Centro)</option>
<%
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\bd1.mdb"))
set oStr = "SELECT * FROM centro"
set oRs = oConn.Execute(strSQL)
i=1
Do While Not oRS.Eof
Response.Write("<option value='" & i & "'")
Response.Write(">" & oRs("centro") & "</option>")
oRS.MoveNext
i=i+1
loop
oConn.Close
set oConn = nothing
%>
</select>

Muchas Gracias por adelantado