Help funzione menu

[artesmotion]

Ciao a tutti,

sto ancora trovando problemi con una funzione su dei menu creati da db mysql.


Vi allego il codice:

<%
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("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
%>

se volete vedere il problema
http://www.trytoguess.biz/xmotion/ht...GUA=IT&ID=null

[Luis33]

qual'è il problema?

[artesmotion]

Ciao Luis33

il problema che in parte sono riuscito a risolvere, e che il codice deve mostrarmi le categorie dei menu prese da db, i menu e i sotto menu.
Questo accade ma non riesco a capire perchè i sottomenu vengono visualizzati direttamente tutti invece che visualizzarli solo quando clicco il menu.
Qui trovi l'esempio
http://www.trytoguess.biz/xmotion/ht...GUA=IT&ID=null
se ti può interessare il db e mysql e trovi una schermata qui
http://www.trytoguess.biz/xmotion/dbscreen.gif

[artesmotion]

Dimenticavo, questo è il codice giusto

<%
Function menu (aArea)


Dim ID
Dim aLingua

ID = Request.QueryString("ID")
aLingua = Request.QueryString("Lingua")





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


Do While Not rsMenu.EOF




Response.Write ("<span class='title'>")
Response.Write (rsMenu.Fields("Categoria").Value)
Response.Write("
")
Response.Write ("</span>")


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






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("&SOTTO_MENU=")
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 SOTTO_MENU
SOTTO_MENU = (rsMenu1.Fields.Item("ID").Value)
if SOTTO_MENU = "" Then
SOTTO_MENU = ID
End if

If Request.QueryString("SOTTO_MENU") Then


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




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("Menu").Value&" ' width='18' height='10' border='0'>")
Response.Write (rsMenu2.Fields.Item("Menu").Value)
Response.Write("
")
Response.Write("</a>")


rsMenu2.MoveNext()
Loop

end if
rsMenu1.MoveNext()
Loop

rsMenu.MoveNext()
Loop
End Function
%>