<%
'Conectamos con nuestra tabla donde tengamos los datos del menu
'Declaramos variables
DimNoReg ArrMenu()
'Cuentas cuantos registros tiene tu tabla
NoReg = RS.Recordcount
'los ingresamos en un array
For a= 0 To NoReg
If a = 0 Then
Redim ArrMenu(a)
ArrMenu (a) = RS.field("campo")
Else
Redim preserve ArrMenu(a)
ArrMenu(a) = RS.field("campo")
End IF
Next
%>
ahora los datos ingresados en el array los pondremos en las opciones de nuestro menu
<select name="select">
<%
For i = 0 To Ubound(ArrMenu)
If RS.field("campo") = ArrMenu(i) Then
Response.write("<Option Value" & ArrMenu(i) & " selected>" & ArrMenu(i) & "</option>")
Else
Response.write("<Option Value" & ArrMenu(i) & ">" & ArrMenu(i) & "</option>")
End If
Next %>
</Select>
------------------------------
Con eso tendras tus opciones en el menu y la que tienes en la base de datos estara seleccionada, te recomiendo que las opciones de tu menu ensten en una tabla de tu base de datos asi sera mas facil y rápido agregar y quitar opciones
Bye y suerte
