problemas com loop de dados

dmorsoleto · Fevereiro 18, 2008

e ae galera!!

Sou novo em asp. e peguei um codigo que pega varios itens de um banco de dados...

Quero fazer com que ele escreva na tela atraves de uma variavel todos os produtos que ele pegou na pesquisa, para que possa fazer com que o flash leia isso!!!

Tentei fazer um "response.write "&Nome="&Nome" soh que ele soh mostra o primeiro dado da pesquisa como faço para que ele mostre todos os nomes da pesquisa por exemplo.

Abaixo o codigo que estou utilizando

abços

<!--#include file="funcoes/funcoes.asp" -->
<!--#include file="includes/conexoes.asp" -->
<%  Response.Charset="ISO-8859-1"
	Set DatabaseConnection = Server.CreateObject("ADODB.Connection") 
	DatabaseConnection.Open  Get_ConexaoDados
	DatabaseConnection.CursorLocation = 3
		
		Set UserRecordset = Server.CreateObject("ADODB.Recordset")
	
	vID_PAG_XHTML = 5 '-> IDENTIFICAÇÃO NO BANCO DA PÁGINA ATUAL
		
		vID_Categoria = GM_StrToNumber(request("ID_Categoria"))
		vID_SubCategoria = GM_StrToNumber(request("ID_SubCategoria"))
		vID_produto = GM_StrToNumber(request("ID_produto"))
		if GM_StrToNumber(vID_Categoria) = 0 then
			vID_Categoria = 1
		end if
	
		SQLString = "SELECT Nome from GT_Categoria where liberado = 1 and ID = " & GM_StrToNumber(vID_Categoria) & " order by ID "
		UserRecordset.Open SQLString, DatabaseConnection
		
		if not UserRecordset.EOF then
			vNome_menu_topo = UserRecordset("Nome")
		end if
		
		UserRecordset.close
		


		'pegando sub escolhida
		SQLString = "SELECT ID, Nome, Imagem from GT_SubCategoria where liberado = 1 "
		SQLString = SQLString & "and ID_Categoria = " & GM_STrToNumber(vID_Categoria) & " "
		if vID_SubCategoria > 0 then
			SQLString = SQLString & "and ID = " & GM_StrToNumber(vID_SubCategoria)
		end if
		UserRecordset.Open SQLString, DatabaseConnection
		
		if not UserRecordset.EOF then
			vID_SubCategoria = UserRecordset("ID")
			vImagem = UserRecordset("Imagem")
			vNome = UserRecordset("Nome")
			vNome_submenu_produtos = vNome
		end if
		
		UserRecordset.Close
					
%><!--#include file="includes/inc_head.asp" -->
<%="<!-- "%><html><%=" -->"%>
<body>

<div id="conteudo"><!-- inicio conteudo -->

	<div id="elementos"><!-- inicio elementos -->
	  <!--#include file="includes/inc_lateral_esquerda.asp" -->
	  <div id="topo_miolo"></div>
	  
	  <div id="miolo" class="geral produtos"><!-- inicio miolo -->
	  
		<!-- MODELO PRODUTO -->
				<div id="img_lembrete_produto">
					<% if vImagem <> "" then %>
			  <img src="images/subcategorias/<% = vImagem %>" alt="<% = vNome %>"  />
					<% end if %>
		</div>
		<!-- MODELO PRODUTO - fim -->

		<!-- MENU TOPO PRODUTOS ===| includes |=== -->
		  <!--#include file="includes/menu_topo_produto.asp" -->
		<!--  -->
	  
		<!-- VITRINE PRODUTO -->
		<div id="conteudo_vitrine_produto">
		
					<%
					'pegando sub <> da escolhida
					SQLString = "SELECT ID, Nome, Imagem from GT_SubCategoria where liberado = 1 "
					SQLString = SQLString & "and ID_Categoria = " & GM_STrToNumber(vID_Categoria) & " "
					SQLString = SQLString & "and ID <> " & GM_StrToNumber(vID_SubCategoria)
					UserRecordset.Open SQLString, DatabaseConnection
					
					if not UserRecordset.EOF then
					%>

		  <!-- SUBMENU MODELO PRODUTO -->
		  <div id="elementos_submenu_pag">
			  <ul class="sub_menu_produto">
				<% while not UserRecordset.EOF  %>
								<li><a href="produtos.asp?nome_submenu_produtos=<%= GM_Substituir(UserRecordset("Nome"),"''","'")%>&ID_Categoria=<% = vID_Categoria %>&ID_Subcategoria=<% = UserRecordset("ID") %>" title="<% = UserRecordset("Nome") %>"><% = UserRecordset("Nome") %></a></li>
								<% 
								UserRecordset.Movenext
								wend
								%>
			  </ul>
		  </div>
		  <!-- SUBMENU MODELO PRODUTO - fim-->

					<% 
					end if 
					UserRecordset.Close

					'pegando produtos
					SQLString = "SELECT ID, Titulo, Imagem_produto from GT_produto where liberado = 1 "
					SQLString = SQLString & "and ID_Categoria = " & GM_STrToNumber(vID_Categoria) & " "
					if vID_SubCategoria > 0 then
						SQLString = SQLString & "and ID_Subcategoria = " & GM_StrToNumber(vID_SubCategoria)
					end if
					UserRecordset.Open SQLString, DatabaseConnection
					
				
					
					if not UserRecordset.EOF then
					%>

		  <!-- THUMBNAIL PRODUTO -->
		  <div id="elementos_vitrine_produtos">
			  <% while not UserRecordset.EOF  %>
			<label>
										<a href="produtos_detalhe.asp?Nome_menu_topo=<% = vNome_menu_topo %>&Nome_submenu_produtos=<% = vNome_submenu_produtos %>&ID_Produto=<% = UserRecordset("ID") %>" title="<% = UserRecordset("Titulo") %>"  style="width:50px; height:50px; display:block; background: url(images/produtos/p/<% = UserRecordset("Imagem_produto") %>) no-repeat center center;" > </a>
						</label>
						<% 
						UserRecordset.Movenext
						wend
						%>		  
		  </div>
		  <!-- THUMBNAIL PRODUTO - fim -->

			<%
					end if
					UserRecordset.Close
					%>
		
		</div>
		<!-- VITRINE PRODUTO -->
	  
	  
	  
	  </div><!-- final miolo -->
	  
	  <div id="direita_miolo"></div>
	  
	  <div id="rodape_miolo"></div>
	  
	  
	
	
	
	
	</div><!-- final elementos -->
	
	
