Interesante...una función básicamente deberá devolver un valor, en este caso debería devover un objeto, el objeto conx...pero creo que no hay forma de librarse de instanciar el recordset, sin probarlo, se me ocurre algo así, a ver si funciona:
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_db = 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>
A ver que pasa...
Salu2,