<%@ Page Language="vb" %>
<html>
<head>
<script runat="server">
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) + "<br/>"
Next I
End Sub
</script>
</head>
<body>
<asp:label id="Message" runat="server"/>
</body>
</html>