<% Option Explicit %> <% Response.Buffer = True %> <% Response.Expires = -1 %> <% Response.CacheControl = "Public" %> <% If Request.Querystring("Reset") = "True" Then Call Reset() End If %>

SALA PROINLAB - Seja bem vindo   Entre com seu nome para iniciar o chat: Nome: Usuarios Online: <% 'Get the array If IsArray(Application(ApplicationUsers)) Then saryActiveUsers = Application(ApplicationUsers) Else ReDim saryActiveUsers(6, 0) End If Call RemoveUnActive() If UBound(saryActiveUsers, 2) = 0 Then Call Reset() Response.Write(vbCrLf & "No users online") Else Dim intArrayPass For intArrayPass = 1 To UBound(saryActiveUsers, 2) Response.Write(vbCrLf & saryActiveUsers(1, intArrayPass) & " ") Next End If %>