[Resolvido] Problemas com while

Web Design Valdeci · Julho 26, 2010

Bom Dia,

Gostaria de ajuda para que o while funcione em uma consulta.

Tenho um sistema que exibe anuncios de empresas conveniadas com outras empresas.

A pessoa seleciona o convênio e a cidade que ela quer ver os conveniados e ela vê o seguinte:

Imagem Postada

Utilizei um menu cortina para exibir. Repare que o segmento Advocacia possui 3 registros mas somente exibe um.

Envio abaixo o script que utilizei:


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="conexao.asp" -->
<%
tsc = request.querystring("tsc")
if tsc = "exibir" then
ver = "sim"
id_empresa = request.querystring("id")
Set cs01 = Server.CreateObject("ADODB.Recordset")
cs01.ActiveConnection = strcon
cs01.Source = "SELECT * FROM EMPRESAS WHERE id = "&id_empresa&" and exibir = '"&ver&"'"
cs01.CursorType = 0
cs01.CursorLocation = 3
cs01.LockType = 1
cs01.Open()

Set cs03 = Server.CreateObject("ADODB.Recordset")
cs03.ActiveConnection = strcon
cs03.Source = "SELECT * FROM EMPRESAS WHERE id = "&id_empresa&" and exibir = '"&ver&"'"
cs03.CursorType = 0
cs03.CursorLocation = 3
cs03.LockType = 1
cs03.Open()
end if
   
exibir = "sim"
set cs02 = Server.CreateObject("ADODB.Recordset")
cs02.ActiveConnection = strcon
cs02.Source ="SELECT * FROM SEGMENTOS where exibir = '"&exibir&"' order by nome "
cs02.CursorType = 0
cs02.CursorLocation = 3
cs02.LockType = 1
cs02.Open()
%>


