I need to change the menubgimage when i click in different items.
example:
item1 -> menubgimage="1.gif"
item2 -> menubgimage="2.gif"
item3 -> menubgimage="3.gif"
item4 -> menubgimage="4.gif"
It's very urgent to me.
The URL:
http://www.retomaroprogresso.com/index.asp
Thanks,Gui
My code is ASP and HTML:
<!-- ***** MENU SCRIPT CODE ***** -->
<script type="text/javascript" src="milonic_src.js"></script>
<script type="text/javascript" src="mmenudom.js"></script>
<SCRIPT TYPE="text/javascript">
fixMozillaZIndex=true; //Fixes Z-Index problem with Mozilla browsers but causes odd scrolling problem, toggle to see if it helps
_menuCloseDelay=500;
_menuOpenDelay=150;
_subOffsetTop=0;
_subOffsetLeft=0;
with(menuStyle=new mm_style()){
menubgimage="http://www.retomaroprogresso.com/Imagen ... ckMenu.gif";
menubgcolor="#eeeeee";
offclass="menuOffX";
onclass="menuOnX";
}
with(background=new mm_style()){
borderstyle="solid";
fontstyle="normal";
fontfamily="arial,tahoma,serif";
fontsize="9px";
textdecoration="none";
textalign="center";
itemheight=29;
itemwidth=93;
offcolor="#333300";
oncolor="#ffffff";
}
<%
mnpsql="select * from zones where supercatid=0 and navegacao=0 order by menuid asc;"
set mnrs=conn.execute(mnpsql)
do until mnrs.eof
mntit = mnrs("zonenamemenu")
mncat = mnrs("zoneid")
mnscat = mnrs("supercatid")
mnnav = mnrs("navegacao")
%>
<%
Select Case mnnav
Case "True"
%>
<%
Smnpsql="select * from zones where supercatid= "&mncat&" order by zonenamemenu asc;"
set Smnrs=server.createobject("ADODB.Recordset")
Smnrs.open Smnpsql,conn,1
if not(Smnrs.eof) then
maxval=Smnrs.recordcount
cc=0
%>
with(milonic=new menuname("_<%=mncat%>")){
left="offset=+0";
style=background;
<%
do until Smnrs.eof
cc=cc+1
mnstit = Smnrs("zonenamemenu")
mnscat = Smnrs("supercatid")
mnszcat = Smnrs("zoneid")
if cc = maxval Then
%>
aI("align=center;bgimage=http://psdmatosinhos.websys.pt/Imagens/ ... t%>&n=<%=n%>;");
<%
Else
%>
aI("align=center;bgimage=http://psdmatosinhos.websys.pt/Imagens/ ... t%>&n=<%=n%>;");
<%
End If
%>
<%
Smnrs.movenext
loop
Smnrs.close
set Smnrs=nothing
%>
}
<%
Else
End If
%>
<%
Case Else
%>
<%
Response.write mncat
Ymnpsql="Select * from vArticlesZones where zoneid="&CInt(mncat)&" order by headline asc;"
set Ymnrs=server.createobject("ADODB.Recordset")
Ymnrs.open Ymnpsql,conn,1
if not(Ymnrs.eof) then
maxvalX=Ymnrs.recordcount
xx=0
%>
with(milonic=new menuname("_<%=mncat%>")){
left="offset=+0";
style=background;
<%
do until Ymnrs.eof
xx=xx+1
Ymntit = Ymnrs("headline")
Ymncat = Ymnrs("zoneid")
Ymnart = Ymnrs("articleid")
n = 1
n=1
if xx = maxvalX Then
%>
aI("align=center;bgimage=http://psdmatosinhos.websys.pt/Imagens/ ... dex_07.jpg;");
<%
Else
%>
aI("align=center;bgimage=http://psdmatosinhos.websys.pt/Imagens/ ... dex_07.jpg;");
<%
End If
%>
<%
Ymnrs.movenext
loop
Ymnrs.close
set Ymnrs=nothing
%>
}
<%
Else
End If
%>
<%
End Select
%>
<%
mnrs.movenext
loop
mnrs.close
set mnrs=nothing
%>
drawMenus()
</script>
<SCRIPT TYPE="text/javascript">
with(milonic=new menuname("Main Menu")){
itemwidth=93;
itemheight=31;
menualign="center";
orientation="horizontal";
alwaysvisible=1;
position="relative";
style=menuStyle;
<%
<!-- #include virtual="/conteudos/incSystem.asp"-->
set conn=server.createobject("ADODB.Connection")
conn.open connection
%>
<%
mnpsql="select * from zones where supercatid=0 order by menuid asc;"
set mnrs=conn.execute(mnpsql)
do until mnrs.eof
mntit = mnrs("zonenamemenu")
mnURL = mnrs("zonenameURL")
mncat = mnrs("zoneid")
mnscat = mnrs("supercatid")
mnnav = mnrs("navegacao")
%>
<%
Select Case mnnav
Case "True"
%>
aI("menubgimage=http://www.retomaroprogresso.com/Imagen ... l=<%=mnURL%>;");
<%
Case Else
%>
aI("showmenu=_<%=mncat%>;itemwidth=93;text=<%=mntit%>;");
<%
End Select
%>
<%
mnrs.movenext
loop
mnrs.close
set mnrs=nothing
%>
}
drawMenus();
</script>
CSS
.menuOffX{
color:#5A5B5D;
font-style:normal;
font-weight:bold;
font-family:arial,tahoma,serif;
font-size:10px;
text-align:center;
margin:0px;
text-decoration: none;
padding-top:0px;
padding-right:0px;
padding-bottom:0px;
padding-left:0px;
}
.menuOnX{
background-image:url(http://psdmatosinhos.websys.pt/Imagens/buthome.png);
color: white;
font-style:normal;
font-weight:bold;
font-family:arial,tahoma,serif;
font-size:10px;
text-align:center;
margin:0px;
text-decoration: none;
padding-top:0px;
padding-right:0px;
padding-bottom:0px;
padding-left:0px;
}
