<%@ Page Language="vb" %>
Sub Page_Load()
Session("foo") = "Hello, "
Session("bar") = "World!"
Message.Text = "The Session collection contains " & _
Session.Count & " items."
Dim I as Integer
For I = 0 To Session.Count - 1
Message.Text &= Session(I)
Next
End Sub