</div><!-- final conteudo -->

<!--#include file="includes/inc_funcao_estatistica_useragent.asp" -->
<%
  DatabaseConnection.Close
  set DatabaseConnection = nothing
	Set UserRecordset = Nothing
%>
<% 
	response.write "&Nome="&vNome
	response.write "&Imagem="&vImagem
	
	%>

</body>
</html>

DSerma · Fevereiro 18, 2008

Basta fazer um "WHILE" com os dados provenientes da pesquisa SQL....

Ex:

Sql = "SELECT * FROM Tabela"
Set Rs = Conn.Execute(Sql)

While NOT Rs.EOF

Response.Write(Rs("Nome")) & "<br>"

Rs.MoveNext
Wend

Abraços..

dmorsoleto · Fevereiro 19, 2008

entao eu usei o while que ja tinha no codigo e apareceu os 11 registros que tinha na tabela, soh que apareceram repetidos, todos com o mesmo nome... pq???

ta abaixo a mudanca que fiz em meu codigo, abcos

<!--#include file="funcoes/funcoes.asp" -->
<!--#include file="includes/conexoes.asp" -->
<%  Response.Charset="ISO-8859-1"
	Set DatabaseConnection = Server.CreateObject("ADODB.Connection") 
	DatabaseConnection.Open  Get_ConexaoDados
	DatabaseConnection.CursorLocation = 3
		
		Set UserRecordset = Server.CreateObject("ADODB.Recordset")
	
	vID_PAG_XHTML = 5 '-> IDENTIFICAÇÃO NO BANCO DA PÁGINA ATUAL
		
		vID_Categoria = GM_StrToNumber(request("ID_Categoria"))
		vID_SubCategoria = GM_StrToNumber(request("ID_SubCategoria"))
		vID_produto = GM_StrToNumber(request("ID_produto"))
		if GM_StrToNumber(vID_Categoria) = 0 then
			vID_Categoria = 1
		end if
	
		SQLString = "SELECT Nome from GT_Categoria where liberado = 1 and ID = " & GM_StrToNumber(vID_Categoria) & " order by ID "
		UserRecordset.Open SQLString, DatabaseConnection
		
		if not UserRecordset.EOF then
			vNome_menu_topo = UserRecordset("Nome")
		end if
		
		UserRecordset.close
		


		'pegando sub escolhida
		SQLString = "SELECT ID, Nome, Imagem from GT_SubCategoria where liberado = 1 "
		SQLString = SQLString & "and ID_Categoria = " & GM_STrToNumber(vID_Categoria) & " "
		if vID_SubCategoria > 0 then
			SQLString = SQLString & "and ID = " & GM_StrToNumber(vID_SubCategoria)
		end if
		UserRecordset.Open SQLString, DatabaseConnection
		
		if not UserRecordset.EOF then
			vID_SubCategoria = UserRecordset("ID")
			vImagem = UserRecordset("Imagem")
			vNome = UserRecordset("Nome")
			vNome_submenu_produtos = vNome
		end if
		
		UserRecordset.Close
					
