adesso prova questo:
[code]
strConn = Application("MIBconn")
response.write strConn
response.end
set objConn= Server.CreateObject("ADODB.Connection")
set objRs = Server.CreateObject("ADODB.Recordset")
objConn.Open strConn
objRs.Open strsql, objConn, 1, 1
[/(code]