sadece case 3 kısmında if kontrolu kullandım

<%
Dim saryMessages
Dim intArrayPass
Dim intTempArrayPass
Dim intLastMessageID
Dim blnShowMessage
Dim blnRecordstoShow
Dim blnOzelKapat
Dim blnFormatText
blnOzelKapat = CBool(Session("OzelKapat"))
blnFormatText = CBool(Session("FormatText"))
intLastMessageID = Clng(Session("lastMessage"))
strUsername = Session("Username")
blnRecordstoShow = False
If strUsername = "" OR CheckIfBanned(getIP()) Then Response.End
'Get the array
If IsArray(Application(ApplicationMsg)) Then
saryMessages = Application(ApplicationMsg)
Else
ReDim saryMessages(6, 0)
Application.Lock
Application(ApplicationMsg) = saryMessages
Application.UnLock
End If
Response.Write(vbCrLf & "var addHTML = """";")
For intArrayPass = 1 TO UBound(saryMessages, 2)
'Array Legend
'0 = Author
'1 = Message
'2 = Date
'3 = Type
'4 = User ID, 0 = All
'5 = Message ID
Dim strAuthor
Dim strMessage
Dim dtmDate
Dim intType
'0 = Regular Chat
'1 = Admin Chat
'2 = New User
'3 = User Left
'4 = /me Command
'5 = Private Message
'6 = Command Notification
Dim saryUserMsgTo
Dim intMsgID
blnShowMessage = True
strAuthor = saryMessages(0, intArrayPass)
strMessage = saryMessages(1, intArrayPass)
dtmDate = saryMessages(2, intArrayPass)
intType = saryMessages(3, intArrayPass)
saryUserMsgTo = saryMessages(4, intArrayPass)
intMsgID = Clng(saryMessages(5, intArrayPass))
If isArray(saryUserMsgTo) Then
blnShowMessage = False
For intTempArrayPass = 0 TO UBound(saryUserMsgTo)
If saryUserMsgTo(intTempArrayPass) = strUsername Then
blnShowMessage = True
End If
Next
End If

If blnShowMessage AND intMsgID > intLastMessageID Then
If intType <> 1 Then
If blnFormatText Then
strMessage = Replace(strMessage, "\", "\\")
strMessage = Replace(strMessage, """", "\""")
strMessage = removeAllTags(strMessage)
strAuthor = removeAllTagss(strAuthor)
strMessage = FormatMessage(strMessage)
Else
strMessage = CleanMessage(strMessage)
End If
End If

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
if blnOzelKapat=true then
response.Write("özel mesajı kapattık")
else
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 if
End Select

blnRecordstoShow = True
intLastMessageID = intMsgID
Session("lastMessage") = intLastMessageID
End If
Next
'Extra javascript stuff
If blnRecordstoShow Then
Response.Write(vbCrLf & "var chatBoxHTML = document.getElementById(""chatBox"");")
Response.Write(vbCrLf & "chatBoxHTML.innerHTML += addHTML;")
Response.Write(vbCrLf & "toBottom()")
End If
%>