<%
'this loop starts the for loop to loop through each item in the collection
For Each item in Session.Contents
'if item is an object then it will say it can't display object
If IsObject(session.contents(item)) then
 Response.Write(item & ":Can't display object" & "<br>")
else
'this is the part i am lost ????
  If Isarray(session.Contents(item)) then
      response.Write "array: " & session.Contents(item)
    For each objarray in session.Contents(item)
       response.Write "<li>"& _
       session.Contents(item)(objarray)& "<br>"
    next
       response.write "</li>"
   else
response.Write(item & " : " & session.Contents(item) & "<br>")
    end if
end if

Next
%>

i got this code about sessions variable from wrox asp 3.0 book and i understand that it list all the session variables in the session collection, but the book doesnt explain what each section does. Please explain thanks.

<%
For Each item in Session.Contents
response.Write(item & " : " & session.Contents(item) & "<br>")
Next
%>

well all im saying is what is the rest of the code for, ie objarray, etc. When all i can do is write these couple of lines and it does the same. thanks

Hi face,

If you store just single values in Session state, your code will work fine.

However, when you insert an array, the additional code block sees that it is an array, and performs some additional tasks on it. Personally, I don't think this code will run fine. AFAIK, you cannot directly retrieve elements from an array in Session state. You'll need to "materialize" it in the page as a local variable, and then loop through its items. I believe the following is a better solution to display both string items as arrays from Session state:

---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

dim anArray(9)

For i=1 to 3
  anArray(i-1)="item"


next

Session("MyArray") = anArray

'this loop starts the for loop to loop through each item in the collection
For Each item in Session.Contents
    'if item is an object then it will say it can't display object
    If IsObject(session.contents(item)) then
        Response.Write(item & ":Can't display object" & "<br>")
    Else
        If Isarray(session.Contents(item)) then
            Dim localArray
            localArray = session.Contents(item)
            For each myItem in localArray
                response.Write "<li>"& myItem
                response.write "</li>"
            next
        Else
                Response.Write(item & " : " & session.Contents(item) & "<br>")
        End if
    End if
Next

The problem i have with this is that it will write the 3 items, and the rest of it will be just bullets going all the way to the 9th array. Is there a way to fix it to just write just the 3 items?

Well, I don't think so. You declare the array to hold 10 elements (from 0 to 9) so it will display them all. Although you haven't assigned a value, there is still an element. Two work arounds:

1. Declare your array using dim anArray(2) so it holds just the two elements.

2. Check the value of the item in the loop:

For each myItem in localArray
    If Len(myItem) > 0 Then
        response.Write "<li>"& myItem
        response.write "</li>"
    End If
Next

This will write the array's contents only when there is a value in the array item. This can cause some unpredictable results; if your 2 item doesn't contain a value, but your third does, it will skip the second, but display the third item.

Cheers,

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.