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