<%@ Page Language="vb" %>
Sub Page_Load()
Dim I as Integer
Dim StateVars(Application.Count) As String
StateVars = Application.AllKeys
For I = 0 to StateVars.Length - 1
Message.Text = Message.Text + StateVars(I) + "
"
Next I
End Sub