forse per maggiore chiarezza è meglio che posti tutto il codice della pagina ado2.asp così come modificato da me e che, ripeto, funziona egregiamente!!
<%
Option Explicit
Dim conn 'connesione al database access
Dim SQLquery 'caricatre di query ;)
Dim rsTipo, rsCat, rsProd 'classica manata di recordset
Dim tipo
Dim cat
Dim Id_Tip
Id_Tip= request("Id_tipo")
Dim prod 'contatorini che fanno comodo per generare variabili javascript client-side sempre nuove
Set conn = Server.CreateObject("ADODB.Connection")
conn.provider = "MSDataShape"
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("fpdb/dbMaterie_prime.mdb") & ";"
SQLquery = " SHAPE {select Id_Tipo, Tipologia from [Tipologie] WHERE "_
& " Id_Tipo = " & Id_tip & " } AS Tipi" &_
" APPEND (( SHAPE {select ID_Categoria, Categoria, Settore, Id_Tipo from [Categorie]order by Categoria} AS Categorie " &_
" APPEND ( {select ID_Fornitore, Prodotto, ID_P, ID_Categoria from [Prodotti]order by Prodotto} AS Prodotti " &_
" RELATE ID_Categoria to ID_Categoria) AS Prodotti) AS Categorie " &_
" RELATE Id_Tipo to Id_Tipo) AS Categorie "
Set rsTipo = conn.Execute(SQLquery)
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Tipologie di prodotti</title>
<!-- Infrastructure code for the tree -->
<script src="ftiens4.js"></script>
<link rel="stylesheet" type="text/css" href="piccolo.css">
<meta name="Microsoft Theme" content="berti 111, default">
</HEAD>
<body background="_themes/berti/pasbkgnd.gif" bgcolor="#CCCCCC" text="#000000" link="#990000" vlink="#666666" alink="#CC9966"><!--mstheme--><font face="Trebuchet MS, Arial, Helvetica">
<p><img border="0" src="images/prodotti.gif" width="70" height="30"></p>
<% response.write("<scri" & "pt>") 'la sintassi colorata mi fa comodo in questi casi
%>
foldersTree = rootFolder("Settore di impiego dei Prodotti:", "")
<%
tipo = 0
cat = 0
prod = 0
Do While Not rsTipo.eof
tipo = tipo + 1
cat = 0
prod = 0
'Response.Write("<li> Tipologia: "& rsTipo("Tipologia")& vbcrlf)
response.write("node" & tipo & " = insFld(foldersTree, artistFolder('" & rsTipo("Tipologia") & "', 'tipologia.asp?id=" & rsTipo("Id_Tipo") & "'))" & vbcrlf)
'Per ogni TIpologia, becchiamo le categorie relative
Set rsCat = rsTipo("Categorie").value
Do While Not rsCat.eof
cat = cat + 1
prod = 0
'Response.Write("<li> CD: " & rsCat("Categoria") & " [" & rsCat("Settore") & "]" & vbcrlf)
response.write(" node" & tipo & "_" & cat &" = insFld(node" & tipo & ", recordingFolder('" & rsCat("Categoria") & "', 'Categoria.asp?id=" & rsCat("ID_Categoria") & "'))" & vbcrlf)
'per ogni Categoria, recuperiamo i singoli Prodotti
Set rsProd = rsCat("Prodotti").value
Do While Not rsProd.eof
prod = prod + 1
'response.write(" insDoc(node" & tipo & "_" & cat & ", gLnk(2, '" & rsProd("Prodotto") & "', ''))" & vbcrlf)
%>
insDoc(node<% =tipo %>_<% =cat %>, gLnk("<% =rsProd("Prodotto") %>", 'prodotto.asp?id=<% =rsProd("ID_P") %>'))
<% rsProd.MoveNext
Loop
rsCat.MoveNext
Loop
rsTipo.MoveNext
Loop
rsTipo.close
Set rsTipo = Nothing
rsCat.close
Set rsCat = Nothing
rsProd.close
Set rsProd = Nothing
conn.close
Set conn = Nothing
%>
<% response.write("</scri" & "pt>") 'la sintassi colorata mi fa comodo in questi casi
%>
<script>
initializeDocument()
</script>
<!--mstheme--></font></BODY>
