Repeat inden i anden repeat
jeg har givet mig i kast med at lave en dynamisk menu der først viser en produktgruppe og derunder viser de tilhørende producenter, men det virker ikke ordentligt. Den viser ikke for eksempel ikke producenten EA Games under produktgruppen Games.Og jeg ville gerne have vist producenterne i alfabetisk rækkefølge.
Link: http://www.because.dk/webshop/foldudmenu.asp
Kode:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/webshop.asp" -->
<%
Dim rsTopLevel
Dim rsTopLevel_numRows
Set rsTopLevel = Server.CreateObject("ADODB.Recordset")
rsTopLevel.ActiveConnection = MM_webshop_STRING
rsTopLevel.Source = "SELECT DISTINCT Produktgruppe FROM produkt WHERE Aktiv = 'Y'"
rsTopLevel.CursorType = 0
rsTopLevel.CursorLocation = 2
rsTopLevel.LockType = 1
rsTopLevel.Open()
rsTopLevel_numRows = 0
%>
<%
Dim rsSecondLevel
Dim rsSecondLevel_numRows
Set rsSecondLevel = Server.CreateObject("ADODB.Recordset")
rsSecondLevel.ActiveConnection = MM_webshop_STRING
rsSecondLevel.Source = "SELECT DISTINCT Producent, Produktgruppe FROM produkt WHERE Aktiv = 'Y'"
rsSecondLevel.CursorType = 0
rsSecondLevel.CursorLocation = 2
rsSecondLevel.LockType = 1
rsSecondLevel.Open()
rsSecondLevel_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsTopLevel_numRows = rsTopLevel_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
rsSecondLevel_numRows = rsSecondLevel_numRows + Repeat2__numRows
%>
<html>
<link href="admin/include/stylesheet.css" rel="stylesheet" type="text/css">
<body leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
While ((Repeat1__numRows <> 0) AND (NOT rsTopLevel.EOF))
%>
<tr>
<td height="25" class="MediumBlackBold"><%=(rsTopLevel.Fields.Item("Produktgruppe").Value)%></td>
</tr>
<%
While ((Repeat2__numRows <> 0) AND ((rsSecondLevel.Fields.Item("Produktgruppe").Value)=(rsTopLevel.Fields.Item("Produktgruppe").Value)) AND (NOT rsSecondLevel.EOF))
%>
<tr>
<td style="padding-left:10px" height="18" class="SmallBlackNormal"><%=(rsSecondLevel.Fields.Item("Producent").Value)%></td>
</tr>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
rsSecondLevel.MoveNext()
Wend
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsTopLevel.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
rsTopLevel.Close()
Set rsTopLevel = Nothing
%>
<%
rsSecondLevel.Close()
Set rsSecondLevel = Nothing
%>
