Function Ozel_Kapat()
If Session("OzelKapat") = True then
Response.Write(vbCrLf & "addHTML += ""Özel Mesaj Yazamassınız!"";")
End If
End Function

strMessage = CheckForLink(strMessage)

Select Case intType
Case 0
Response.Write(vbCrLf & "addHTML += ""<table width=\""100%\""><tr><td><font color=7A7673>" & Time & "</font> <b><font color=black>(<font color=F74000>" & strAuthor & "</font><font color=black>)</font></b> " & strMessage & "</td></tr></table>"";")
Case 1
Response.Write(vbCrLf & "addHTML += ""<table width=\""100%\""><tr><td class=\""consolemessage\"">" & strMessage & "</td></tr></table>"";")
Response.Write(vbCrLf & "GMMSGSound();")

Case 2
Response.Write(vbCrLf & strMessage)
'PM
Case 3
Ozel_Kapat()
Response.Write(vbCrLf & "addHTML += ""<table width=\""100%\""><tr><td class=\""privatemessage\""><font color=7A7673>" & Time & "</font> <b><font color=red>Özel Msj <font color=brown>" & strAuthor & "</font> Gönderdi:</font> " & strMessage & "</td></tr></b></table>"";")
Response.Write(vbCrLf & "PMMSGSound();")
Call WriteLog(strAuthor & "|>>> [" & strUsername & "] Özel Mesaj: [" & strMessage & "] (" & Time & ")")
End Select


dediğiniz gibi bu şekilde uyguladım malesef çalışmıyor