strSQL = "SELECT str_sezione,str_lingua,id_categoria,str_categoria FROM tb_categorie WHERE str_sezione="&StrSezione&" AND str_lingua="&Lingua&" ORDER BY id_categoria"
objRs.Open strSQL, objConn
Response.Write"<table width=""252"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Do while not objRs.EOF
Response.Write"<tr>"&vbCrlf&"<td height=""18"" class=""tdmenu"">"&objRs("str_categoria")&"</td>"&vbCrlf&"</tr>"&vbCrlf
' Inizio submenu
sql="SELECT str_categoria,str_prodotto FROM tb_cat_prodotto WHERE str_categoria="&StrSubSezione&""
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL, objConn
Do while not Rs.EOF
Response.Write "<tr>"&vbCrlf&"<td height=""18"">"&Rs("str_prodotto")&"</td></tr>"
Rs.MoveNext
Loop
Rs.Close
set Rs = Nothing
'fine sub menu
objRs.MoveNext
Loop
in questo modo mi stampa così:
Paviementi - Rivestimenti
Ceramiche
Cotto
Marmi e pietre
Legno e Parquet
Arredo Bagno - Accessori
Ceramiche
Cotto
Marmi e pietre
Legno e Parquet
Cucine in Muratura
Ceramiche
Cotto
Marmi e pietre
Legno e Parquet
Posa in Opera
Ceramiche
Cotto
Marmi e pietre
Legno e Parquet
Mentre io dovrei avere il menu così
Paviementi - Rivestimenti
Ceramiche
Cotto
Marmi e pietre
Legno e Parquet
Arredo Bagno - Accessori
Cucine in Muratura
Posa in Opera
Poi selezionando Arredo Bagno - Accessori mi salterà fuori il sotto menu di quella categoria.
Come posso modificare il codice?

Rispondi quotando
