Dictionary con Application-Scope

[SimoneVB]

Ciao a tutti,
ho l'esigenza di creare un oggetto Dictionary con visibilità di applicazione,
così ho messo questo codice sul Global.asa:


'
Sub Application_OnStart()

Set RegUsersList = Server.CreateObject("Scripting.Dictionary")
RegUsersList.CompareMode = 1 ' TextCompare
Set Application("RegUsersList") = RegUsersList

End Sub


però non funziona !
La stringa dell'interfaccia è corretta ma mi dà l'errore

Oggetto Application, ASP 0197 (0x80004005)
Impossibile aggiungere all'oggetto intrinseco dell'applicazione
un oggetto con modello di threading Apartment.

nell'ultima istruzione.
Tra l'altro mi fa la stessa cosa con Scripting.FileSystemObject.
Nonostante abbia visto in giro esempi che usavano proprio questo oggetto (FSO) mi dà comunque lo stesso
errore.
Errore che invece non si verifica con ADODB.Connection, ADODB.Recordset o altri.


E' proprio impossibile o c'è un modo per utilizzare un Dictionary a livello di applicazione ?

Ho provato anche con

<OBJECT RUNAT = Server SCOPE = Application ID = RegUsersList PROGID = "Scripting.Dictionary"></OBJECT>


ma neanche questo funziona: mi dà l'errore

Errore di compilazione di Microsoft VBScript (0x800A0400)
Prevista istruzione
//global.asa, line 5
<OBJECT RUNAT = Server SCOPE = Application ID = RegUsersList PROGID = "Scripting.Dictionary"></OBJECT>

Help please

[SimoneVB]

*