If Admin Koşulu ekleme hakkında yardım ?

If Hour(Now) >= 5 AND Hour(Now) <= 11 Then
Call PostMessage("", saryActiveUsers(1, intArrayPass) & "<font color=black> Sohbet`e <font color=#006600><u>Giriş</u></font> Yaptı<tr><td><b><font color=red>• Günaydın <font color=black>" & saryActiveUsers(1, intArrayPass) & "</font> hoş geldiniz.</font></b></td></tr>", 1)
ElseIf Hour(Now) >= 12 AND Hour(Now) <= 18 Then
Call PostMessage("", saryActiveUsers(1, intArrayPass) & "<font color=black> Sohbet`e <font color=#006600><u>Giriş</u></font> Yaptı<tr><td><b><font color=red>• Tünaydın <font color=black>" & saryActiveUsers(1, intArrayPass) & "</font> hoş geldiniz.</font></b></td></tr>", 1)
ElseIf Hour(Now) >= 19 AND Hour(Now) <= 22 Then
Call PostMessage("", saryActiveUsers(1, intArrayPass) & "<font color=black> Sohbet`e <font color=#006600><u>Giriş</u></font> Yaptı<tr><td><b><font color=red>• İyi akşamlar <font color=black>" & saryActiveUsers(1, intArrayPass) & "</font> hoş geldiniz.</font></b></td></tr>", 1)
Else
Call PostMessage("", saryActiveUsers(1, intArrayPass) & "<font color=black> Sohbet`e <font color=#006600><u>Giriş</u></font> Yaptı<tr><td><b><font color=red>• İyi geceler <font color=black>" & saryActiveUsers(1, intArrayPass) & "</font> hoş geldiniz.</font></b></td></tr>", 1)
End If

BU IF KOSULUNUN SONUCLARI

If Hour(Now) >= 5 AND Hour(Now) <= 11 Then
Çıktı : Günaydın Rumuz Hoş Geldiniz
ElseIf Hour(Now) >= 12 AND Hour(Now) <= 18 Then
Çıktı : Tünaydın Rumuz Hoş Geldiniz
ElseIf Hour(Now) >= 19 AND Hour(Now) <= 22 Then
Çıktı : İyi akşamlar Rumuz Hoş Geldiniz
Else
Çıktı : İyi geceler Rumuz Hoş Geldiniz
End If

Arkadaşlar ben bu ıf kosuluna
blnAdmin = CBool(Session("Admin"))
blnGizlimod = CBool(Session("Gizlimod"))
blnMod = CBool(Session("Mod"))
ile giriş yapmıs kullanıcılara detaylı giriş açıklaması yapmak ıstıyorum .
If blnAdmin=True OR blnMod=True OR blnGizlimod=True Then bu If kosulunuda yukardakı ıf dongusune baglamak ıstıyorum.

Örnek olarak
Admin mod veya gızlı mod gırısı yapmamıs kullanıcı
If Hour(Now) >= 5 AND Hour(Now) <= 11 Then
Call PostMessage("", saryActiveUsers(1, intArrayPass) & "<font color=black> Sohbet`e <font color=#006600><u>Giriş</u></font> Yaptı<tr><td><b><font color=red>• Günaydın <font color=black>" & saryActiveUsers(1, intArrayPass) & "</font> hoş geldiniz.</font></b></td></tr>", 1)
bu fonksıyonla sadece
Günaydın Rumuz Hoş Geldiniz
yazısını gorecek fakat kullanıcı eger admın mod veya gızlı mod gırısı yaptı ıse

Call PostMessage("", saryActiveUsers(1, intArrayPass) & "<font color=black> Sohbet`e <font color=#006600><u>Giriş</u></font> Yaptı <font color=red>IP: <font color=blue>" & getIP() & "</font><tr><td><b><font color=red>• Günaydın <font color=black>" & saryActiveUsers(1, intArrayPass) & "</font> hoş geldiniz.</font></b></td></tr>", 1)
Günaydın Rumuz Hoş Geldiniz IP : XX.xx.XXx.Xx gıbı gorecek fonksıyon calısıyor fakat ıkı If dongusunu bırlestırmeyı basaramadım

BENIM YAPTIGIM BU SEKILDE FAKAT CALISMIYOR YANLISIM NEREDEDIR YARDIM EDERSENIZ SEVINIRIM KOLAY GELSIN ARKADASLAR

