Have you ever wondered how to list all of your Session and Application variables? Both the Session and Application objects provide the
Contents collection, which contains all of the session and application variables that are not objects (i.e., arrays, strings, integers, etc.).
You can loop through this collection using the
For Each ... Next. Since arrays are included in the
Contents collection, we need to determine if the current variable is an array, using the
IsArray function. If the variable is an array, we need to loop through the array one element at a time, displaying each element. If the variable is not an array, we need to simply display the variable.
<% Option Explicit %> <% 'How many session variables are there? Response.Write "There are " & Session.Contents.Count & _ " Session variables<P>" Dim strName, iLoop 'Use a For Each ... Next to loop through the entire collection For Each strName in Session.Contents 'Is this session variable an array? If IsArray(Session(strName)) then 'If it is an array, loop through each element one at a time For iLoop = LBound(Session(strName)) to UBound(Session(strName)) Response.Write strName & "(" & iLoop & ") - " & _ Session(strName)(iLoop) & "<BR>" Next Else 'We aren't dealing with an array, so just display the variable Response.Write strName & " - " & Session.Contents(strName) & "<BR>" End If Next %>