Ir para conteúdo

POWERED BY:

Arquivado

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

dmorsoleto

problemas com loop

Por , em ASP Clássico

Recommended Posts

dmorsoleto    0

dmorsoleto
Postado

fala galera... to com um problrma em um codigo que faz um select na base de dados e busca nomes de estados.

Quero que o asp escreva o todos os resultados em uma variavel. Fiz com response.write, soh que ele esta escrevendo soh o ultimo resultado buscado

As linhas que faço isso esta m vermelho no codigo abaixo, quem puder me ajudar, por favor, valew!!

 

<!--#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 DatabaseConnection2 = Server.CreateObject("ADODB.Connection") 
		DatabaseConnection2.Open  Get_ConexaoLojas
	
		Set UserRecordset = Server.CreateObject("ADODB.Recordset")
		
	vCEP = GM_Substituir(request("CEP"),"'","''")
	vUF = GM_Substituir(request("UF"),"'","''")
	vID_Cidade = GM_StrToNumber(request("ID_Cidade"))
		vShopping = GM_StrToNumber(request("Shopping"))
		
	vID_PAG_XHTML = 14 '-> IDENTIFICAÇÃO NO BANCO DA PÁGINA ATUAL
		
		vEsta_pagina = "onde_comprar.asp"
	
	
%><!--#include file="includes/inc_head.asp" -->


<%="<!-- "%><html><%=" -->"%>


 <script language="JavaScript" type="text/javascript" src="file:///HD/Jobs/Plié/JOBs 2008/000 . Site/js/funcoes_ajax.js"></script>
 <script>
		function GM_Controle_CEP()
		{
			lista_erro = "";
			if(document.form_cep.cep.value == "")
			{
				lista_erro = lista_erro + "O Campo 'CEP' está em branco!\n";
			}
			if (lista_erro != "")
			{
				alert(lista_erro);
			}
			else
			{
				document.form_cep.submit();
			}	
		}							
 </script>
