<%
Option Explicit
Dim MyApp
For Each MyApp in Application.Contents
  Response.Write "Nazwa zmiennej aplikacji: " & MyApp _
    & " Warto: " & Application(MyApp) & "<P>"
Next
%>