If blnAdmin=True OR blnMod=True OR blnGizlimod=True Then
If Hour(Now) >= 5 AND Hour(Now) <= 11 Then
Call PostMessage("", saryActiveUsers(1, intArrayPass) & "<font color=black> Sohbet`e <font color=#006600><u>Giriş</u></font> Yaptı <font color=red>IP: <font color=blue>" & getIP() & "</font><tr><td><b><font color=red>• Günaydın <font color=black>" & saryActiveUsers(1, intArrayPass) & "</font> hoş geldiniz.</font></b></td></tr>", 1)
'Write to log file
Call WriteLog(strUsername & "|>>> [" & getIP() & "] (" & Time & ") Sohbet`e Giriş Yaptı.")
ElseIf Hour(Now) >= 12 AND Hour(Now) <= 18 Then
Call PostMessage("", saryActiveUsers(1, intArrayPass) & "<font color=black> Sohbet`e <font color=#006600><u>Giriş</u></font> Yaptı <font color=red>IP: <font color=blue>" & getIP() & "</font><tr><td><b><font color=red>• Tünaydın <font color=black>" & saryActiveUsers(1, intArrayPass) & "</font> hoş geldiniz.</font></b></td></tr>", 1)
'Write to log file
Call WriteLog(strUsername & "|>>> [" & getIP() & "] (" & Time & ") Sohbet`e Giriş Yaptı.")
ElseIf Hour(Now) >= 19 AND Hour(Now) <= 22 Then
Call PostMessage("", saryActiveUsers(1, intArrayPass) & "<font color=black> Sohbet`e <font color=#006600><u>Giriş</u></font> Yaptı <font color=red>IP: <font color=blue>" & getIP() & "</font><tr><td><b><font color=red>• İyi akşamlar <font color=black>" & saryActiveUsers(1, intArrayPass) & "</font> hoş geldiniz.</font></b></td></tr>", 1)
'Write to log file
Call WriteLog(strUsername & "|>>> [" & getIP() & "] (" & Time & ") Sohbet`e Giriş Yaptı.")
Else
Call PostMessage("", saryActiveUsers(1, intArrayPass) & "<font color=black> Sohbet`e <font color=#006600><u>Giriş</u></font> Yaptı <font color=red>IP: <font color=blue>" & getIP() & "</font><tr><td><b><font color=red>• İyi geceler <font color=black>" & saryActiveUsers(1, intArrayPass) & "</font> hoş geldiniz.</font></b></td></tr>", 1)
'Write to log file
Call WriteLog(strUsername & "|>>> [" & getIP() & "] (" & Time & ") Sohbet`e Giriş Yaptı.")
End If
Else
If Hour(Now) >= 5 AND Hour(Now) <= 11 Then
Call PostMessage("", saryActiveUsers(1, intArrayPass) & "<font color=black> Sohbet`e <font color=#006600><u>Giriş</u></font> Yaptı <font color=red>IP: <font color=blue>" & getIP() & "</font><tr><td><b><font color=red>• Günaydın <font color=black>" & saryActiveUsers(1, intArrayPass) & "</font> hoş geldiniz.</font></b></td></tr>", 1)
'Write to log file
Call WriteLog(strUsername & "|>>> [" & getIP() & "] (" & Time & ") Sohbet`e Giriş Yaptı.")
ElseIf Hour(Now) >= 12 AND Hour(Now) <= 18 Then
Call PostMessage("", saryActiveUsers(1, intArrayPass) & "<font color=black> Sohbet`e <font color=#006600><u>Giriş</u></font> Yaptı<tr><td><b><font color=red>• Tünaydın <font color=black>" & saryActiveUsers(1, intArrayPass) & "</font> hoş geldiniz.</font></b></td></tr>", 1)
'Write to log file
Call WriteLog(strUsername & "|>>> [" & getIP() & "] (" & Time & ") Sohbet`e Giriş Yaptı.")
ElseIf Hour(Now) >= 19 AND Hour(Now) <= 22 Then
Call PostMessage("", saryActiveUsers(1, intArrayPass) & "<font color=black> Sohbet`e <font color=#006600><u>Giriş</u></font> Yaptı<tr><td><b><font color=red>• İyi akşamlar <font color=black>" & saryActiveUsers(1, intArrayPass) & "</font> hoş geldiniz.</font></b></td></tr>", 1)
'Write to log file
Call WriteLog(strUsername & "|>>> [" & getIP() & "] (" & Time & ") Sohbet`e Giriş Yaptı.")
Else
Call PostMessage("", saryActiveUsers(1, intArrayPass) & "<font color=black> Sohbet`e <font color=#006600><u>Giriş</u></font> Yaptı<tr><td><b><font color=red>• İyi geceler <font color=black>" & saryActiveUsers(1, intArrayPass) & "</font> hoş geldiniz.</font></b></td></tr>", 1)
'Write to log file
Call WriteLog(strUsername & "|>>> [" & getIP() & "] (" & Time & ") Sohbet`e Giriş Yaptı.")
End If
End If

<%set rsuye = baglan.execute("select * from uye where onay=1 and uyeid= "& session("uyeid") &" ")%>
<%if rsuye("bulten")="0"  then%>
<%else%><%end if%><%if rsuye("bulten")="2" or rsuye("bulten")="3" or rsuye("bulten")="4" or rsuye("bulten")="5"  then%>
<%else%><%end if%>
Günaydın Rumuz Mesai başlamak üzere. Saat xx:xx
<%else%><%end if%><%if rsuye("bulten")="3"  then%>
oooo Rumuz Hoş geldin Özledik seni!. :))
<%else%><%end if%><%if rsuye("bulten")="2"  then%>
Günaydın Rumuz Hoş Geldiniz. Tarih xx.xx.xx
	<%else%><%end if%><%if rsuye("bulten")="0" or rsuye("bulten")="1" then%>
Günaydın Rumuz Hoş Geldiniz
<%else%><%end if%>

Gibi bişe yapabilersin mesela...