Virker ikke i netscape
Virker kun i Explorer er det noen enkle ting å gjøre så det virker i netscape?<HTML>
<HEAD>
<TITLE></TITLE>
<SCRIPT language="JavaScript">
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 "<Table ID=""txt_" & MenuID & """ STYLE=""display: none;"" border=1 cellpadding=0 cellspacing=0 width=108>"
While Not UnderRS.EOF
If CountSubs(UnderRS("ID")) > 0 Then
Response.Write "<tr><td>sub?<A HREF=""#"" OnClick=""MenuClick(" & UnderRS("ID") & ")""><B>" & UnderRS("Navn") & "</B></A></td></tr>"
BygUnderMenu UnderRS("ID")
Else
Response.Write "<tr><td>Link?<A HREF=""" & UnderRS("Link") & """ TARGET="""">" & UnderRS("Navn") & "</td></tr>"
End If
UnderRS.MoveNext
Wend
Response.Write "<table>"
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 "<table border=1 cellpadding=0 cellspacing=0 width=108><tr><td><A HREF=""#"" OnClick=""MenuClick(" & RS("ID") & ")""><B>" & RS("Navn") & "</B></A></td></tr></table>"
BygUnderMenu RS("ID")
Else
Response.Write "<table border=1 cellpadding=0 cellspacing=0 width=108><tr><td><A HREF=""" & RS("Link") & """>" & RS("Navn") & "</td></tr></table>"
End If
RS.MoveNext
Wend
End If
LukDatabase Conntemp
%>
</BODY>
</HTML>
