Session("a") = 1
Session("b") = "kalle"

dim i
dim j
j=Session.Contents.Count
Response.Write("Session variabler: " & j)
For i=1 to j
Response.Write(Session.Contents(i) & "
")
Next

For Each i in Application.StaticObjects
Response.Write(i & "
")
Next