%><!--#include file="includes/inc_head.asp" -->
<%="<!-- "%><html><%=" -->"%>
<body>

<div id="conteudo"><!-- inicio conteudo -->

	<div id="elementos"><!-- inicio elementos -->
	  <!--#include file="includes/inc_lateral_esquerda.asp" -->
	  <div id="topo_miolo"></div>
	  
	  <div id="miolo" class="geral produtos"><!-- inicio miolo -->
	  
		<!-- MODELO PRODUTO -->
				<div id="img_lembrete_produto">
					<% if vImagem <> "" then %>
			  <img src="images/subcategorias/<% = vImagem %>" alt="<% = vNome %>"  />
					<% end if %>
		</div>
		<!-- MODELO PRODUTO - fim -->

		<!-- MENU TOPO PRODUTOS ===| includes |=== -->
		  <!--#include file="includes/menu_topo_produto.asp" -->
		<!--  -->
	  
		<!-- VITRINE PRODUTO -->
		<div id="conteudo_vitrine_produto">
		
					<%
					'pegando sub <> da escolhida
					SQLString = "SELECT ID, Nome, Imagem from GT_SubCategoria where liberado = 1 "
					SQLString = SQLString & "and ID_Categoria = " & GM_STrToNumber(vID_Categoria) & " "
					SQLString = SQLString & "and ID <> " & GM_StrToNumber(vID_SubCategoria)
					UserRecordset.Open SQLString, DatabaseConnection
					
					if not UserRecordset.EOF then
					%>

		  <!-- SUBMENU MODELO PRODUTO -->
		  <div id="elementos_submenu_pag">
			  <ul class="sub_menu_produto">
				<% while not UserRecordset.EOF  %>
								<li><a href="produtos.asp?nome_submenu_produtos=<%= GM_Substituir(UserRecordset("Nome"),"''","'")%>&ID_Categoria=<% = vID_Categoria %>&ID_Subcategoria=<% = UserRecordset("ID") %>" title="<% = UserRecordset("Nome") %>"><% = UserRecordset("Nome") %></a></li>
								<% 
								UserRecordset.Movenext
								wend
								%>
			  </ul>
		  </div>
		  <!-- SUBMENU MODELO PRODUTO - fim-->

					<% 
					end if 
					UserRecordset.Close

					'pegando produtos
					SQLString = "SELECT ID, Titulo, Imagem_produto from GT_produto where liberado = 1 "
					SQLString = SQLString & "and ID_Categoria = " & GM_STrToNumber(vID_Categoria) & " "
					if vID_SubCategoria > 0 then
						SQLString = SQLString & "and ID_Subcategoria = " & GM_StrToNumber(vID_SubCategoria)
					end if
					UserRecordset.Open SQLString, DatabaseConnection
					vImagem2 = UserRecordset("Imagem_produto")
					vTitulo = UserRecordset("Titulo")
					
				
					
					if not UserRecordset.EOF then
					
					%>

		  <!-- THUMBNAIL PRODUTO -->
		  <div id="elementos_vitrine_produtos">
			  <% while not UserRecordset.EOF  %>
			<%
						response.write "&Nome="&vNome
						response.write "&Imagem="&vImagem
						response.write "&Imagem2="&vImagem2
						response.write "&Titulo="&vTitulo
						%>
			<label>
										<a href="produtos_detalhe.asp?Nome_menu_topo=<% = vNome_menu_topo %>&Nome_submenu_produtos=<% = vNome_submenu_produtos %>&ID_Produto=<% = UserRecordset("ID") %>" title="<% =  UserRecordset("Titulo") %>"  style="width:50px; height:50px; display:block; background: url(images/produtos/p/<% = UserRecordset("Imagem_produto") %>) no-repeat center center;" > </a>
						</label>
						<% 
						UserRecordset.Movenext
						wend
						%>		  
		  </div>
		  <!-- THUMBNAIL PRODUTO - fim -->

			<%
					end if
					UserRecordset.Close
					%>
		
		</div>
		<!-- VITRINE PRODUTO -->
	  
	  
	  
	  </div><!-- final miolo -->
	  
	  <div id="direita_miolo"></div>
	  
	  <div id="rodape_miolo"></div>
	  
	  
	
	
	
	
	</div><!-- final elementos -->
	
	
</div><!-- final conteudo -->

<!--#include file="includes/inc_funcao_estatistica_useragent.asp" -->
<%
  DatabaseConnection.Close
  set DatabaseConnection = nothing
	Set UserRecordset = Nothing
%>


</body>
</html>

Ted k' · Fevereiro 19, 2008

troque o nome dos recodsets

UserRecordset

UserRecordset2

UserRecordset3

Entrar

Arquivado

problemas com loop de dados

Recommended Posts

dmorsoleto 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

dmorsoleto 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante