Hej!Dynamisk meny problem gjord i ASP
Jag har lite problem med en horisontell meny med undermenyer. Får liksom inte till detta och nu undrar jag om någon kan hjälpa mig.
Vad jag vill är att huvudmenyn ligger i en separat tabell medan undermenyn ska också ligga i en separat tabell under huvudmenytabellen. Innehåller i undermenyn ska ändras dynamiskt.
Informationen hämtas från en accessdatabas.
Tex
Meny1 Meny2 Meny3
Undermeny1 | Undermeny1 | Undermeny1
Tittade ett script här som jag har lekt med men får det inte att fungera.
Detta är min kod.
<script language="javascript">
var oldmenu = "";
function menu(strmenu) {
if(strmenu != ""){
if(document.getElementById(strmenu).style.display=='none') {
document.getElementById(strmenu).style.display=''
}
else document.getElementById(strmenu).style.display='none'
}
if(oldmenu > ""){
if(oldmenu != strmenu){
// annan meny, göm den gamla.
document.getElementById(oldmenu).style.display='none';
}
}
oldmenu = strmenu;
}
</SCRIPT>
</head>
<body>
<table>
<tr>
<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM Kategorier ORDER BY Omrade ASC"
RecSet.Open Visa, DB, adOpenForwardOnly, adLockReadOnly
Do Until RecSet.EOF
If RecSet("UnderOmrade") = False Then %>
<td><SPAN OnClick="menu('');"><%=RecSet("Omrade")%></SPAN></td>
<% Else %>
<td><SPAN OnClick="menu('Val<%=RecSet("ID")%>');"><%=RecSet("Omrade")%></SPAN></td>
<% End If
RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = Nothing
%>
</tr>
</table>
<!-- *********** VISA UNDERMENYER *************** -->
<table bgcolor="#FF0000">
<tr>
<td>
<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT UnderKategorier.omradeID,UnderKategorier.UnderOmrade FROM Kategorier INNER JOIN UnderKategorier ON Kategorier.ID = UnderKategorier.OmradeID " &_
"WHERE Kategorier.UnderOmrade = True "
RecSet.Open Visa, DB, adOpenStatic, adLockOptimistic
%>
<SPAN STYLE="display: none" ID="Val<%=RecSet("omradeID")%>">
<% Do Until RecSet.EOF
Response.Write RecSet("UnderOmrade") & " | "
RecSet.MoveNext
Loop
%>
</SPAN>
<%
RecSet.Close
Set RecSet = Nothing
%>
</td>
</tr>
</table>
<!-- *********** VISA SLUT UNDERMENYER *************** -->
Tacksam för alla tips!
/Annette