Problema No Uso De Loop

lsardinha · Agosto 20, 2004

Estou fazendo uma página que busca os dados em banco com os seguintes campos:

--> Id

--> tipo

--> Publicacao

--> Diretorio

na página o tipo será o título das publicações, então teria de imprimir uma vez o titulo e em uma tabela os dados dessa publicação, mais ou menos assim:

Tipo (Jornais)

Publicacao Diretorio

Jornal 1 link

Tipo (Concurso)

Publicacao Diretorio

Edital link

Prova link

Resultado link

só que não estou conseguindo, o codigo esta aí, quem puder me ajudar:

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="610" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <TD width=15><IMG height=8 src="imagens/1px.gif" width=8></TD>
  </tr>

  <tr> 
    <td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="imagens/1px.gif" width=15></div></td>
    <td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr bgcolor="#3399CC"> 
          <td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>PUBLICA&Ccedil;&Otilde;ES</strong></font></div></td>
        </tr>
      </table> 

      <% while not Rs.EOF %>
      <% reg = Rs("tipo") %> 
   <% 'IMPRESSÃO DO TÍTULO %>
      <table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="5" align="center" class="textointrodutorio"><img src="../imagens/5px.gif" width="5" height="5"></td>
        </tr>
        <tr> 
          <td height="20" align="center" bgcolor="#C4E4FD" class="textointrodutorio"><%=rs("tipo")%></td>
        </tr>
      </table>
   <% ' IMPRESSÃO DOS DADOS %>
   <% Do %>
      <table width="595" border="0" cellpadding="1" cellspacing="2">
        <tr>
          <td width="30" height="20" align="center" bgcolor="#ECF8FF"><img src="imagens/tópico.gif" width="8" height="8"></td>
          <td width="409" bgcolor="#ECF8FF" class="texto"><%=rs("publicacao")%></td>
          <td width="16" bgcolor="#ECF8FF">&nbsp;</td>
          <td width="36" bgcolor="#ECF8FF">&nbsp;</td>
          <td width="16" bgcolor="#ECF8FF"><a href="publicacoes/<%= Rs("diretoriozip") %>"><img src="imagens/Zip.gif" width="16" height="16" border="0"></a></td>
          <td width="36" bgcolor="#ECF8FF" class="texto"><div align="center">Zip</div></td>
          <td width="16" bgcolor="#ECF8FF"><a href="publicacoes/<%= Rs("diretoriopdf") %>" target="_blank"><img src="imagens/pdf.gif" width="16" height="16" border="0"></a></td>
          <td width="36" bgcolor="#ECF8FF" class="texto"><div align="center">Pdf</div></td>
        </tr>
      </table>
   <% Loop until reg = (rs("tipo")) %> 
   <% Rs.Movenext %>   
      <% wend %>
      <% Rs.close %>
    </td>
  </tr>
</table>
</body>

cyberalexxx · Agosto 20, 2004

Dei uma adaptada no seu código e acho que deve funcionar, o unico detalhe é que na hora de criar o RecordSet voce deve colocar na instrução SQL para indexar por tipo: ORDER by TIPO

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="610" border="0" align="center" cellpadding="0" cellspacing="0">
 <tr> 
   <TD width=15><IMG height=8 src="imagens/1px.gif" width=8></TD>
 </tr>

 <tr> 
   <td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="imagens/1px.gif" width=15></div></td>
   <td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0">
       <tr bgcolor="#3399CC"> 
         <td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>PUBLICA&Ccedil;&Otilde;ES</strong></font></div></td>
       </tr>
     </table> 
     <% reg = "" %>
     <% Do while not Rs.EOF %>
     <% if reg <> Rs("tipo") then%>
         <% reg = Rs("tipo") %> 
         <% 'IMPRESSÃO DO TÍTULO %>
         <table width="595" border="0" cellspacing="0" cellpadding="0">
         <tr> 
         <td height="5" align="center" class="textointrodutorio"><img src="../imagens/5px.gif" width="5" height="5"></td>
         </tr>
         <tr> 
         <td height="20" align="center" bgcolor="#C4E4FD" class="textointrodutorio"><%=rs("tipo")%></td>
         </tr>
         </table>
     <% end if %>
  <% ' IMPRESSÃO DOS DADOS %>
     <table width="595" border="0" cellpadding="1" cellspacing="2">
       <tr>
         <td width="30" height="20" align="center" bgcolor="#ECF8FF"><img src="imagens/tópico.gif" width="8" height="8"></td>
         <td width="409" bgcolor="#ECF8FF" class="texto"><%=rs("publicacao")%></td>
         <td width="16" bgcolor="#ECF8FF">&nbsp;</td>
         <td width="36" bgcolor="#ECF8FF">&nbsp;</td>
         <td width="16" bgcolor="#ECF8FF"><a href="publicacoes/<%= Rs("diretoriozip") %>"><img src="imagens/Zip.gif" width="16" height="16" border="0"></a></td>
         <td width="36" bgcolor="#ECF8FF" class="texto"><div align="center">Zip</div></td>
         <td width="16" bgcolor="#ECF8FF"><a href="publicacoes/<%= Rs("diretoriopdf") %>" target="_blank"><img src="imagens/pdf.gif" width="16" height="16" border="0"></a></td>
         <td width="36" bgcolor="#ECF8FF" class="texto"><div align="center">Pdf</div></td>
       </tr>
     </table>
     <% Rs.Movenext %>   
     <% loop %>
     <% Rs.close %>
   </td>
 </tr>
</table>
</body>

lsardinha · Agosto 20, 2004

P E R F E I T O ! ! !

Valeu Demais!!!

Obrigado!!!

dark0 · Agosto 21, 2004

Parabens

To fechando o tópico.

Se tiver mais alguma duvida sobre isso, me mande PM que eu reabro o tópico!

Abraços

Entrar

Problema No Uso De Loop

Pergunta

lsardinha

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

cyberalexxx

Link para o comentário

Compartilhar em outros sites

lsardinha

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns

Navegação

Atividades