Dynamisk fold ud fra database
jeg tror jeg har defineret nedenstående kode forkert - det virker ikke. det er den dynamiske værdi under "fold" og "id" jeg tror er forkert, men jeg aner ikke hvordan den skal defineres.<td onclick="fold('(rsProduktgruppe.Fields.Item("Produktgruppe").Value)'); return false;"><%=(rsProduktgruppe.Fields.Item("Produktgruppe").Value)%></td>
</tr>
<%While ((Repeat2__numRows <> 0) AND (NOT rsProducent.EOF) AND ((rsProducent.Fields.Item("Produktgruppe").Value)=(rsProduktgruppe.Fields.Item("Produktgruppe").Value)))%>
<tr id="(rsProduktgruppe.Fields.Item("Produktgruppe").Value)" style="display: none;">
FULD KODE:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/webshop.asp" -->
<%
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">
<!--#include file="include/stylesheet.asp" -->
<script language="JavaScript" 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="300" border="0" cellpadding="0" cellspacing="0">
<%While ((Repeat1__numRows <> 0) AND (NOT rsProduktgruppe.EOF))%>
<tr>
<td onclick="fold('(rsProduktgruppe.Fields.Item("Produktgruppe").Value)'); return false;"><%=(rsProduktgruppe.Fields.Item("Produktgruppe").Value)%></td>
</tr>
<%While ((Repeat2__numRows <> 0) AND (NOT rsProducent.EOF) AND ((rsProducent.Fields.Item("Produktgruppe").Value)=(rsProduktgruppe.Fields.Item("Produktgruppe").Value)))%>
<tr id="(rsProduktgruppe.Fields.Item("Produktgruppe").Value)" style="display: none;">
<td><%=(rsProducent.Fields.Item("Producent").Value)%></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
%>
