sotto categorie moltiplicate...

[steck]

Ciao a tutti, mi succede una cosa strana, devo estrarre, per creare un menù, delle categorie con relative sotto categorie. Il risultato dello script funziona solo che mi moltiplica le sotto categorie.
Es: Il numero è la categoria.
20 ) Alimentari
- 20 ) Marmellata
- 20 ) Marmellata
- 20 ) Banane
- 20 ) Banane
22 ) Bellezza
- 22 ) Crema di bellezza
- 22 ) Crema di bellezza
codice ___________________________________________________________
sqlCat = "Select IdCategoria, categoria From categorie"
Set rsCat = Server.CreateObject("ADODB.Recordset")
rsCat.CursorType = adOpenStatic
rsCat.Open sqlCat, conn, 3,3
numero = rsCat.RecordCount

for i = 0 TO numero

Response.Write (rsCat("IdCategoria"))
Response.Write ("&nbsp")
Response.Write (" ")
Response.Write rsCat("categoria")
Response.Write ("<br>")




sql = "Select categorie.IdCategoria, articoli.IdCategoria, articoli.titolo from categorie, articoli WHERE articoli.IdCategoria ="&rsCat("IdCategoria")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.Open sql, conn, 3,3
n = rs.RecordCount

do while not rs.EOF

Response.Write ("&nbsp;&nbsp;&nbsp;-&nbsp;")
Response.Write (rs("IdCategoria"))
Response.Write ("&nbsp")
Response.Write ("&nbsp;")
Response.Write rs("titolo")
Response.Write ("<br>")

rs.MoveNext
loop

rsCat.MoveNext
i=i+1
next
_______________________
chiedo aiuto!!
il risultato dovrebbe essere:
20 ) Alimentari
- 20 ) Marmellata
- 20 ) Banane
22 ) Bellezza
- 22 ) Crema di bellezza

 

[marco.carrieri]

Ciao a tutti, mi succede una cosa strana, devo estrarre, per creare un menù, delle categorie con relative sotto categorie. Il risultato dello script funziona solo che mi moltiplica le sotto categorie.
Es: Il numero è la categoria.
20 ) Alimentari
- 20 ) Marmellata
- 20 ) Marmellata
- 20 ) Banane
- 20 ) Banane
22 ) Bellezza
- 22 ) Crema di bellezza
- 22 ) Crema di bellezza
codice ___________________________________________________________
sqlCat = "Select IdCategoria, categoria From categorie"
Set rsCat = Server.CreateObject("ADODB.Recordset")
rsCat.CursorType = adOpenStatic
rsCat.Open sqlCat, conn, 3,3
numero = rsCat.RecordCount

for i = 0 TO numero

Response.Write (rsCat("IdCategoria"))
Response.Write ("&nbsp")
Response.Write ("&nbsp;")
Response.Write rsCat("categoria")
Response.Write ("<br>")




sql = "Select categorie.IdCategoria, articoli.IdCategoria, articoli.titolo from categorie, articoli WHERE articoli.IdCategoria ="&rsCat("IdCategoria")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.Open sql, conn, 3,3
n = rs.RecordCount

do while not rs.EOF

Response.Write ("&nbsp;&nbsp;&nbsp;-&nbsp;")
Response.Write (rs("IdCategoria"))
Response.Write ("&nbsp")
Response.Write ("&nbsp;")
Response.Write rs("titolo")
Response.Write ("<br>")

rs.MoveNext
loop

rsCat.MoveNext
i=i+1
next
_______________________
chiedo aiuto!!
il risultato dovrebbe essere:
20 ) Alimentari
- 20 ) Marmellata
- 20 ) Banane
22 ) Bellezza
- 22 ) Crema di bellezza

Dovrei avere il sorgente... rpvoa a fare

for i = 0 TO ubound(vettore,2)

Response.Write (rsCat("IdCategoria"))
Response.Write ("&nbsp")
Response.Write ("&nbsp;")
Response.Write rsCat("categoria")
Response.Write ("<br>")

next

dove vettore = rs.getRows della query