TreeView

[sr.silva 1]

Olá!!!Gostaria de saber como e possível criar um TreeView em ASP com a seguinte estrutura.Decretos ICMS - 2004 - Decreto 1 - Decreto 2 - Decreto 3Decretos ICMS - 2003 - Decreto 1 - Decreto 2 - Decreto 3Grato.

[sr.silva 1]

Sim...segue o codigo!!

 

<!--#include file="conexao/conn.asp" --><%'Declara as variáveisDim oTree, html, strTipo, strAno, strSQLstrTipo = Request.QueryString("tipo")strAno  = Request.QueryString("ano")strSQL = " SELECT "strSQL = strSQL & "   LI.*, TG.* "strSQL = strSQL & " FROM "strSQL = strSQL & "   LINKS_IMPORTANTES LI, TABELAS_GENERICAS TG "strSQL = strSQL & " WHERE "strSQL = strSQL & "   LI.LI_GRUPO = TG.TG_CODIGO "strSQL = strSQL & " AND "strSQL = strSQL & "   LI.LI_DESCRICAO = '"&strAno&"'" set RS = Cnn.execute(strSQL)'************** INICIO DO TREEVIEW ******************''Cria o objeto que irá gerar o menuSet oTree = Server.CreateObject("obout_asptreeview_XP.tree")'O caminho do estilo do menuoTree.TreeStyle_Path = "/SITE/arquivos/treeStyle_Iconless"'Exibe os ícones utilizadosoTree.ShowIcons = Falsewhile not RS.EOF  'HTML que será gerado para o primeiro tópico do menu   html = UCase(strTipo) & " - " & strAno  'html = RS("TG_DESCRICAO")    oTree.Add "root", "a1", html, true  'Primeiro subtítulo do primeiro tópico. Veja que o link do menu é indicado no HTML  html = "<a class=ob_a href="" "" target=""resposta"">Lei nº 7.457</a>"  oTree.Add "a1", "b0", html  'Escreve o HTML na página onde irá existir o menu.   Response.Write oTree.HTMLRS.MoveNextWend'Destrói o objeto que gerou o menuSet oTree = Nothing%>

veja o resultado em ...treeview

a minha duvida e saber como faco para que fique apenas a seguinte estrutura...

 

TITULO1

SUBTITULO1

SUBTITULO2

TITULO2

SUBTITULO1

SUBTITULO2

[sr.silva 1]

Consegui!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Era o while que estava colocando no lugar errado!

 

****************************************************************

 

<!--#include file="conexao/conn.asp" -->

<%

'Declara as variáveis

Dim oTree, html, strTipo, strAno, strSQL

 

strTipo = Request.QueryString("tipo")

strAno = Request.QueryString("ano")

 

 

strSQL = " SELECT "

strSQL = strSQL & " LI.*, TG.* "

strSQL = strSQL & " FROM "

strSQL = strSQL & " LINKS_IMPORTANTES LI, TABELAS_GENERICAS TG "

strSQL = strSQL & " WHERE "

strSQL = strSQL & " LI.LI_GRUPO = TG.TG_CODIGO "

strSQL = strSQL & " AND "

strSQL = strSQL & " LI.LI_DESCRICAO = '"&strAno&"'"

 

set RS = Cnn.execute(strSQL)

 

'************** INICIO DO TREEVIEW ******************'

 

'Cria o objeto que irá gerar o menu

Set oTree = Server.CreateObject("obout_asptreeview_XP.tree")

 

'O caminho do estilo do menu

oTree.TreeStyle_Path = "/SITE/arquivos/treeStyle_Iconless"

 

'Exibe os ícones utilizados

oTree.ShowIcons = False

 

'HTML que será gerado para o primeiro tópico do menu

html = UCase(strTipo) & " - " & strAno

 

'html = RS("TG_DESCRICAO")

oTree.Add "root", "a1", html, true

 

while not RS.EOF

'Primeiro subtítulo do primeiro tópico. Veja que o link do menu é indicado no HTML

 

html = "<a class=ob_a href="" "" target=""resposta"">Lei nº 7.457</a>"

oTree.Add "a1", "b0", html

RS.MoveNext

Wend

 

'Escreve o HTML na página onde irá existir o menu.

Response.Write oTree.HTML

 

 

'Destrói o objeto que gerou o menu

Set oTree = Nothing

%>