Sub Page_Load(sender As Object, e As EventArgs)
Dim myArray(4)
myArray(0) = "abc"
myArray(1) = "def"
myArray(2) = "ghi"
myArray(3) = "jkl"
myArray(4) = "mno"
Session("mySession") = myArray
Dim i As Integer
For i = 0 To UBound(Session("mySession"))
IF Not IsNothing(myArray(i)) Then
Me.lblText1.Text = Me.lblText1.Text & Session("mySession")(i) & "<br>"
End IF
Next