Menu_com.asp ayrıntım aşağıdaki gibi... Bi bakarsan sevinirim
<%
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<> Copyright (C) 2004-2005 Tom Nance (SkyDogg) All Rights Reserved
'<> Events Suite Copyright (C) 2004-2005 Ken Smiley All Rights Reserved
'<>
'<> By using this program, you are agreeing to the terms of the
'<> GNU General Public License.
'<>
'<> This program is free software; you can redistribute it and/or
'<> modify it under the terms of the GNU General Public License
'<> as published by the Free Software Foundation; either version 2
'<> of the License, or any later version.
'<>
'<> All copyright notices regarding MaxWebPortal must remain intact
'<> in the scripts and in the outputted HTML.
'<> The "powered by" text/logo with a link back to
'<> http://www.maxwebportal.info in the footer of the pages MUST
'<> remain visible when the pages are viewed on the internet or intranet.
'<>
'<> Support can be obtained from support forums at:
'<> http://www.maxwebportal.info
'<>
'<> Email: maxweb@maxwebportal.info
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
%>
<!-- Menu bar #1. -->
<%
Response.Write("<div class=""menuBar"" style=""width:100%;"">")
Response.Write("<a class=""menuButton"" href=""default.asp"" onclick=""return buttonClick(event, 'menu1');"" onmouseover=""buttonMouseover(event, 'menu1');"" >Anasayfa</a>")
if mlev >= 1 then
Response.Write("<a class=""menuButton"" href=""members.asp"" onclick=""return buttonClick(event, 'menu2');"" onmouseover=""buttonMouseover(event, 'menu2');"">Üyeler</a>")
end if
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("forums","USERS") then
Response.Write("<a class=""menuButton"" href=""fhome.asp"" onclick=""return buttonClick(event, 'menu3');"" onmouseover=""buttonMouseover(event, 'menu3');"">Forumlar</a>")
end if
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("events","USERS") then
Response.Write("<a class=""menuButton"" href=""events.asp"" onclick=""return buttonClick(event, 'menu4');"" onmouseover=""buttonMouseover(event, 'menu4');"">Etkinlikler</a>")
end if
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("events","USERS") then
Response.Write("<a class=""menuButton"" href=""events.asp"" onclick=""return buttonClick(event, 'menu10');"" onmouseover=""buttonMouseover(event, 'menu10');"">Eğlence</a>")
end if
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("articles","USERS") then
Response.Write("<a class=""menuButton"" href=""article.asp"" onclick=""return buttonClick(event, 'menu5');"" onmouseover=""buttonMouseover(event, 'menu5');"">Makaleler</a>")
end if
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("downloads","USERS") then
Response.Write("<a class=""menuButton"" href=""dl.asp"" onclick=""return buttonClick(event, 'menu6');"" onmouseover=""buttonMouseover(event, 'menu6');"">Evraklar</a>")
end if
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("links","USERS") then
Response.Write("<a class=""menuButton"" href=""links.asp"" onclick=""return buttonClick(event, 'menu7');"" onmouseover=""buttonMouseover(event, 'menu7');"">Linkler</a>")
end if
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("pictures","USERS") then
Response.Write("<a class=""menuButton"" href=""pic.asp"" onclick=""return buttonClick(event, 'menu8');"" onmouseover=""buttonMouseover(event, 'menu8');"">Galeri</a>")
end if
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("classifieds","USERS") then
Response.Write("<a class=""menuButton"" href=""classified.asp"" onclick=""return buttonClick(event, 'menu9');"" onmouseover=""buttonMouseover(event, 'menu9');"">İlan Panosu</a>")
end if
if mlev >= 0 then
Response.Write("<a class=""menuButton"" href="""" onclick=""return buttonClick(event, 'menu22');"" onmouseover=""buttonMouseover(event, 'menu22');"">Fıkra,Şiir...</a>")
end if
<!-- End Main menus. -->
<!-- Sub menu Home. --><%
Response.Write("<div id=""menu1"" class=""nav_menu"" onmouseover=""menuMouseover(event)"">")
if (mlev = 0 and strNewReg = 1) or mlev = 4 then
Response.Write("<a class=""nav_menuItem"" href=""policy.asp"">Kayıt Ol</a>")
Response.Write("<div class=""menuItemSep""></div>")
end if
Response.Write("<a class=""nav_menuItem"" href=""yonetim.asp"">Yönetim Kadrosu</a>")
Response.Write("<a class=""nav_menuItem"" href=""features.asp"">Özellikler</a>")
if mlev = 0 then
Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindowCT('pm_pop_contact.asp');"">İletişim</a>")
end if
Response.Write("<a class=""nav_menuItem"" href=""faq.asp"">SSS</a>")
'Response.Write("<div class=""menuItemSep""></div>")
'Response.Write("<a class=""nav_menuItem"" href=""blank.asp"" onclick=""return false;"" onmouseover=""menuItemMouseover(event, 'menu1_4');""><span class=""menuItemText"">Örnek</span><span class=""menuItemArrow"">▶</span></a>")
Response.Write("</div>" & vbcrlf)
%>
<!-- Sub menu Members. --><%
if mlev >= 1 then
Response.Write("<div id=""menu2"" class=""nav_menu"" onmouseover=""menuMouseover(event)"">")
Response.Write("<a class=""nav_menuItem"" href=""cp_main.asp"" onclick=""return false;"" onmouseover=""menuItemMouseover(event, 'menu2_2');""><span class=""menuItemText"">Kontrol Paneli</span><span class=""menuItemArrow"">▶</span></a>")
Response.Write("<a class=""nav_menuItem"" href=""javascript:;"" onclick=""return false;"" onmouseover=""menuItemMouseover(event, 'menu2_4');""><span class=""menuItemText"">Profilim</span><span class=""menuItemArrow"">▶</span></a>")
Response.Write("<a class=""nav_menuItem"" href=""pm_view.asp"">Özel Mesajlar</a>")
Response.Write("<a class=""nav_menuItem"" href=""bookmark.asp"">Kitaplığım</a>")
Response.Write("<a class=""nav_menuItem"" href=""members.asp"">Üye Listesi</a>")
Response.Write("<a class=""nav_menuItem"" href=""active_users.asp"">Aktif Üyeler</a>")
if (mlev >= mmLevel) then
Response.Write("<a class=""nav_menuItem"" href=""max_monitor.asp"" target=""_search"">Monitör</a>")
end if
if mlev >= 3 then
Response.Write("<div class=""menuItemSep""></div>")
Response.Write("<a class=""nav_menuItem"" href=""report_post_moderate.asp"">Raporlar</a>")
end if
if mlev = 4 then
Response.Write("<a class=""nav_menuItem"" href=""admin_home.asp"">Yönetici Paneli</a>")
end if
Response.Write("</div>" & vbcrlf)
end if
%>
<!-- Sub menu Forums. --><%
if instr(strModules,":2:") then
Response.Write("<div id=""menu3"" class=""nav_menu"">")
Response.Write("<a class=""nav_menuItem"" href=""fhome.asp"">Forumlar</a>")
Response.Write("<a class=""nav_menuItem"" href=""active.asp"">Aktif Konular</a>")
Response.Write("<a class=""nav_menuItem"" href=""search.asp"">Forumlarda Ara</a>")
Response.Write("<div class=""menuItemSep""></div>")
Response.Write("<a class=""nav_menuItem"" href=""faq.asp?page=forums"">Forum SSS</a>")
Response.Write("</div>" & vbcrlf)
end if
%>
<!-- Sub menu Events. --><%
if mlev >= 0 and instr(strModules,":3:") then
Response.Write("<div id=""menu4"" class=""nav_menu"" onmouseover=""menuMouseover(event)"">")
Response.Write("<a class=""nav_menuItem"" href=""events.asp"">Takvim</a>")
Response.Write("<a class=""nav_menuItem"" href=""event_new.asp"">Yeni Etkinlikler</a>")
Response.Write("<a class=""nav_menuItem"" href=""event_list.asp"">Etkinlik Listesi</a>")
if mlev >= 1 then
Response.Write("<a class=""nav_menuItem"" href=""javascript:;"" onclick=""return false;"" onmouseover=""menuItemMouseover(event, 'menu3_4');""><span class=""menuItemText"">Etkinlik Ekle</span><span class=""menuItemArrow"">▶</span></a>")
Response.Write("<a class=""nav_menuItem"" href=""events_reminder_mgr.asp"">Not Defteri</a>")
Response.Write("<a class=""nav_menuItem"" href=""events_subscription.asp"">Etkinlik Üyeliği</a>")
end if
Response.Write("<a class=""nav_menuItem"" href=""event_search.asp"">Etkinlik Ara</a>")
Response.Write("<div class=""menuItemSep""></div>")
Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindow3('faq_events.asp');"">Etkinlik SSS</a>")
Response.Write("</div>" & vbcrlf)
end if
%>
<!-- Sub menu Events. --><%
if mlev >= 0 and instr(strModules,":10:") then
Response.Write("<div id=""menu10"" class=""nav_menu"" onmouseover=""menuMouseover(event)"">")
Response.Write("<a class=""nav_menuItem"" href=""video1.asp"">Videolar</a>")
Response.Write("<a class=""nav_menuItem"" href=""game.asp"">Flash Oyunlar</a>")
Response.Write("<a class=""nav_menuItem"" href=""defter_oku.asp"">Ziyaretçi Defteri</a>")
Response.Write("<a class=""nav_menuItem"" href=""defter_yaz.asp"">Ziyaretçi Defterine Yaz</a>")
Response.Write("<div class=""menuItemSep""></div>")
Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindow3('faq_events.asp');"">Sorular</a>")
Response.Write("</div>" & vbcrlf)
end if
%>
<!-- Sub menus Articles. --><%
if mlev >= 0 and instr(strModules,":4:") then
Response.Write("<div id=""menu5"" class=""nav_menu"">")
Response.Write("<a class=""nav_menuItem"" href=""article.asp"">Kategoriler</a>")
Response.Write("<a class=""nav_menuItem"" href=""article_new.asp"">Yeni Eklenenler</a>")
Response.Write("<a class=""nav_menuItem"" href=""article_popular.asp"">Popüler Makaleler</a>")
Response.Write("<a class=""nav_menuItem"" href=""article_toprated.asp"">En Çok Okunanlar</a>")
if mlev >= 1 then
Response.Write("<a class=""nav_menuItem"" href=""article_add_form.asp"">Makale Gönder</a>")
end if
Response.Write("<div class=""menuItemSep""></div>")
Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindow3('faq_articles.asp');"">Makale SSS</a>")
Response.Write("</div>" & vbcrlf)
end if
%>
<!-- Sub menus Downloads. --><%
if mlev >= 0 and instr(strModules,":5:") then
Response.Write("<div id=""menu6"" class=""nav_menu"">")
Response.Write("<a class=""nav_menuItem"" href=""dl.asp"">Kategoriler</a>")
Response.Write("<a class=""nav_menuItem"" href=""dl_new.asp"">Yeni Eklenenler</a>")
Response.Write("<a class=""nav_menuItem"" href=""dl_popular.asp"">Popüler Evraklar</a>")
Response.Write("<a class=""nav_menuItem"" href=""dl_toprated.asp"">En Çok İndirilenler</a>")
if mlev >= 1 then
Response.Write("<a class=""nav_menuItem"" href=""dl_add_form.asp"">Dosya Ekle</a>")
end if
Response.Write("<div class=""menuItemSep""></div>")
Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindow3('faq_downloads.asp');"">Dosya SSS</a>")
Response.Write("</div>" & vbcrlf)
end if
%><!-- Sub menus Links. --><%
if mlev >= 0 and instr(strModules,":8:") then
Response.Write("<div id=""menu7"" class=""nav_menu"">")
Response.Write("<a class=""nav_menuItem"" href=""links.asp"">Kategoriler</a>")
Response.Write("<a class=""nav_menuItem"" href=""links_new.asp"">Yeni Eklenenler</a>")
Response.Write("<a class=""nav_menuItem"" href=""links_popular.asp"">Popüler Linkler</a>")
Response.Write("<a class=""nav_menuItem"" href=""links_toprated.asp"">En İyi Linkler</a>")
Response.Write("<a class=""nav_menuItem"" href=""javascript:;"" onClick=""window.open('links_goto.asp?mode=random');"">Rasgele Link</a>")
if mlev >= 1 then
Response.Write("<a class=""nav_menuItem"" href=""links_add_form.asp"">Link Gönder</a>")
end if
Response.Write("<div class=""menuItemSep""></div>")
Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindow3('faq_links.asp');"">Link SSS</a>")
Response.Write("</div>")
end if
%><!-- Sub menus Photos. --><%
if mlev >= 0 and instr(strModules,":6:") then
Response.Write("<div id=""menu8"" class=""nav_menu"">")
Response.Write("<a class=""nav_menuItem"" href=""pic.asp"">Kategoriler</a>")
Response.Write("<a class=""nav_menuItem"" href=""pic_new.asp"">Yeni Eklenenler</a>")
Response.Write("<a class=""nav_menuItem"" href=""pic_popular.asp"">Popüler Resimler</a>")
Response.Write("<a class=""nav_menuItem"" href=""pic_toprated.asp"">En İyi Resimler</a>")
if mlev >= 1 then
Response.Write("<a class=""nav_menuItem"" href=""pic_add_form.asp"">Resim Ekle</a>")
end if
Response.Write("<div class=""menuItemSep""></div>")
Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindow3('faq_pics.asp');"">Galeri SSS</a>")
Response.Write("</div>")
end if
%><!-- Sub menus Classifieds. --><%
if mlev >= 0 and instr(strModules,":7:") then
Response.Write("<div id=""menu9"" class=""nav_menu"">")
Response.Write("<a class=""nav_menuItem"" href=""Classified.asp"">Kategoriler</a>")
Response.Write("<a class=""nav_menuItem"" href=""Classified_new.asp"">Yeni Eklenenler</a>")
if mlev >= 1 then
Response.Write("<a class=""nav_menuItem"" href=""Classified_add_form.asp"">İlan Ekle</a>")
end if
Response.Write("<div class=""menuItemSep""></div>")
Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindow3('faq_classifieds.asp');"">İlan Panosu SSS</a>")
Response.Write("</div>")
end if
%>
<!-- Sub menu Anlatımlar. --><%
if mlev >= 0 then
Response.Write("<div id=""menu22"" class=""nav_menu"" onmouseover=""menuMouseover(event)"">")
Response.Write("<a class=""nav_menuItem"" href=""siir.asp"" onclick=""return false;"" onmouseover=""menuItemMouseover(event, 'menu22_1');""><span class=""menuItemText"">Şiirler</span><span class=""menuItemArrow"">▶</span></a>")
Response.Write("<a class=""nav_menuItem"" href=""fikra.asp"" onclick=""return false;"" onmouseover=""menuItemMouseover(event, 'menu22_2');""><span class=""menuItemText"">Fıkralar</span><span class=""menuItemArrow"">▶</span></a>")
Response.Write("<a class=""nav_menuItem"" href=""yemek.asp"" onclick=""return false;"" onmouseover=""menuItemMouseover(event, 'menu22_3');""><span class=""menuItemText"">Yemek Tarifleri</span><span class=""menuItemArrow"">▶</span></a>")
Response.Write("</div>" & vbcrlf)
end if
%>
<!-- Sub menus for Members. --><%
if mlev >= 1 and strLockDown = 0 then
Response.Write("<div id=""menu2_2"" class=""nav_menu"">")
Response.Write("<a class=""nav_menuItem"" href=""cp_main.asp"">Kontrol Paneli</a>")
Response.Write("<a class=""nav_menuItem"" href=""cp_config.asp"">Özelliklerim</a>")
Response.Write("</div>")
Response.Write("<div id=""menu2_4"" class=""nav_menu"">")
Response.Write("<a class=""nav_menuItem"" href=""pop_profile.asp?mode=display&id=" & strUserMemberID & """>Profilim</a>")
Response.Write("<a class=""nav_menuItem"" href=""pop_profile.asp?mode=Edit"">Profilimi Düzenle</a>")
Response.Write("<a class=""nav_menuItem"" href=""pop_avatar.asp?mode=AvatarEdit"">Avatar Ayarlarım</a>")
Response.Write("</div>")
end if
%>
<!-- Sub menus for Events. --><%
if mlev >= 1 and instr(strModules,":3:") then
Response.Write("<div id=""menu3_4"" class=""nav_menu"">")
Response.Write("<a class=""nav_menuItem"" href=""events.asp?mode=add&date=" & date() & """>Tekli Etkinlik</a>")
Response.Write("<a class=""nav_menuItem"" href=""events.asp?mode=addseries&date=" & date() & """>Seri Etkinlik</a>")
Response.Write("</div>")
end if
%>
<!-- Sub menus anlatim. --><%
if mlev >= 0 and strLockDown = 0 then
Response.Write("<div id=""menu22_1"" class=""nav_menu"">")
Response.Write("<a class=""nav_menuItem"" href=""siir.asp"">Kategoriler</a>")
Response.Write("<a class=""nav_menuItem"" href=""siir_new.asp"">Yeni Eklenenler</a>")
Response.Write("<a class=""nav_menuItem"" href=""siir_popular.asp"">Popüler Şiirler</a>")
Response.Write("<a class=""nav_menuItem"" href=""siir_toprated.asp"">En Çok Okunanlar</a>")
if mlev >= 1 then
Response.Write("<a class=""nav_menuItem"" href=""siir_add_form.asp"">Şiir Gönder</a>")
end if
Response.Write("<div class=""menuItemSep""></div>")
Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindow3('faq_siir.asp');"">Şiir SSS</a>")
Response.Write("</div>" & vbcrlf)
Response.Write("<div id=""menu22_2"" class=""nav_menu"">")
Response.Write("<a class=""nav_menuItem"" href=""fikra.asp"">Kategoriler</a>")
Response.Write("<a class=""nav_menuItem"" href=""fikra_new.asp"">Yeni Eklenenler</a>")
Response.Write("<a class=""nav_menuItem"" href=""fikra_popular.asp"">Popüler Fıkrlar</a>")
Response.Write("<a class=""nav_menuItem"" href=""fikra_toprated.asp"">En Çok Okunanlar</a>")
if mlev >= 1 then
Response.Write("<a class=""nav_menuItem"" href=""fikra_add_form.asp"">Fıkra Gönder</a>")
end if
Response.Write("<div class=""menuItemSep""></div>")
Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindow3('faq_fikra.asp');"">Fıkra SSS</a>")
Response.Write("</div>" & vbcrlf)
Response.Write("<div id=""menu22_3"" class=""nav_menu"">")
Response.Write("<a class=""nav_menuItem"" href=""yemek.asp"">Kategoriler</a>")
Response.Write("<a class=""nav_menuItem"" href=""yemek_new.asp"">Yeni Eklenenler</a>")
Response.Write("<a class=""nav_menuItem"" href=""yemek_popular.asp"">Popüler Tarifler</a>")
Response.Write("<a class=""nav_menuItem"" href=""yemek_toprated.asp"">En Çok Okunanlar</a>")
if mlev >= 1 then
Response.Write("<a class=""nav_menuItem"" href=""yemek_add_form.asp"">Yemek Tarifi Gönder</a>")
end if
Response.Write("<div class=""menuItemSep""></div>")
Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindow3('faq_yemek.asp');"">Yemek Tarifi SSS</a>")
Response.Write("</div>" & vbcrlf)
end if
%>