Dynamisk menu mangler det sidste
hvordan kan jeg få rettet denne kode til så menuen folder ud når man klikker på Produktgruppen?jeg tror jeg skal lave følgende dynamisk men jeg kan ikke gennemskue hvordan:
<td onclick="fold('nr1'); return false;"...
<tr id="nr1" style="display: none;">...
kode:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="webshop/Connections/webshop.asp" -->
<% SetLocale(1030) %>
<%
Dim rsProduktgruppe
Dim rsProduktgruppe_numRows
Set rsProduktgruppe = Server.CreateObject("ADODB.Recordset")
rsProduktgruppe.ActiveConnection = MM_webshop_STRING
rsProduktgruppe.Source = "SELECT Distinct Produktgruppe FROM produkt"
rsProduktgruppe.CursorType = 0
rsProduktgruppe.CursorLocation = 2
rsProduktgruppe.LockType = 1
rsProduktgruppe.Open()
rsProduktgruppe_numRows = 0
%>
<%
Dim rsProducent
Dim rsProducent_numRows
Set rsProducent = Server.CreateObject("ADODB.Recordset")
rsProducent.ActiveConnection = MM_webshop_STRING
rsProducent.Source = "SELECT DISTINCT Producent, Produktgruppe FROM produkt"
rsProducent.CursorType = 0
rsProducent.CursorLocation = 2
rsProducent.LockType = 1
rsProducent.Open()
rsProducent_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsProduktgruppe_numRows = rsProduktgruppe_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
rsProducent_numRows = rsProducent_numRows + Repeat2__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script type="text/javascript">
var foer = new Array(),obj = new Array();
function fold() {
var a = fold.arguments,l = a.length,t = false;
if(l<2)return;
for(i=0;l>i;i++){
obj[i] = document.getElementById(a[i]);
}
for(j=0;foer.length>j;j++){
t =false;
if (foer[j] && foer[j].length > 0){
for(i=0;foer[j].length>i;i++){
if(typeof foer[j][i] == 'object')foer[j][i].style.display = "none";
}
}
}
if(!foer[l-2])foer[l-2] = new Array();
for(i=0;l>i;i++){
obj[i].style.display = (obj[i].style.display != "inline") ? "inline" : "none";
foer[l-2][i] = obj[i];
}
}
</script>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% While ((Repeat1__numRows <> 0) AND (NOT rsProduktgruppe.EOF)) %>
<tr>
<td onclick="fold('nr1'); return false;" style="cursor:pointer;"><%=rsProduktgruppe("Produktgruppe")%></td>
</tr>
<% While ((Repeat2__numRows <> 0) AND (NOT rsProducent.EOF) AND (rsProduktgruppe("Produktgruppe")=rsProducent("Produktgruppe"))) %>
<tr id="nr1" style="display: none;">
<td><%=rsProducent("Producent")%></td>
</tr>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
rsProducent.MoveNext()
Wend
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsProduktgruppe.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
rsProduktgruppe.Close()
Set rsProduktgruppe = Nothing
%>
<%
rsProducent.Close()
Set rsProducent = Nothing
%>
