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

 

Welcome To The Chat                  

                           Please Keep child safe thanks I will be in and out today        

 

 

 

 

 

This is a relaxation and entertainment chat room movies art tv family Computing happenings anything keeping it happy relaxing and fun

 

 

 Chatroom Entrance

  
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 %>
CopyrigCopyright © 2005 The Roys. All rights reserved.