<%
Dim blnOzelKapat


blnOzelKapat = CBool(Session("OzelKapat"))


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)

'Özel Mesaj
Case 3
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


Merhabalar Case3 bolumunde session kontrolu yapamıyorum if komutu olmadıgı ıcın else ıse yaramıyor Session("OzelKapat")=True ıle gırıs yapanlar yanı ozellerını kapatanlar Ozel mesaj kısmını kullanamasın ıstıyorum ben soyle bıseyler yaptım ama bı turlu calıstıramadım nerede hata yapıyorum

Case 3
Session("OzelKapat") = "True" then
Response.Write(vbCrLf & "addHTML += ""Özel Mesaj Yazamassınız!"";")
Case 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 Select


yardımlarınızı beklıyorum lutfen :S