ayuda error objeto cerrado

[marioipn_vz]

Gracias Libra. El código empieza de esta forma:

Dim Conn, Rs, RsAux, gsCnn
Set Conn = server.CreateObject("ADODB.Connection")
Set Rs = server.CreateObject("ADODB.Recordset")
Set RsAux = server.CreateObject("ADODB.Recordset")

gsCnn = application("strDSN")

Y lo siguiente está en el global.asa:

sub Application_OnStart
application("strDSN") ="DSN=AMABDI;user ID=root;Password=ama"
end sub