well I'm trying to make a chatroom with ASP

in fact I want to make a big-sized global array (one dimensional) 

everytime  a user enters the chatroom he enters a nick name ....

 I want to publish the nick names of all users in the chatroom

well I tried the following:

in the global.asa I have

  Sub Application_onStart()

 dim Arrays(3)

 Arrays(0) = "ali"

 Application("UsersArray") = Arrays

End Sub



in the asp page in which I want the nick names to appear I wrote:<%

       dim strNick

       strNick = request.cookies("nick")

       Application("UsersArray") = strNick

       

       

  for each objItem in Application.Contents

  if IsArray(Application.Contents(objItem)) then

    varArray = Application.Contents(objItem)

    for intLoop = 0 to UBound(varArray)

    if (varArray(intLoop) = "") then

    intLoop = UBound(varArray)

    else

    response.write varArray(intLoop) & "--<br>"

    end if

    next

  end if

   

   next

     

  %>

    

 yet I got nothing!!

please Help if possible