Cita:
<!--COMBO PROYECTOS-->
<select name="eleccion">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("base.mdb")
SQL = "SELECT * FROM cat_proyecto ORDER BY nombre"
Set rs = conn.Execute(SQL)
While Not rs.EOF
%>
<option value="<%=rs("id_cat_proy")%>"><%=rs("nombre")%> </option>
<%
rs.MoveNext
Wend
rs.Close
%>
<select name="eleccion">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("base.mdb")
SQL = "SELECT * FROM cat_proyecto ORDER BY nombre"
Set rs = conn.Execute(SQL)
While Not rs.EOF
%>
<option value="<%=rs("id_cat_proy")%>"><%=rs("nombre")%> </option>
<%
rs.MoveNext
Wend
rs.Close
%>