Font Color Çalışmıyor ?

<!--#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 ?

Call PostMessage("", saryActiveUsers(1, intArrayPass) & "" <font color=#ff0000>Sohbet`ten Çıkış Yaptı.</font>"", 1)

bunu kopyal yapıştır

Expected ')'
/functions/functions_users.asp, line 20
Call PostMessage("", saryActiveUsers(1, intArrayPass) & "" <font color=#ff0000>Sohbet`ten Çıkış Yaptı.</font>"", 1)

olmadı bu hatayı verdi

PostMessage fonksiyonu html kodlarını filtreliyordur.

buyuk ıhtımal ıle oyle cözemedim ya herhangı bır functions da yok postmessage de kanalda yazdıgım gıbı cıkıyo komut html olarak gorunmuyor yınede çok teşekkürler.

doronty37 fıkrınden yola cıkarak sorunu buldum

'*********************************************
'*** Strip all tags *****
'*********************************************
'Remove all tags for text only display (mainly for subject lines)
Private Function removeAllTags(ByVal strInputEntry)
'Remove all HTML scripting tags etc. for plain text output
strInputEntry = Replace(strInputEntry, "<", "&lt;", 1, -1, 1)
strInputEntry = Replace(strInputEntry, ">", "&gt;", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "'", "'", 1, -1, 1)
strInputEntry = Replace(strInputEntry, """", """", 1, -1, 1)


functions komutu ıle html engellenıyormus su an sorunu hallettım tsk ederım.