<%@ Page Language="vb" %>
Sub Page_Load()
Dim Key As String
Message.Text = "Application Keys:"
For Each Key in Application.Keys
Message.Text &= "
Key: " & Key
Message.Text &= "
Value: " & Application(Key)
Next
End Sub