Cerrar conexiones

[rtremps]

El problema es que tengo que repasar toda la web para cerrar las conexiones que se puedan quedar abiertas ya que si no la web se bloquea aun programando el reciclado de los paquetes asp 4 veces al día.

He hecho una búsqueda en el código de la cadena "adodb.connection" y me han salido 5761 conexiones en 1727 archivos.

Estaba pensando en automatizar esto de alguna forma y se me ha ocurrido lo siguiente, a ver que os parece.

Para empezar tendría que recopilar todos los nombres de las conexiones porque no todas se llaman igual. Esto lo metería en un array para luego al final de cada página recorrer el array llamando a la función:

sub cerrar_conexiones(conn)
if isObject(conn) then
Select Case conn.Status
case 1
conn.close
set conn = nothing

end Select

end if
end sub

Me da miedo que sea peor la solución que el problema. ¿Que inconvenientes le veis a esto?

Saludos