<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 comprar_bg" style="_background: #fff url(file:///HD/Jobs/Pli%C3%A9/JOBs%202008/000%20.%20Site/images/comprar_tit.gif) no-repeat bottom right;_background-position: 50px 50px;"><!-- inicio miolo -->
				
				<div id="comprar_busca">
				<!-- BUSCA POR CEP -->
				<div id="comprar_busca_cep">	  
			
			<div class="comprar_detalhe1"></div>	  

			<div class="comprar_form">
							<table class="cadastro_tab">
									<form id="form_cep" name="form_cep" method="post" action="<% = vEsta_pagina %>">
									<input name="operacao" type="hidden" id="operacao" value="1">
				  <tr>
					<td align="center"> Digite o cep desejado <br>
					(sem hífen) </td>
				  </tr>
				  <tr>
					<td align="center"><input name="cep" type="text" class="form-input" id="cep" size="10" maxlength="9" value="<% = vCEP %>"> </td>
				  </tr>
									</form>
			  </table>	
						</div>	  

			<div class="comprar_botao"><img src="file:///HD/Jobs/Plié/JOBs 2008/000 . Site/images/comprar_buscar.gif" onClick="GM_Controle_CEP();"></div>			

				</div>
				<!-- BUSCA POR CEP - fim -->


				<!-- BUSCA POR ESTADO -->
				<div id="comprar_busca_uf">	  

			<div><br><b>Ou escolha por:</b></div>	  

			<div class="comprar_form">
							<table class="cadastro_tab">
									<form id="form_estado" name="form_estado" method="post" action="<% = vEsta_pagina %>">
									<input name="operacao" type="hidden" id="operacao" value="2">
				  <tr>
					<td colspan="2"><div id="avisoCarregando" style="position:absolute;"></div></td>
					</tr>
				  <tr>
					<td>Estado: </td>
					<td>
												<div align="left">
												  <select name="UF" class="form-input" id="UF" onchange="GM_Combo('includes/cidade_ajax.asp?UF='+this.value,'ID_Cidade',0);">
													<option value="" <%if trim(vUF) = "" then%> selected <% end if %>>Selecione...</option>
													<%
														SQLString = "SELECT UF, Nome FROM GT_Estado order by Nome "
														UserRecordset.Open SQLString,DatabaseConnection2
													
														while not UserRecordset.EOF
													   	[color="#FF0000"]vEstado = UserRecordset("Nome")
														vUF = UserRecordset("UF")
														response.Write("&estado="&vEstado)
														  response.Write("&uf="&vUF)[/color]
														%>
																<option value="<% =UserRecordset("UF") %>" <%if UserRecordset("UF") = trim(vUF) then%> selected <% end if %>>
																<% =UserRecordset("Nome")
																
														 %>
																</option>
																<%
																
														UserRecordset.Movenext
														wend
														UserRecordset.CLose
														
														%>
												</select>
										  </div>												
										</td>
				  </tr>
				  <tr>
					<td>Cidade: </td>
					<td>
					  <div align="left">
						<select name="ID_Cidade" id="ID_Cidade" class="form-input">
						  <option>Selecione...</option>
						</select>
											</div></td>
				  </tr>
				  <tr>
					<td colspan="2">
										
										</td>
				  </tr>
				  <tr>
					<td colspan="2"><input name="shopping" type="checkbox" id="shopping" value="1" <% if vShopping = "1" then %> checked <% end if %>>buscar apenas lojas de shopping </td>
				  </tr>
									</form>
			  </table>	
						</div>	  

			<div class="comprar_botao"><img src="file:///HD/Jobs/Plié/JOBs 2008/000 . Site/images/comprar_buscar.gif" onClick="document.form_estado.submit();"></div>			
	  
			<div class="comprar_detalhe2"></div>	  
						
				</div>
				<!-- BUSCA POR ESTADO - fim -->
				</div>

				<!-- RESULTADO DA BUSCA -->
				<div id="comprar_resultado">	  
					<%
					if request("operacao") = "1" then
						
						SQLString = "GM_Loja '" & vCep & "' "
						UserRecordset.Open SQLString, DatabaseConnection2
				
						vEstado_antigo = ""
						vEstado_atual = ""
						vID_Cidade_antigo = ""
						vID_Cidade_atual = ""
				
						while not UserRecordset.EOF
							vEstado_atual = UserRecordset("Nome_estado")
							vID_Cidade_atual = UserRecordset("ID_Cidade")
						%> 
							<% if vEstado_atual <> vEstado_antigo then %>
							<p class="comprar_resultado_uf"><% = UserRecordset("Nome_estado") %></p>
							<br>
							<% end if %>
							<% if vID_Cidade_antigo <> vID_Cidade_atual then %>
							<p class="comprar_resultado_cidade"><% = UserRecordset("Cidade") %></p>
							<br>
							<% end if %>
							<p class="comprar_resultado_loja"><b><% = UserRecordset("nome") %><% if UserRecordset("Shopping") <> "" then %> - <% = UserRecordset("Shopping") %><% end if %></b><br>
							CEP: <% = UserRecordset("cep") %><br>
							<% = UserRecordset("endereco") %>, <% = UserRecordset("numero") %> <% = UserRecordset("complemento") %> - <% = UserRecordset("bairro") %><br>
							tel.: <% = UserRecordset("telefone") %></p>
							<br>
							<%
							vEstado_antigo = vEstado_atual
							vID_Cidade_antigo = vID_Cidade_atual
						UserRecordset.Movenext
						wend
						
						
						UserRecordset.close
						Set UserRecordset = Nothing
						
					elseif request("operacao") = "2" then
					
						SQLString = "Select GT_Loja.*, GT_Estado.Nome as Nome_estado from (GT_Loja left join GT_Estado on GT_Loja.Estado = GT_Estado.UF) where 1=1 "
						if trim(vUF) <> "" then 
							SQLString = SQLString & "and GT_Loja.Estado = '" & vUF & "'"
						end if
						if GM_StrTonumber(vID_Cidade) > 0 then 
							SQLString = SQLString & "and GT_Loja.ID_Cidade = " & vID_Cidade & " "
						end if
						if GM_StrTonumber(vShopping) = 1 then 
							SQLString = SQLString & "and GT_Loja.Shopping <> '' "
						end if
						SQLString = SQLString & "order by GT_Estado.Nome, GT_Loja.Cidade "
						UserRecordset.Open SQLString, DatabaseConnection2
						
						vEstado_antigo = ""
						vEstado_atual = ""
						vID_Cidade_antigo = ""
						vID_Cidade_atual = ""
				
						while not UserRecordset.EOF
							vEstado_atual = UserRecordset("Nome_estado")
							vID_Cidade_atual = UserRecordset("ID_Cidade")
						%> 
							<% if vEstado_atual <> vEstado_antigo then %>
							<p class="comprar_resultado_uf"><% = UserRecordset("Nome_estado") %></p>
							<br>
							<% end if %>
							<% if vID_Cidade_antigo <> vID_Cidade_atual then %>
							<p class="comprar_resultado_cidade"><% = UserRecordset("Cidade") %></p>
							<br>
							<% end if %>
							<p class="comprar_resultado_loja"><b><% = UserRecordset("nome") %><% if UserRecordset("Shopping") <> "" then %> - <% = UserRecordset("Shopping") %><% end if %></b><br>
							CEP: <% = UserRecordset("cep") %><br>
							<% = UserRecordset("endereco") %>, <% = UserRecordset("numero") %> <% = UserRecordset("complemento") %> - <% = UserRecordset("bairro") %><br>
							tel.: <% = UserRecordset("telefone") %></p>
							<br>
							<%
							vEstado_antigo = vEstado_atual
							vID_Cidade_antigo = vID_Cidade_atual
						UserRecordset.Movenext
						wend
						
						
						UserRecordset.close
						Set UserRecordset = Nothing
					
					end if
					%>
					
				</div>
				<!-- RESULTADO DA BUSCA - fim -->

	  </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
	DatabaseConnection2.Close
	set DatabaseConnection2 = nothing
%>
<% if request("operacao") = "2" then %>
	<script>
		GM_Combo('includes/cidade_ajax.asp?UF=<% = vUF %>','ID_Cidade',<% = vID_CIdade %>);
	</script>
<% end if %>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

so está imprimindo o ultimo?

 

nao vi erro na logica aparentemente

 

certeza de ser este o loop com erro?

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