<% Option Explicit %> <% Response.Buffer = True %> <% Response.Expires = 0 %> <% Response.CacheControl = "Public" %> <% If Request.Querystring("Reset") = "True" Then Call Reset() End If %> Chat Köşesi

 

 

 

 

 

 

Nick:

Online Kişiler :
<% '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 & "Online 0 Kişi") Else Dim intArrayPass For intArrayPass = 1 To UBound(saryActiveUsers, 2) Response.Write(vbCrLf & saryActiveUsers(1, intArrayPass) & "
") Next End If %>