Pues masn sencillo que en el otro post:
Código:
sql = "select * from colegio"
Set dato = Server.CreateObject("ADODB.Connection")
dato.open "colegio"
set conexion = dato.execute(sql)
if conexion.eof then
conexion.close
set conexion = nothing
dato.close
set dato = nothing
response.redirect "error.asp?msg=No hay colegios disponibles"
end if
nombre = conexion("nombre")
conexion.close
set conexion = nothing
dato.close
set dato = nothing
En tu mismo còdigo, puedes cerrar antes de redireccionar, ya que al no encontrar datos, pues ya no vas a utilizar esa consulta, así independientemenre de que camino tome, tu cierras las conexiones y optimizas recursos