<table width="779" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td bgcolor="#FFFFFF"> </td>
                <td colspan="2" bgcolor="#FFFFFF"><table width="733" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td><div align="justify" class="texto"></div></td>
                    </tr>
                  </table></td>
                </tr>
              <tr>
                <td bgcolor="#FFFFFF"> </td>
                <td colspan="2" bgcolor="#FFFFFF"> </td>
                </tr>
              <tr>
                <td bgcolor="#FFFFFF"> </td>
                <td valign="top" bgcolor="#FFFFFF" class="fonte_preta_11"><div align="center"><img src="http://www.aliancaalternativa.com.br/assets/img/adm/empresas/<%=cs01.Fields.Item("logomarca").Value%>" width="120"></div></td>
                <td width="403" rowspan="3" bgcolor="#FFFFFF"> </td>
                </tr>
              <tr>
                <td bgcolor="#FFFFFF"> </td>
                <td width="331" valign="top" bgcolor="#FFFFFF" class="fonte_preta_11"><strong><%=cs01.Fields.Item("nome").Value%></strong></td>
                </tr>
              <tr>
                <td bgcolor="#FFFFFF"> </td>
                <td bgcolor="#FFFFFF" class="fonte_preta_11"><%=cs01.Fields.Item("descricao").Value%></td>
                </tr>
              <tr>
                <td bgcolor="#FFFFFF"> </td>
                <td colspan="2" bgcolor="#FFFFFF"> </td>
                </tr>
              <tr>
                <td bgcolor="#FFFFFF"> </td>
                <td colspan="2" bgcolor="#FFFFFF"><dl><% 
			While (Not cs02.EOF)
			idSeg = Request.QueryString("idSeg")
            id_segmento = cs02.Fields.Item("id").Value
            Set cs03 = Server.CreateObject("ADODB.Recordset")
            cs03.ActiveConnection = strcon
            cs03.Source = "SELECT * FROM LISTAS WHERE id_empresa = "&id_empresa&" and id_segmento = "&id_segmento&" and id_cidade = "&idSeg&""
            cs03.CursorType = 0
            cs03.CursorLocation = 3
            cs03.LockType = 1
            cs03.Open()
            i = 0  
			While (Not cs03.EOF) 
			id_cliente = cs03.Fields.Item("id_cliente").Value     
			Set cs04 = Server.CreateObject("ADODB.Recordset")
			cs04.ActiveConnection = strcon
			cs04.Source = "SELECT * FROM CLIENTES WHERE id IN ("&id_cliente&")"
			cs04.CursorType = 0
			cs04.CursorLocation = 3
			cs04.LockType = 1
			cs04.Open()    
            i = i + 1
		    cs03.MoveNext()
            Wend
			If i = 0 then
            cs02.MoveNext()
            else%>
                  <dt><a href="/" class="link_cinza_under"><%=cs02.Fields.Item("nome").Value%> (<%=i%>)</a></dt>
	<dd>
	<%DO WHILE not cs04.EOF%>
	<ul>
		<li><table width="387" border="0" align="center" cellpadding="0" cellspacing="5">
                   
                  <tr>
                    <td height="30"><div align="left"><span class="fonte_branca_11"><strong>   </strong></span><span class="txt_branco_11"><strong><%=cs04.Fields.Item("nome").Value%></strong></span></div>
                        <div align="left"></div></td>
                  </tr>
                  <%if cs04.Fields.Item("logomarca").Value <> "" then %>
                  <tr>
                    <td><img src="http://www.aliancaalternativa.com.br/assets/img/adm/clientes/<%=cs04.Fields.Item("logomarca").Value%>"></td>
                  </tr>
                  <%end if%>
                  <tr>
                    <td class="fonte_preta_11"><div align="left" class="txt_branco_11"><strong>Endereço:</strong> <span class="txt_cinza_11"><%=cs04.Fields.Item("endereco").Value%></span></div></td>
                  </tr>
                  <tr>
                    <td class="fonte_preta_11"><div align="left" class="txt_branco_11"><strong>Telefone:</strong> <span class="txt_cinza_11"><%=cs04.Fields.Item("telefone").Value%></span></div>
                        <div align="left"></div></td>
                  </tr>
                  <tr>
                    <td class="fonte_preta_11"><div align="left" class="txt_branco_11"><strong>Fax:</strong> <span class="txt_cinza_11"><%=cs04.Fields.Item("fax").Value%></span></div></td>
                  </tr>
                  <tr>
                    <td class="fonte_preta_11"><div align="left" class="txt_branco_11"><strong>Site:</strong> <a href="<%=cs04.Fields.Item("site").Value%>" target="_blank" class="link_cinza_under"><%=cs04.Fields.Item("site").Value%></a></div>
                        <div align="left"></div></td>
                  </tr>
                  <tr>
                    <td class="fonte_preta_11"><div align="left" class="txt_branco_11"><strong>Email:</strong> <a href="mailto:<%=cs04.Fields.Item("email").Value%>" class="link_cinza_under"><%=cs04.Fields.Item("email").Value%></a></div>
                        <div align="left"></div></td>
                  </tr>
                  <tr>
                    <td class="fonte_preta_11"><div align="left" class="txt"><strong>Descrição:</strong> <span class="txt_cinza_11"><%=cs04.Fields.Item("descricao").Value%></span></div></td>
                  </tr>
                 
                </table></li>
	</ul>
	</dd>
<%
			cs04.MoveNext()
			Loop
						%>
<%
            cs02.MoveNext()
            End if
			Wend
			 %>
</dl></td>
                </tr>
              <tr>
                <td width="45" bgcolor="#FFFFFF"> </td>
                <td colspan="2" bgcolor="#FFFFFF"> </td>
                </tr>
              </table>

augustoclaro · Julho 26, 2010

não entendi o problema

Web Design Valdeci · Julho 26, 2010

não entendi o problema

