<% Option Explicit %> <% Response.Buffer = True %> <% Response.Expires = -1 %> <% Response.CacheControl = "Public" %> <% If Request.Querystring("Reset") = "True" Then Call Reset() End If %> Tinos.biz Chat
  Tinos.biz Chat - ChatRoom Enter  
Enter a Username to proceed to Chatroom:


Username:

Users 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 %>