no hay mucho mas codigo, pongo aquí el codigo para ese objeto(menu):
<hr width="80%">
<table width="80%" border="0" align="center">
<tr>
<td width="22%"><strong>Centro habitual:*</strong></td>
<td width="28%">
<%
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
%>
<select name="centro" id="centro">
<option value="0">(Seleccionar Centro)</option>
<%
Do While Not oRS.Eof
%>
<option value="<%=i%>"><%=oRs("centro")%></option>
<%
oRS.MoveNext
i=i+1
loop
%>
</select>
<%
oConn.Close
set oConn = nothing
%>
</select></td>
<td width="25%"> </td>
<td width="25%"> </td>
</tr>
</table>