<%@Page Language="VB" %>
sub Page_Load(Sender as Object,e as EventArgs)
dim strVariable as string
Session("Name")="A "
Session("FavoriteColor")="Blue "
Session("EyeColor")="Brown "
Session("AMessage")="Welcome to my world "
Session("ASPNET")="asp.net "
for each strVariable in Session.Contents
Label1.Text +="" & strVariable &":" & _
Session(strVariable)&"
"
next
end sub