É o seguinte, era para o sistema assim que clicar em advocacia exibir os 3 registros que estão no banco e ele exibe apenas 1. Não sei o que tenho que utilizar para que neste consulta aqui:

 <% 
			While (Not cs02.EOF)
			idSeg = Request.QueryString("idSeg")
            id_segmento = cs02.Fields.Item("id").Value
            Set cs03 = Server.CreateObject("ADODB.Recordset")
            cs03.ActiveConnection = strcon
            cs03.Source = "SELECT * FROM LISTAS WHERE id_empresa = "&id_empresa&" and id_segmento = "&id_segmento&" and id_cidade = "&idSeg&""
            cs03.CursorType = 0
            cs03.CursorLocation = 3
            cs03.LockType = 1
            cs03.Open()
            i = 0  
			While (Not cs03.EOF) 
			id_cliente = cs03.Fields.Item("id_cliente").Value     
			Set cs04 = Server.CreateObject("ADODB.Recordset")
			cs04.ActiveConnection = strcon
			cs04.Source = "SELECT * FROM CLIENTES WHERE id IN ("&id_cliente&")"
			cs04.CursorType = 0
			cs04.CursorLocation = 3
			cs04.LockType = 1
			cs04.Open()    
            i = i + 1
			Response.Write("&id_cliente&")
		    cs03.MoveNext()
			Wend
           	If i = 0 then
            cs02.MoveNext()
            else%>

Esta variável teria que receber mais de um valor "id_cliente = cs03.Fields.Item("id_cliente").Value" separado por virgula para que na hora que eu fizer esta consulta "cs04.Source = "SELECT * FROM CLIENTES WHERE id IN ("&id_cliente&")"" e liste todos os anunciantes. Não sei se estou fazendo da maneira certa poderia me ajudar?

augustoclaro · Julho 26, 2010

da um response.write um response.end nesse id_cliente e vê que valor ele recebe

Web Design Valdeci · Julho 28, 2010

O problema me parece que é aqui:

i = 0  
			While (Not cs03.EOF) 
			id_cliente = cs03.Fields.Item("id_cliente").Value     
			Set cs04 = Server.CreateObject("ADODB.Recordset")
			cs04.ActiveConnection = strcon
			cs04.Source = "SELECT * FROM CLIENTES WHERE id = "&id_cliente&""
			cs04.CursorType = 0
			cs04.CursorLocation = 3
			cs04.LockType = 1
			cs04.Open()    
            i = i + 1
		    cs03.MoveNext()
			Wend
'Fiz isto para que ele mostre apenas os segmentos que têm algum registro e não é zero.
If i = 0 then
            cs02.MoveNext()
            else

Ele chama apenas o último resultado. A variável id_cliente teria que receber a quantidade de registros que o (i) conta. Existe um segmento (advocacia) que o (i) mostra que ele tem 3 registros mas ele mostra apenas 1. O Response.Whrite imprimiu apenas 1 resultado que está gravado na tabela listas e possuem 3.

Bom Dia Pessoal,

Consegui fazer com que ele exiba os registos referentes ao segmento que ele está associado, existem 3 registros de advocacia, ele duplica a palavra advocacia e coloca um registro em cada. Creio que seja erro da posição onde eu coloquei o while. Já tentei várias configurações e nada.

Poderiam me ajudar?

Envio a imagem abaixo:

Imagem Postada

Envio o código abaixo:

