ASP:how to show all session variables

<!--
<% =Session.Contents.Count %> 
<%
ON Error resume NEXT
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
%>
-->

more...