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
Rispondi quotando