<% 
			While (Not cs02.EOF)
			IdCidade = Request.QueryString("IdCidade")
            id_segmento = cs02.Fields.Item("id").Value
            Set cs03 = Server.CreateObject("ADODB.Recordset")
            cs03.ActiveConnection = strcon
            cs03.Source = "SELECT * FROM LISTAS WHERE id_empresa = "&idConvenio&" and id_segmento = "&id_segmento&" and id_cidade = "&IdCidade&""
            cs03.CursorType = 0
            cs03.CursorLocation = 3
            cs03.LockType = 1
            cs03.Open()
			While (Not cs03.EOF) 
			id_cliente = cs03.Fields.Item("id_cliente").Value     
			Set cs04 = Server.CreateObject("ADODB.Recordset")
			cs04.ActiveConnection = strcon
			cs04.Source = "SELECT * FROM CLIENTES WHERE id IN ("&id_cliente&")"
			cs04.CursorType = 0
			cs04.CursorLocation = 3
			cs04.LockType = 1
			cs04.Open()    
            %>
                  <dt><a href="/" class="link_cinza_under"><%=cs02.Fields.Item("nome").Value%> </a></dt>
                  <dd>
                    <%WHILE not cs04.EOF%>
                    <ul>
                      <li>
                      
                        <table width="387" border="0" align="center" cellpadding="0" cellspacing="5">
                          <tr>
                            <td height="30"><div align="left"><span class="fonte_branca_11"><strong>   </strong></span><span class="txt_branco_11"><strong><%=cs04.Fields.Item("nome").Value%></strong></span></div>
                              <div align="left"></div></td>
                          </tr>
                          <%if cs04.Fields.Item("logomarca").Value <> "" then %>
                          <tr>
                            <td><img src="http://www.aliancaalternativa.com.br/assets/img/adm/clientes/<%=cs04.Fields.Item("logomarca").Value%>"></td>
                          </tr>
                          <%end if%>
                          <tr>
                            <td class="fonte_preta_11"><div align="left" class="txt_branco_11"><strong>Endereço:</strong> <span class="txt_cinza_11"><%=cs04.Fields.Item("endereco").Value%></span></div></td>
                          </tr>
                          <tr>
                            <td class="fonte_preta_11"><div align="left" class="txt_branco_11"><strong>Telefone:</strong> <span class="txt_cinza_11"><%=cs04.Fields.Item("telefone").Value%></span></div>
                              <div align="left"></div></td>
                          </tr>
                          <tr>
                            <td class="fonte_preta_11"><div align="left" class="txt_branco_11"><strong>Fax:</strong> <span class="txt_cinza_11"><%=cs04.Fields.Item("fax").Value%></span></div></td>
                          </tr>
                          <tr>
                            <td class="fonte_preta_11"><div align="left" class="txt_branco_11"><strong>Site:</strong> <a href="<%=cs04.Fields.Item("site").Value%>" target="_blank" class="link_cinza_under"><%=cs04.Fields.Item("site").Value%></a></div>
                              <div align="left"></div></td>
                          </tr>
                          <tr>
                            <td class="fonte_preta_11"><div align="left" class="txt_branco_11"><strong>Email:</strong> <a href="mailto:<%=cs04.Fields.Item("email").Value%>" class="link_cinza_under"><%=cs04.Fields.Item("email").Value%></a></div>
                              <div align="left"></div></td>
                          </tr>
                          <tr>
                            <td class="fonte_preta_11"><div align="left" class="txt"><strong>Descrição:</strong> <span class="txt_cinza_11"><%=cs04.Fields.Item("descricao").Value%></span></div></td>
                          </tr>
						
                        </table>
                        
                      </li>
                    </ul>
                  </dd>
                  <%
						  
			cs04.MoveNext()
			Wend%><%
				  cs03.MoveNext()
			Wend
            cs02.MoveNext()
			Wend
			 %>
                </dl>

Bom Dia Pessoal,

Estou tentando a dias fazer o menu slideDown funcionar e não consigo:

Eu tenho três itens: A, B e C. O item A tem um slideDown() para exibir um conteúdo oculto. Quando o usuário clicar novamente no item A, o contéudo é escondido com um slideUp().

O usuário clica no item A. Ela mostra o conteúdo normalmente. Aí quando o usuário clicar no item B, o conteúdo do item A é escondido automaticamente com um slideUp() e o do B é mostrado com um slideDown(). O mesmo para o item C.

Isso está funcionando.

O que desejo fazer é:

O problema disso tudo não é o slideDown e sim a adequação disso lendo do banco de dados com asp.

Eu fiz uma consulta onde exibe a categoria e quando clicado aparecerá uma "subcategoria" no formato que expliquei acima. O problema é que se eu tiver mais de uma subcategoria em uma categoria, ele duplica a categoria na quantidade de vezes que eu tiver a subcategoria. Ex: se eu tiver uma categoria Advocacia e dentro dela eu tiver 3 subcategorias, ao invés dele mostrar apenas 1 categoria com as 3 subcategorias, ele repete a categoria 3 vezes e coloca uma subcategoria dentro de cada uma categoria. Envio a imagem abaixo para que possam ver. Enviarei novamente o codigo

