AppState Object is Blank

[Anthony C]

I'm setting a couple of appstate objects with the
following code... when I go to access them later, i'm not
getting any data.. please help

CODE IN GLOBAL.ASAX:
================================================== ======
Sub Application_Start(ByVal sender As Object, ByVal e As
EventArgs)
' Fires when the application is started
Dim aImpactUniverseArray() As ftImpactOutRecord
Dim hImpactUniverseHash As Hashtable = New
Hashtable()
Dim lCount As Long

ReDim aImpactUniverseArray(0)
' Read in Universe & Universe Hashtable
lCount = ReadftImpact(aImpactUniverseArray,
hImpactUniverseHash)
Application("ftImpactUniverse") =
aImpactUniverseArray ' Structure
Application("ftImpactUniverseHash") =
hImpactUniverseHash ' Hashtable
' Read in pricing & hash
End Sub

CODE IN ASPX PAGE ACCESSING AT RUNTIME:
================================================== =======

Private Sub Page_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles MyBase.Load
'/ Get Impact Universe
ftImpUniverse = Application("ftImpactUniverse")
hImpHash = Application("ftImpactUniverseHash")
End Sub

[Anthony C]

Never Mind - internal bug

>-----Original Message-----
>I'm setting a couple of appstate objects with the
>following code... when I go to access them later, i'm

not

>getting any data.. please help
>
>CODE IN GLOBAL.ASAX:
>================================================= =======
>Sub Application_Start(ByVal sender As Object, ByVal e As
>EventArgs)
> ' Fires when the application is started
> Dim aImpactUniverseArray() As ftImpactOutRecord
> Dim hImpactUniverseHash As Hashtable = New
>Hashtable()
> Dim lCount As Long
>
> ReDim aImpactUniverseArray(0)
> ' Read in Universe & Universe Hashtable
> lCount = ReadftImpact(aImpactUniverseArray,
>hImpactUniverseHash)
> Application("ftImpactUniverse") =
>aImpactUniverseArray ' Structure
> Application("ftImpactUniverseHash") =
>hImpactUniverseHash ' Hashtable
> ' Read in pricing & hash
> End Sub
>
>CODE IN ASPX PAGE ACCESSING AT RUNTIME:
>================================================= ========
>
>Private Sub Page_Load(ByVal sender As System.Object,

ByVal

>e As System.EventArgs) Handles MyBase.Load
> '/ Get Impact Universe
> ftImpUniverse = Application("ftImpactUniverse")
> hImpHash = Application("ftImpactUniverseHash")
>End Sub
>.
>