Bueno, la única falla está en negritas...pequeña gran falla
no estábamos regresando nada de la función, por eso es que mandaba el error.
Código:
<%
function conx_bd(nombre_bd)
'CONEXION A BASE DE DATOS DE TODOS LOS MODULOS
'DE MANERA GENERAL.
'EL PARAMETRO nombre_bd CORRESPONDE AL NOMBRE DE LA
' BASE DE DATOS QUE SE DESEE ABRIR
con = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source="& Server.MapPath("../bd/"&nombre_bd&".mdb" &";" & _
"Jet OLEDB:Database Password=miclave;"
set conx = Server.Createobject("adodb.connection")
conx.open con
conx_bd = conx
end function
%>
-----------------------------------------------------------------------
-----------------------------------------------------------------------
<%
sql= "SELECT * FROM area"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conx_bd("syt"), 3, 3
%>
<select name="area" id="area">
<% do while not rs.EOF %>
<option value="<%=rs("id")%>"><%=rs("nombre")%></option>
<% rs.movenext
loop
%>
</select>
Salu2,