Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

filipescoob

montar como se fosse windows explorer

Por , em ASP Clássico

Recommended Posts

filipescoob    1

filipescoob
Postado

Salve galera...

 

 

Estou montando um projeto que esta contendo cadastros no banco de dados de categorias e sub categorias, porem na hora de mostrar estou tendo dificuldades tinha feito um codigo melhor estruturado porem não estou localizando o mesmo, mas não havia funcionado... montei outro porem não esta correto tambem... gostaria de pedir a ajuda de vcs, galera apenas uma luz de como fazer... valeu

 

Na tela tem que ficar assim:

 

Categoria

categoria 01

categoria 02

...sub categoria 01

...sub categoria 02

categoria 03

categoria 04

 

igual acontece no window explorer, por ordem como se fosse pasta dentro de pasta.... aguardo abraços

 

 

<%rs_teste = server.CreateObject("adodb.recordset")Sql_teste = "Select cod_categ, nome_categ from tbl_categoria"set rs_teste = conexao.execute(Sql_teste)rs_teste1 = server.CreateObject("adodb.recordset")Sql_teste1 = "Select Max(cod_categ) as maxi from tbl_categoria"set rs_teste1 = conexao.execute(Sql_teste1)rs_subteste = server.CreateObject("adodb.recordset")sql_testesub = "Select cod_sub_categ, cod_categ_, nome_sub_categ  from tbl_sub_categ order by cod_categ_"set rs_subteste = conexao.execute(sql_testesub)%><body><%atual = 0response.write("<table>")	while not rs_teste.eof	atual = cint(rs_teste("cod_categ"))	alpha = cint(rs_subteste("cod_categ_"))		response.write("<tr>")			response.write("<td>"& rs_teste("nome_categ") &"</td>")		response.write("</tr>")		maximo = rs_teste1("maxi")		while atual  <= maximo		 	 if atual = alpha then			response.write("<tr>")				response.write("<td><b>"& rs_subteste("nome_sub_categ") &"</b></td>")			response.write("<tr>")			alpha = cint(rs_subteste("cod_categ_"))			end if		rs_subteste.MoveNext		atual = atual +1		wend	rs_teste.MoveNext	wendresponse.write("</table>")%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

filipescoob    1

filipescoob
Postado

Resolvido galera

 

 

Consegui resolver o problema segue codigo abaixo, abraços...

 

 

<td width="272">	  <select name="select2" size="10" class="formnormal">		<%	  set rs_categsub = Server.CreateObject("adodb.Recordset")	  SQL = "Select u.cod_categ as cod, u.nome_categ as nomecateg, d.cod_sub_categ  as codsub, d.nome_sub_categ as nomesubcateg from tbl_categoria u, tbl_sub_categ d WHERE u.cod_categ = d.cod_categ_ order by u.cod_categ"		  set rs_categsub = conexao.execute(SQL)	  		set rs_sub = Server.CreateObject("adodb.Recordset")	  ssSQL = "Select u.nome_categ as nomecateg, d.cod_sub_categ  as codsub, d.nome_sub_categ as nomesubcateg, d.cod_categ_ as cod1 from tbl_categoria u, tbl_sub_categ d"		  set rs_sub = conexao.execute(ssSQL)	  	  while not rs_categsub.eof	  %>		<option value="<%=rs_categsub("cod")%>"><%=rs_categsub("nomecateg")%>               </b></option>		<% 		atual = cint(rs_categsub("cod"))				while not atual = atualdentro		atualdentro = cint(rs_sub("cod1"))		%>  		<option value="<%=rs_sub("codsub")%>">      <%=rs_sub("nomesubcateg")%></option>		<%		rs_sub.Movenext		wend	  	  rs_categsub.MoveNext	  wend	  %>	  </select></td>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito