<!--#include file="functions_log.asp"-->
<%
Const ApplicationUsers = "ChatUsers"
Dim saryActiveUsers
Dim strUsername
Dim blnIsArray
Dim strAdminCommand
'Get the username
strUsername = Session("Username")
Function RemoveUnActive()
'Iterate through the array to remove old entires
For intArrayPass = 1 To UBound(saryActiveUsers, 2)
'Check the last checked date. If user wasnt updated 20 seconds ago then they must be gone
If CDate(saryActiveUsers(5, intArrayPass)) < CDate(CDbl(DateAdd("s", -15, Now()))) Then
'Post message that the user has left
Call PostMessage("", saryActiveUsers(1, intArrayPass) & " Sohbet`ten Çıkış Yaptı.", 1)
----------------------------------------------------------------------
----------------------------------------------------------------------
Call PostMessage("", saryActiveUsers(1, intArrayPass) & " Sohbet`ten Çıkış Yaptı.", 1)
Bu komutlta font color komutunu calıstıramadım.
Call PostMessage("", saryActiveUsers(1, intArrayPass) & " <font color=#ff0000>Sohbet`ten Çıkış Yaptı.</font>", 1)
Chat sayfamda bu sekılde yaptıgımda
amasra <font color=#ff0000>Sohbet`ten Çıkış Yaptı.</font>
olarak çıkıyor çalışmıyor neden kaynaklanıyor ?