Advanced Search

Return to Snippet

Revision: 24691
at March 9, 2010 01:11 by angelpatxi
Initial Code 
<%@ Language=VBScript %>
<% 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

%>
Initial URL 
http://www.psacake.com/web/hl.asp
Initial Description 
List Session and Application Variables
Initial Title 
Lista de variables de sesion y aplicación
Initial Tags 

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
ASP