tree menu
jeg har fundet en tree menu, men når man trykker på et under punkt og siden vises, så lukker menuen igen (pågrund af reload) hvordan for man den til at lade være med det<!-- #INCLUDE FILE="inc.asp" -->
<HTML>
<HEAD>
<TITLE></TITLE>
<SCRIPT>
function MenuClick(MenuID) {
var txt = document.all("txt_" + MenuID);
if (txt.style.display == 'none') {
txt.style.display = '';
}
else {
txt.style.display = 'none';
}
}
</SCRIPT>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<%
Function BygUnderMenu(MenuID)
UnderSQL = "SELECT ID, Navn, Link FROM Menu WHERE MenuID = " & MenuID & " ORDER BY [Order]"
Call OpenRS(Conntemp,UnderSQL,UnderRS)
Response.Write "<DIV ID=""txt_" & MenuID & """ STYLE=""display: none; margin-left: 10px;"">"
While Not UnderRS.EOF
If CountSubs(UnderRS("ID")) > 0 Then
Response.Write "<A HREF=""#"" OnClick=""MenuClick(" & UnderRS("ID") & ")""><B>" & UnderRS("Navn") & "</B></A><BR>"
BygUnderMenu UnderRS("ID")
Else
Response.Write "<A HREF=""" & UnderRS("Link") & """ TARGET="""">" & UnderRS("Navn") & "<BR>"
End If
UnderRS.MoveNext
Wend
Response.Write "</DIV>"
End Function
Function CountSubs(MenuID)
CountSQL = "SELECT ID FROM Menu WHERE MenuID = " & MenuID & ""
Call OpenRS(Conntemp,CountSQL,CountRS)
CountSubs = CountRS.RecordCount
End Function
LavDatabase Conntemp
SQL = "SELECT ID, Navn, Link FROM Menu WHERE MenuID = 0 ORDER BY [Order]"
Call OpenRS(Conntemp,SQL,RS)
If RS.BOF AND RS.EOF Then
Response.Write "FEJL"
Else
RS.MoveFirst
While Not RS.EOF
If CountSubs(RS("ID")) > 0 Then
Response.Write "<A HREF=""#"" OnClick=""MenuClick(" & RS("ID") & ")""><B>" & RS("Navn") & "</B></A><BR>"
BygUnderMenu RS("ID")
Else
Response.Write "<A HREF=""" & RS("Link") & """>" & RS("Navn") & "<BR>"
End If
RS.MoveNext
Wend
End If
LukDatabase Conntemp
%>
</BODY>
</HTML>
mvh.
christian
