pues no
Código:
Sub SUBConectarCon(db_nombre)
execute "Conn_" & db_nombre
cst = "Driver={SQL Server};Server=ifamserver;Database=" & db_nombre & ";UID=;PWD="
Set "Conn_" & db_nombre = Server.CreateObject("ADODB.Connection")
"Conn_" & db_nombre.open cst
End Sub
set rs1 = server.CreateObject("adodb.recordset")
rs1.Open "SELECT * FROM Provincias", SUBConectarCon("IFAM_AnteDesarrollo")
El código anterior me dice:
Código:
Error de compilación de Microsoft VBScript error '800a03f3'
Se esperaba '='
...., line 16
Set "Conn_" & db_nombre = Server.CreateObject("ADODB.Connection")
Modificando un poco la sub...
Código:
Sub SUBConectarCon(db_nombre)
execute "Conn_" & db_nombre
cst = "Driver={SQL Server};Server=ifamserver;Database=" & db_nombre & ";UID=;PWD="
Set eval("Conn_" & db_nombre) = Server.CreateObject("ADODB.Connection")
eval("Conn_" & db_nombre).open cst
End Sub
'Sub SUBConectarCon(db_nombre)
' execute "Conn_" & db_nombre
' cst = "Driver={SQL Server};Server=ifamserver;Database=" & db_nombre & ";UID=;PWD="
' Set "Conn_" & db_nombre = Server.CreateObject("ADODB.Connection")
' "Conn_" & db_nombre.open cst
'End Sub
set rs1 = server.CreateObject("adodb.recordset")
rs1.Open "SELECT * FROM Provincias", SUBConectarCon("IFAM_AnteDesarrollo") me dice...
Código:
Error de Microsoft VBScript en tiempo de ejecución error '800a000d'
No coinciden los tipos: 'SUBConectarCon'
.../Default.asp, line 23
En donde la línea 23 es la que marqué en rojo (por lo menos, acá sale de la función... debe ser que no está devolviendo un objeto.. ¿no?)