para que possam visualizar, creio que seja o local onde estou colocando o while. Outra informação:

Meu banco de dados está assim: tenho uma tabela de clientes, uma tabela de segmentos, uma tabela de empresas, uma tabela Listas.

Primeiro eu cadastro a o cliente e seus dados, depois cadastro um segmento (farmácia, advocacia, etc.) depois cadastro uma empresa que proporciona um convênio de descontos (ex: unimed) para associa-la ao cliente e depois eu interligo tudo na tabela listas.

Espero que possam me ajudar.

obrigado.

Imagem:

Imagem Postada

Código Asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="conexao.asp" -->
<%
tsc = request.querystring("tsc")
if tsc = "exibir" then
ver = "sim"
idConvenio = Request.QueryString("idConvenio")
idCidade = Request.QueryString("idCidade")
Set cs01 = Server.CreateObject("ADODB.Recordset")
cs01.ActiveConnection = strcon
cs01.Source = "SELECT * FROM EMPRESAS WHERE id = "&idConvenio&" and exibir = '"&ver&"'"
cs01.CursorType = 0
cs01.CursorLocation = 3
cs01.LockType = 1
cs01.Open()

Set cs07 = Server.CreateObject("ADODB.Recordset")
cs07.ActiveConnection = strcon
cs07.Source = "SELECT * FROM EMPRESAS WHERE id = "&idConvenio&" and exibir = '"&ver&"'"
cs07.CursorType = 0
cs07.CursorLocation = 3
cs07.LockType = 1
cs07.Open()
end if
   
'intID = request("id")
exibir = "sim"
set cs02 = Server.CreateObject("ADODB.Recordset")
cs02.ActiveConnection = strcon
cs02.Source ="SELECT * FROM SEGMENTOS where exibir = '"&exibir&"' order by nome "
cs02.CursorType = 0
cs02.CursorLocation = 3
cs02.LockType = 1
cs02.Open()
%>

