[Resolvido] Menu (Acorddion) com niveis dinâmicos

[Vinicius Figueirôa 0]

Olá Pessoal,

 

Estou com um problema, tenho que desenvolver um menu, como esse http://www.specialized.pt/

mas ele tem q ser dinâmico, ou seja ele vai ler uma tabela ex: Produtos, dai qdo você clicar ele abre em baixo

as categorias, dai dentro qdo você clicar ele abre os produtos, td isso puxando do bd.

 

Então eu começei a desenvolver, mas dai apareceu os problemas...uhauhha qdo você clica em um nivel

para ele abrir o subnivel de um ele abre o subnivel de todos, então o "X" da questão seria cmo eu setar

para q ele vá direto nesse ponto.

 

Estou postando o cod. q eu tô usando para vcs darem uma olhada.

 

Obrigado Abraços!!

 

<%
Call conn
Set rsItem1 = Server.CreateObject("ADODB.RecordSet")
rsItem1.CursorLocation = 3
rsItem1.CursorType = 2
str_SQL = "SELECT * FROM tbl_areas_mm_macro WHERE status_mm_macro = 1"
rsItem1.Open str_SQL,conn

response.write "<ul id='primary-nav' style='background-color:#666666;'>"
   do while not rsItem1.eof
		response.write "<li class='menuparent'><a href='?ida=06&macro="&rsItem1("nome_mm_macro")&"' >"& rsItem1("nome_mm_macro") &"</a>"
		'''''''''''''''''''''''''''''''''''VERIFICAR O MACRO''''''''''''''''''''''''''''''''''''''		
		if request.QueryString("macro") <> "" then
		Set rsItem2 = Server.CreateObject("ADODB.RecordSet")
		rsItem2.CursorLocation = 3
		rsItem2.CursorType = 2
		str_SQL2 = "SELECT * FROM tbl_areas_mm_categoria WHERE status_mm_cat = 1 AND nome_mm_macro='"&rsItem1("nome_mm_macro")&"'"
		rsItem2.Open str_SQL2,conn
		
		If rsItem2.eof Then
			response.write "</li>"
		Else
			response.write "<ul id='primary-nav' style='background-color:#999;'>"
			do while not rsItem2.eof
				response.write "<li><a href='?ida=06&macro="&rsItem1("nome_mm_macro")&"&cat="&rsItem2("nome_mm_cat")&"' >" & rsItem2("nome_mm_cat") & "</a></li>"
				if request.QueryString("cat") <> "" then
				'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
				
				Set rsItem3 = Server.CreateObject("ADODB.RecordSet")
				rsItem3.CursorLocation = 3
				rsItem3.CursorType = 2
				str_SQL3 = "SELECT * FROM tbl_areas_mm_familia WHERE status_mm_fam = 1 AND nome_mm_cat='"&rsItem2("nome_mm_cat")&"'"
				rsItem3.Open str_SQL3,conn
		
				If rsItem3.eof Then
					response.write "</li>"
				Else
					response.write "<ul id='primary-nav' style='background-color:#CCC;'>"
					do while not rsItem3.eof
						'response.write "<li><a href='?id_sub_cat="& rsItem2("nome_mm_cat") &"'>" & rsItem2("nome_mm_cat") & "</a></li>"
						response.write "<li><a href='?ida=06&macro="&rsItem3("nome_mm_fam")&"&cat="&rsItem3("nome_mm_fam")&"' >" & rsItem3("nome_mm_fam") & "</a></li>"
					   rsItem3.movenext
					loop
				response.write "</ul>"
				response.write "</li>"
				end if
				
				'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
				End if
			   rsItem2.movenext
			loop
		response.write "</ul>"
		response.write "</li>"
		end if

		else
		response.Write "</li>"
		End If
		''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		rsItem1.movenext
	loop
response.write "</ul>"
%>

[Vinicius Figueirôa 0]

Iaeeeee galera!!

 

Consegui resolver já, então já vou postar, pq ai fica servindo meio como tuto de

menu accordion dinamico com vários niveis... :P .

 

Então nessa parte do cod. onde ele busca a QueryString com o valor do menu eu valido com o

valor do record set.

 

Exemplo:

eu pego isso:

if request.QueryString("macro") <> "" then

e altero para isso:

 

if request.QueryString("macro") <> "" then And nome_mm_cat='"&rsItem1("nome_mm_macro")

Qualquer coisa é só perguntar aeee!!