Controlar apertura de conexion a BD

[Sancas]

Gracias Shiryu_Libra por contestar. Retomo, por si alguien está interesado, lo que mencionas en el link:

Código HTML:

if isObject(conn) then
    Select Case conn.Status
       case 1
            ' Esta abierto
       case 2
            ' Se esta abriendo
       case 4
            ' Se esta ejecutando un comando
       case 8
            ' El objeto se esta cargando
       case Else
            ' El objeto esta cerrado
    end Select
end if

Así pues, mi código quedaría de esta forma, no?

Código HTML:

if isObject(conn) then
    Select Case conn.Status
       case 1
            ' Esta abierto
            ' Código
       case Else
            ' El objeto esta cerrado
            Set cn = Server.CreateObject ("ADODB.Connection")
            cn.ConnectionString = "driver={SQL Server}; server=blablablablabla..."
            cn.Open
            ' Código
    end Select
end if

Mañana por la mañana lo pruebo en el trabajo y ya os contestaré qué tal me va ;)