Conteudo body

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Aliança Alternativa </title>
<script src="js/jquery.js"></script>
	<script>
	$(document).ready(function(){
		$("dd:not(:first)").hide();
		$("dt a").click(function(){
			$("dd:visible").slideUp("slow");
			$(this).parent().next().slideDown("slow");
			return false;
		});
	});
	</script>
	<style>
	body { font-family: Arial; font-size: 12px; }
	dl { width: 430px; }
	dl,dd { margin: 0; }
	dt { background-image: url(titlesBackgroundImage_1.png);; font-size: 12px; padding: 5px; margin: 2px; }
	dt a { color: #000; }
	dd a { color: #000; }
	ul { list-style: none; padding: 5px; }
	</style>
<link href="default.css" rel="stylesheet" type="text/css" />
<link href="css/estilo.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0" background="images/bg1_01.jpg">
  <tr>
    <td height="125"><table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="72%"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="652" height="125">
          <param name="movie" value="swf/menu.swf" />
          <param name="quality" value="high" />
          <param name="wmode" value="transparent" />
          <embed src="swf/menu.swf" quality="high" wmode="opaque" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="652" height="125"></embed>
        </object></td>
        <td width="28%"><table width="245" border="0" cellspacing="0" cellpadding="0" background="images/busca.gif">
          <tr>
            <td height="27"><table width="230" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="200"><form id="form1" name="form1" method="post" action="buscar.asp">
                  <label>
                    <input name="textfield" type="text" class="txt" id="textfield" value="Digite aqui..." size="35" />
                  </label>
                </form></td>
                <td width="30"><a href="#"><img src="images/blank.gif" width="30" height="20" border="0" onClick="document.forms.form1.submit();return false"/></a></td>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width=49% height=275 colspan="4" valign="middle" background="images/bg1_02.jpg" style="FILTER: blendTrans(duration=3)" IMG border=0 name=imgslide>
      <div align="center">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="62%"><div align="center">
              <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="260" height="140">
                <param name="movie" value="swf/Logomarca.swf" />
                <param name="quality" value="high" />
                <param name="wmode" value="transparent" />
                <embed src="swf/Logomarca.swf" quality="high" wmode="opaque" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="260" height="140"></embed>
              </object>
            </div></td>
            <td width="38%"> </td>
          </tr>
        </table>
      </div>      
  </table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="60" background="images/bg1_033.jpg"><table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><span class="txt_branco_17_bold">Convênios -<a href="conveniosVer.asp?tsc=exibir&id=<%=idConvenio%>" title="Voltar a menu de cidades" class="txt_branco_17_bold"><%=cs07.Fields.Item("nome").Value%></a></span></td>
        </tr>
    </table></td>
  </tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="202"><table width="779" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td><div align="center">
          <form id="form2" name="form1" method="post" action="adm/index.asp?tsc=validar">
            <table width="779" border="0" cellspacing="5" cellpadding="0">
              <tr>
                <td width="45" bgcolor="#FFFFFF"> </td>
                <td colspan="2" bgcolor="#FFFFFF"> </td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF"> </td>
                <td valign="top" bgcolor="#FFFFFF" class="fonte_preta_11"><div align="center"><img src="http://www.aliancaalternativa.com.br/assets/img/adm/empresas/<%=cs01.Fields.Item("logomarca").Value%>" width="120"></div></td>
                <td width="403" rowspan="3" bgcolor="#FFFFFF"><dl><% 
			While (Not cs02.EOF)
			IdCidade = Request.QueryString("IdCidade")
            id_segmento = cs02.Fields.Item("id").Value
			
            Set cs03 = Server.CreateObject("ADODB.Recordset")
            cs03.ActiveConnection = strcon
            cs03.Source = "SELECT * FROM LISTAS WHERE id_empresa = "&idConvenio&" and id_segmento = "&id_segmento&" and id_cidade = "&IdCidade&""
            cs03.CursorType = 0
            cs03.CursorLocation = 3
            cs03.LockType = 1
            cs03.Open()
			While (Not cs03.EOF) 
			id_cliente = cs03.Fields.Item("id_cliente").Value  
			   
			Set cs04 = Server.CreateObject("ADODB.Recordset")
			cs04.ActiveConnection = strcon
			cs04.Source = "SELECT * FROM CLIENTES WHERE id ="&id_cliente&""
			cs04.CursorType = 0
			cs04.CursorLocation = 3
			cs04.LockType = 1
			cs04.Open()    
            %>
                  <dt><a href="/" class="link_cinza_under"><%=cs02.Fields.Item("nome").Value%> </a></dt>
                  <dd><%WHILE not cs04.EOF%>
                    <ul>
                      <li>
                        <table width="387" border="0" align="center" cellpadding="0" cellspacing="5">
                          <tr>
                            <td height="30"><div align="left"><span class="fonte_branca_11"><strong>   </strong></span><span class="txt_branco_11"><strong><%=cs04.Fields.Item("nome").Value%></strong></span></div>
                              <div align="left"></div></td>
                          </tr>
                          <%if cs04.Fields.Item("logomarca").Value <> "" then %>
                          <tr>
                            <td><img src="http://www.aliancaalternativa.com.br/assets/img/adm/clientes/<%=cs04.Fields.Item("logomarca").Value%>"></td>
                          </tr>
                          <%end if%>
                          <tr>
                            <td class="fonte_preta_11"><div align="left" class="txt_branco_11"><strong>Endereço:</strong> <span class="txt_cinza_11"><%=cs04.Fields.Item("endereco").Value%></span></div></td>
                          </tr>
                          <tr>
                            <td class="fonte_preta_11"><div align="left" class="txt_branco_11"><strong>Telefone:</strong> <span class="txt_cinza_11"><%=cs04.Fields.Item("telefone").Value%></span></div>
                              <div align="left"></div></td>
                          </tr>
                          <tr>
                            <td class="fonte_preta_11"><div align="left" class="txt_branco_11"><strong>Fax:</strong> <span class="txt_cinza_11"><%=cs04.Fields.Item("fax").Value%></span></div></td>
                          </tr>
                          <tr>
                            <td class="fonte_preta_11"><div align="left" class="txt_branco_11"><strong>Site:</strong> <a href="<%=cs04.Fields.Item("site").Value%>" target="_blank" class="link_cinza_under"><%=cs04.Fields.Item("site").Value%></a></div>
                              <div align="left"></div></td>
                          </tr>
                          <tr>
                            <td class="fonte_preta_11"><div align="left" class="txt_branco_11"><strong>Email:</strong> <a href="mailto:<%=cs04.Fields.Item("email").Value%>" class="link_cinza_under"><%=cs04.Fields.Item("email").Value%></a></div>
                              <div align="left"></div></td>
                          </tr>
                          <tr>
                            <td class="fonte_preta_11"><div align="left" class="txt"><strong>Descrição:</strong> <span class="txt_cinza_11"><%=cs04.Fields.Item("descricao").Value%></span></div></td>
                          </tr>
                        </table>
                        
                      </li>
                    </ul>
            <%
			cs04.MoveNext()
			Wend
			  cs03.MoveNext()
			  Wend%>
                  </dd>
                 <%
            cs02.MoveNext()
			Wend
			 %>
                </dl></td>
                </tr>
              <tr>
                <td bgcolor="#FFFFFF"> </td>
                <td width="331" valign="top" bgcolor="#FFFFFF" class="fonte_preta_11"><strong><%=cs01.Fields.Item("nome").Value%></strong></td>
                </tr>
              <tr>
                <td bgcolor="#FFFFFF"> </td>
                <td valign="top" bgcolor="#FFFFFF" class="fonte_preta_11"><%=cs01.Fields.Item("descricao").Value%></td>
                </tr>
              </table>
            </form>
          </div></td>
      </tr>
      <tr>
        <td></td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" background="images/bg1_05.jpg">
  <tr>
    <td height="100"><table width="900" border="0" align="center" cellpadding="0" cellspacing="5">
      <tr>
        <td colspan="2"> </td>
      </tr>
      <tr>
        <td width="92%" class="txt"></td>
      </tr>
      <tr>
        <td colspan="2"> </td>
      </tr>
    </table></td>
  </tr>
</table>
</body>
</html>

DSerma · Julho 28, 2010

Cara.. eu se fosse você faria assim...

Dentro do cadastro da empresa conveniada, eu teria um campo chamado "id_segmento", onde, óbviamente, colocaria o id do segmento a qual ele pertence...

Para exibir os dados no menu... eu utilizaria duas SELECTS e 2 Whiles...

No primeiro.. eu selecionaria os id_segmento da tabela da empresa distintamente (SELECT DISTINCT (id_segmento)), criaria um Loop para essa SELECT e, dentro desse LOOP, faria o outro SELECT para pegar todas as empresas que possuem o mesmo id_segmento....

Desse jeito... você conseguirá fazer o seu menu e os seus dados aparecerem corretamente..

Att;

Web Design Valdeci · Julho 30, 2010

Cara.. eu se fosse você faria assim...

Dentro do cadastro da empresa conveniada, eu teria um campo chamado "id_segmento", onde, óbviamente, colocaria o id do segmento a qual ele pertence...

Para exibir os dados no menu... eu utilizaria duas SELECTS e 2 Whiles...

No primeiro.. eu selecionaria os id_segmento da tabela da empresa distintamente (SELECT DISTINCT (id_segmento)), criaria um Loop para essa SELECT e, dentro desse LOOP, faria o outro SELECT para pegar todas as empresas que possuem o mesmo id_segmento....

Desse jeito... você conseguirá fazer o seu menu e os seus dados aparecerem corretamente..

Att;

Obrigado pela ajuda Dark, eu tive que fazer diferente, utilizei ajax para carregar uma página externa chamando os clientes e aí funcionou.

[RESOLVIDO]

Entrar

Arquivado

[Resolvido] Problemas com while

Recommended Posts

Web Design Valdeci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

augustoclaro 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

Web Design Valdeci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

augustoclaro 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

Web Design Valdeci 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

Web Design Valdeci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante