Ho scaricato un'applet da internet contenente un menu verticale con sottomenu.
Dovrei riempire i menu da due tabelle di access 2000 es.:
Tab 1 = Settori
contenente due record:
001 Finanziario
002 Demografico
Tab 2 = Servizi
001 Ragioneria (codice settore 001)
002 Economato (codice settore 001)
003 Anagrafe (codice settore 002)
004 Elettorale (codice settore 002)

Le tabelle sono in relazione uno a molti tramite il SetCodSettore che è la chiave primaria della tabella Settori e SerCodSettore della tabella Servizi

Il Problema è che non riesco a visualizzare il menu nel modo desiderato e cioè il settore Finanziario dovrebbe avere come sottomenu i servizi Ragioneria ed Economato mentre il Settore Demografico dovrebbe avere come sottomenu i servizi Anagrafe ed Elettorale.

Il codice creato con dreamweaver mx è il seguente:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/con_tel.asp" -->
<%
Dim rsSettori
Dim rsSettori_numRows

Set rsSettori = Server.CreateObject("ADODB.Recordset")
rsSettori.ActiveConnection = MM_con_tel_STRING
rsSettori.Source = "SELECT * FROM Settori"
rsSettori.CursorType = 0
rsSettori.CursorLocation = 2
rsSettori.LockType = 1
rsSettori.Open()

rsSettori_numRows = 0
%>

<%
Dim rsServizi

%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td><applet width="210" height="900" code="DropDownMenu.class"
codebase="." style="border: 0px solid rgb(64,0,0)">
<param name="ROOT" value="Comune AP;STATE=EXPANDED;TARGET=main">
<param name="SITEMAP"
value="
<% do while NOT rsSettori.EOF %>
<%=(rsSettori.Fields.Item("SetDescSettore").Value)%>

{

<%
Set rsServizi = Server.CreateObject("ADODB.Recordset")
rsServizi.ActiveConnection = MM_con_tel_STRING
rsServizi.Source = "SELECT * FROM Servizi WHERE SerCodServizio ='" & rsSettori.Fields.Item("SetCodSettore").Value & "'"

rsServizi.CursorType = 0
rsServizi.CursorLocation = 2
rsServizi.LockType = 1
rsServizi.Open()
While NOT rsServizi.EOF
%>
<%=(rsServizi.Fields.Item("SerDescServizio").Value)%>;URL=http://www.html.it/;TARGET=contents
<%
rsServizi.Movenext
Wend
rsServizi.Close
Set rsServizi = Nothing
%>
}
<% rsSettori.movenext %>
<% loop %>
">
<param name="STYLE" value="3DINVERSE">
<param name="FONTFACE" value="Arial">
<param name="FONTSIZE" value="14">
<param name="FONTSTYLE" value="bold">
<param name="SUBFONTFACE" value="Arial">
<param name="SUBFONTSIZE" value="12">
<param name="SUBFONTSTYLE" value="plain">
<param name="BACKGROUND_COLOR" value="FAFAFA">
<param name="FONT_COLOR" value="0101A5">
<param name="HIGHLIGHT_COLOR" value="FF0000">
<param name="TRIANGLE_UP_COLOR" value="FFCC00">
<param name="TRIANGLE_DOWN_COLOR" value="CC0000">
<param name="TRIANGLE_OFFSET" value="5">
<param name="TRIANGLE_WIDTH" value="10">
<param name="BGIMAGE_ALIGN" value="center">
<param name="BGIMAGE_VALIGN" value="center">
<param name="defaulttarget" value="contents">
<param name="tile" value="true">
<param name="textIndent" value="5">
<param name="triangle_offset" value="225">
</applet> </td>
</tr>
</table></td>
</tr>
</table>

<%
rsSettori.Close()
Set rsSettori = Nothing
%>

L'applet l'ho scricata dalla pagina "http://html.it/java/93/applet.htm".
Siccome sto provando sul computer locale tramite Personal web server non so come inviare l'output della pagina.
Comunque l'output risultante è il seguente (i puntini li ho messi per far vedere lindentazione del menu):

Comune AP
...Finanziario
........Ragioneria
............Demografico
........Economato

L'output desiderato è invece il seguente:

Comune AP
...Finanziario
........Economato
........Ragioneria
...Demografico
........Anagrafe
........Elettorale

Ho provato a mettere il loop come consigliato ma in questo modo l'applet non si visualizza.

Se è possibile potrei inviare un allegato (non so come) con i vari file necessari a far funzionare la pagina (42 kb compressi).

Grazie per l'attenzione
ciao

ps.
riguardo il loop avevi ragione, il codice era giusto.
ho sbagliato io, ciao.

ciao di nuovo,
non riesco a capire come mai ti estrae solo 4 voci sulle 6 che invece vuoi visualizzare.

I valori nel database sono rimasti come li hai descritti nel primo post?
Il tuo codice va bene, hai messo due cicli uno dentro l'altro per estrarre categorie ed elementi appartenenti ad esse.

C'è una piccola precisazione da fare nel ciclo più interno.
se guardi il codice che hai scaricato da html.it, ogni elemento è separato dal successivo mediante questo carattere | che manca nel tuo codice.

Questo è l'esempio fornito da html.it
Dynamic HTML;URL=../../dynamic;TARGET=contents|

vedi quel carattere | in fondo?
bene, devi inserirlo tra un elemento e l'altro. Per adesso preoccupati di questo, poi vedremo come mai ti tira fuori solo 4 elementi invece di 6.



così dovrebbe andare. Dopo il .Movenet controllo che il recordset non sia EOF.
Se è EOF, il carattere | non viene aggiunto perchè significa che dopo non ci sono più elementi.

Ok, fatto questo, credo che l'altro problema sia dovuto alla query più interna...
infatti, quella esterna ti estrare correttamente le due macrocategorie, Finanziario e Demografico.
La query interna è questa:
rsServizi.Source = "SELECT * FROM Servizi WHERE SerCodServizio ='" & rsSettori.Fields.Item("SetCodSettore").Value & "'"

SerCodServizio che tipo di campo è? Una stringa? Se sì, la query va bene perchè hai messo gli apici, altrimenti toglili.
A me sembra che vada bene... boh!