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