Crear muchas cenexiones mediante una SUB

[u_goldman]

No se si funcione, pero que tal algo como esto:

Código:

Sub ConnOn(ds_nombre)
        execute "Conn_"&db_nombre
	cst = "Driver={SQL Server};Server=ifamserver;Database=base1;UID=;PWD=  "
	Set "Conn_"&db_nombre = Server.CreateObject("ADODB.Connection")
	"Conn_"&db_nombre.open cst
End Sub


rs1.Open SQL, SUBConectarCon('base1')
rs2.Open SQL, SUBConectarCon('base2')

Editando: execute en lugar de exec