<%
Response.CacheControl = "private"
Response.ExpiresAbsolute = #01/01/1980 00:00#
%>
Nouvelle page 1
Contenu de la session:
<%
'On error resume next %>
<%
Response.Write("Le path de glo.mdb est " & server.mappath("glo.mdb") )
Response.Write "Le SessionID est défini: [" & Session.SessionId & "]
" & vbCRLF
%>
Contents (<% = Session.Contents.Count %> élément(s))
<%
For Each Item in Session.Contents
Response.Write "- "
Call ShowItem (item, Session.Contents(Item))
Response.Write "
" & vbCRLF
Next ' Key
%>
Application
Contents (<% = Application.Contents.Count %> élément(s))
<%
Response.Write "" & item
For Each Item in Application.Contents
Response.Write "- "
Call ShowItem (item, Application.Contents(item))
Response.Write "
"
next
Response.Write "
"
' Response.Write "Item [" & Item & "]"
' if IsArray (Application.Contents(Item)) then
' n = UBound (Application.Contents(Item))
' Response.Write " est un tableau de taille " & n + 1 & "
"
' For ItemKey = 0 to n
' Response.Write "- Sub Item: [" & Item & "] (" & ItemKey & ") : [" _
' & Application.Contents(Item)(ItemKey) & "]
"
' Next
' Response.Write "
"
' else
' Response.Write "est une variable simple: [" & Application.Contents(Item) & "]"
' end if
' Next ' Key
%>
Page de saisie | Page d'abandon