Ciao a tutti, sono nuovo del forum, vorrei subito chiedervi aiuto per una funzione ce crea dei menù da db di mysql, per visualizzarli a video nessun problema, ma quando inserisco dei sottomenù allora tutto si complica, il sottomenù viene visualizzatto per tutti i menu che hanno un sottomenù, anche se quest'ultimo non e esatto. vi allego il codice, se mi sono spiegato male c'e una prova online.
grazie Michele

____________

<%
Function menu (aArea)

'----------------------------------------Connessione con dsn
Dim ID
Dim aLingua
Dim SOTTO_MENU
ID = Request.QueryString("ID")
aLingua = Request.QueryString("Lingua")
SOTTO_MENU = Request.QueryString("SOTTO_MENU")
if SOTTO_MENU = "" Then
SOTTO_MENU = ID
End if


'-----------------------------------------Recordset per le categorie

Dim rsMenu
Dim rsMenu_numRows

Set rsMenu = Server.CreateObject("ADODB.Recordset")
rsMenu.ActiveConnection = MM_xmotion_STRING
rsMenu.Source = "SELECT * FROM categoria_menu WHERE Lingua = '"+aLingua+"'"
rsMenu.CursorType = 0
rsMenu.CursorLocation = 2
rsMenu.LockType = 1
rsMenu.Open()
rsMenu_numRows = 0

'------------------------------------------Ciclo per le Categorie
Do While Not rsMenu.EOF

'------------------------------------------impaginazione


'------------------------------------------Visualizzo le Categorie
Response.Write ("<span class='title'>")
Response.Write (rsMenu.Fields("Categoria").Value)
Response.Write("
")
Response.Write ("</span>")
'------------------------------------------Recordset per i menu

Dim rsMenu1
Dim rsMenu1_numRows

Set rsMenu1 = Server.CreateObject("ADODB.Recordset")
rsMenu1.ActiveConnection = MM_xmotion_STRING
rsMenu1.Source = "SELECT * FROM menu WHERE Area = '"+aArea+"' AND Lingua = '"+aLingua+"' AND Categoria ='"+(rsMenu.Fields.Item("categoria").Value)+"' AND Sotto_Menu = 0 "
rsMenu1.CursorType = 0
rsMenu1.CursorLocation = 2
rsMenu1.LockType = 1
rsMenu1.Open()
rsMenu1_numRows = 0

'------------------------------------------Fine Recordset per i menu
'-------------------------------------Recordset per i SOTTO MENU



'------------------------------------FINE Recordset per i SOTTO MENU
'------------------------------------Stampo i menu a video

Do While Not rsMenu1.EOF

Response.Write ("<span class='sidebarHeader'>")
Response.Write "<a href="
Response.Write (rsMenu1.Fields("Template").Value)
Response.Write("?LINGUA=")
Response.Write (rsMenu1.Fields("Lingua").Value)
Response.Write("&ID=")
Response.Write(rsMenu1.Fields.Item("ID").Value)
Response.Write ">"
Response.Write("<img src= '../image/bullet.gif' alt= ' "+rsMenu1.Fields.Item("Menu").Value+" ' width='16' height='11' border='0'>")
Response.Write (rsMenu1.Fields.Item("Menu").Value)
Response.Write("
")
Response.Write("</a>")
Response.Write ("</span>")



Dim rsMenu2
Dim rsMenu2_numRows
Set rsMenu2 = Server.CreateObject("ADODB.Recordset")
rsMenu2.ActiveConnection = MM_xmotion_STRING
rsMenu2.Source = "SELECT * FROM menu WHERE Area = '"+aArea+"' AND Lingua = '"+aLingua+"' AND Categoria ='"+(rsMenu.Fields.Item("categoria").Value)+"' AND Sotto_Menu ='" &SOTTO_MENU&"'"
rsMenu2.CursorType = 0
rsMenu2.CursorLocation = 2
rsMenu2.LockType = 1
rsMenu2.Open()
rsMenu2_numRows = 0


'------------------------------------Stampo i sotto menu a video

Do While Not rsMenu2.EOF

Response.Write(" ")
Response.Write "<a href="
Response.Write (rsMenu2.Fields("Template").Value)
Response.Write("?LINGUA=")
Response.Write (rsMenu2.Fields("Lingua").Value)
Response.Write("&ID=")
Response.Write(rsMenu2.Fields.Item("ID").Value)
Response.Write("&SOTTO_MENU=")
Response.Write(rsMenu1.Fields.Item("ID").Value)
Response.Write ">"
Response.Write(" ")
Response.Write("<img src= '../image/arrowGreen.gif' alt= ' "+rsMenu2.Fields.Item("Sotto_Menu").Value+" ' width='18' height='10' border='0'>")
Response.Write (rsMenu2.Fields.Item("Menu").Value)
Response.Write("
")
Response.Write("</a>")


rsMenu2.MoveNext()
Loop

rsMenu1.MoveNext()
Loop

rsMenu.MoveNext()
Loop
End Function
%>

____________________

http://www.trytoguess.biz/xmotion/

Grazie a tutti e buone feste