Retirando o click da categoria

[look 0]

pessoal, eu tenho um codigo aqui para exibir as categorias e subcategorias, mas para mostrar as subcategorias é preciso clicar em no link categoria para exibir, gostaria de deixar ja aberto as subcategorias, alguem pode me ajudar? obrigadoabaixo segue o codigo<%Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open Application("cnx_cadastro")ComandoSQL = "SELECT Distinct id, Categoria FROM Categorias Where Categoria <> '' ORDER BY categoria ASC"Set Categorias = Conexao.Execute(ComandoSQL)If Not Categorias.EOF Then Response.Write "<table cellpadding=3 cellspacing=0 class=menu>" While Not Categorias.EOF Response.Write "<tr><td bgcolor=gainsboro class=titulo_menu>"On Error Resume NextIf CInt(Request.QueryString("categoria")) = Categorias("id") Then Response.Write "<img src='imagens/icone_categorias2.gif' align=absmiddle>  <A href='index.asp?categoria="Else Response.Write "<img src='imagens/icone_categorias.gif' align=absmiddle>  <A href='index.asp?categoria="End If Response.Write Server.URLEncode(Categorias("id")) Response.Write "' class=link_categorias>" Response.Write Categorias("Categoria") Response.Write "</A><BR>" Response.Write "</td></tr>" Response.Write "<tr><td>"If Request.QueryString("categoria") <> "" ThenIf CInt(Request.QueryString("categoria")) = Categorias("id") Then ComandoSQL = " SELECT Distinct id, subcategoria FROM Categorias " ComandoSQL = ComandoSQL & " WHERE id_categoria = " & Categorias("id") ComandoSQL = ComandoSQL & " AND Trim(subcategoria) <> '' ORDER BY subcategoria ASC" Set Subcategorias = Conexao.Execute(ComandoSQL) If Not Subcategorias.EOF Then While Not Subcategorias.EOF Response.Write "  <A href='index.asp?categoria=" Response.Write Server.URLEncode(Categorias("id")) Response.Write "&subcategoria=" Response.Write Server.URLEncode(Subcategorias("id")) Response.Write "' class=link_subcategorias>" Response.Write Subcategorias("Subcategoria") Response.Write "</A><BR>" Subcategorias.MoveNext Wend Set Subcategorias = Nothing End IFEnd IfEnd IfCategorias.MoveNext Response.Write "</td></tr>" Wend Response.Write "</table>"End IfCategorias.CloseSet Categorias = NothingSet Categorias = NothingSet ComandoSQL = Nothing%>

[look 0]

Niguem tem uma dica?

[look 0]

niguem pode me dar uma explicação por onde começar?

[Penna 0]

Eu postei uma vez aqui a solução pra isso.Mas o seu code da erro????

[look 0]

nao to conseguindo mesmo, nem por onde começar :(

[Penna 0]

Poww cara sou contra isso, mas vou te dar o código pronto.

Por um simples unico motivo, esta fácil demais.

 

ASP [/tr][tr]<%Set cnLojaVirtual = Server.CreateObject("ADODB.Connection")

cnLojaVirtual.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("LojaVirtual.mdb")

 

CatID = Request("CatID")

Categoria = Request("Categoria")

SubID = Request("SubID")

 

If CatID <> "" Then

SQLCat = "SELECT * FROM Categorias WHERE Status = 'Ativado' AND SubID = "&CatID&""

Else

SQLCat = "SELECT * FROM Categorias WHERE Status = 'Ativado' AND SubID = 0"

End If

Set RsCat = cnLojaVirtual.Execute(SQLCat)

 

Do While Not RsCat.EOF

CatID = RsCat("CatID")

Categoria = RsCat("Categoria")

Descricao = RsCat("Descricao")

SubID = RsCat("SubID")

DataHora = RsCat("DataHora")

 

SQLCheck = "SELECT * FROM Categorias WHERE Status = 'Ativado' AND SubID = "&CatID&""

Set RsCheck = cnLojaVirtual.Execute(SQLCheck)

 

If Not RsCheck.EOF Then

Response.Write "<a href=teste.asp?CatID="& CatID & ">" & Categoria & "</a><br>"

Else

Response.Write "<a href=mostra.asp?CatID="& CatID & ">" & Categoria & "</a><br>"

End If

 

RsCat.MoveNext

Loop

%>

[/tr]

[look 0]

pra falar verdade nao consegui adaptar ao codigo, mas obrigado pela ajuda http://forum.imasters.com.br/public/style_emoticons/default/blush.gif