No estoy muy ed acuerdo con esto, pero fijate si te sirve.
Código:
<%
Dim Obj
Set Obj = Server.CreateObject("ADODB.Connection")
if isObject(Obj) then
if lcase(typename(Obj)) = "connection" then
if Obj.State = 1 then
Obj.Close()
end if
end if
end if
%>
Saludos