List of all session variables in the session collection

Session Variables - <% =Session.Contents.Count %> Found<%Dim item, itemloop 
For Each item in Session.Contents
If IsArray(Session(item)) then
 For itemloop = LBound(Session(item)) to UBound(Session(item))%>
<% =item %> <% =itemloop %> <% =Session(item)(itemloop) %><% Next Else%><% =item %> <% =Session.Contents(item) %><% End If Next %>