subrutina que conecta a base de datos

[NeoZ]

Puedes poner los Set dentro de la rutina conectar. Así cada vez que la llames no tendrás problemas.

Código:

Public Sub Conectar(strCon)
    Set adoCon = Server.CreateObject("ADODB.Connection")
    On Error Resume Next
    adoCon.connectionstring = strConn
    adoCon.Open
    If Err.Number <> 0 Then	Response.Write("Error de conexión con la BBDD")
    On Error goto 0
    Set rsComun = Server.CreateObject("ADODB.Recordset")
    'Puedes continuar definiendo recordsets
End Sub

Public Sub CerrarCon()
    If isObject(rsComun) then
       Set rsComun = Nothing
    End If
    If isObject(adoCon) then
       Set adoCon = Nothing
    End If
End Sub

para llamarlos:

Código:

Call Conectar("definimoslaconexiónalaBBDD")

strSQL = "Select * from TABLA"
rsComun.Open strSQL, adoCon
rsComun.Close

Call cerrarCon

Saludos!
P.D. Creo que no he metido la "gamba", ya que no lo he probado. De todas maneras el código puede ser muy flexible y se pueden ir añadiendo los selectores para diferentes tipos de conexión para BBDD, más recordsets auxiliares, etc...