Resultado De Select Em 2 Colunas E 4 Linhas

[thiagonogueira]

Olá amigos, bom dia!

Estou montando uma vitrine de produtos e preciso que meu select mostre 8 produtos randomicamente divididos em 2 colunas.

Meu database é access e meu select é:

sqlproduto = "select top 8 * from produto order by RND(INT(NOW*cod_prod)-NOW*cod_prod)"

Até ai beleza, eu trago os 8 randomicos...mas como eu divido em colunas? Estou trabalhando com esta tabela:

<%
IF rs_produto.EOF then
Response.write "N&atilde;o existem relat&oacute;rios no Banco de Dados..."
ELSE
While not rs_produto.EOF 
%>

  <tr height=15>
    <td width="250" height="166" align="center" valign="top"><table width="230" height="160" border="0" cellpadding="0" cellspacing="0" background="images/images/fundo_vitrine_2_02.jpg">
      <tr>
        <td height="6" colspan="2"><img src="images/images/fundo_vitrine_2_01.jpg" width="240" height="6"></td>
      </tr>
      <tr>
        <td height="12" colspan="2"><span class="style13 style12 style47"><strong>&nbsp;<span class="style13"><span class="style13 style47 style17"><strong>::<%=rs_produto("produto")%> ::</strong></span></span></strong></span></td>
        </tr>
      <tr>
        <td width="85" height="100" align="center" valign="middle"><img src="Imagens/<%=(rs_produto("imagem_pq"))%>" width="75"></td>
        <td width="145" height="110" align="right"><table width="140" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="38" class="style14"><span class="style47"><%=left(rs_produto("descricao"),60)%></span></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="18" colspan="2" align="right" valign="top"><span class="style47 style12 style13"><%=formatCurrency(rs_produto("valor"))%> | <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="produto_detalhe.asp?cod_prod=<%=rs_produto("cod_prod")%>">Detalhes</a>&nbsp;&nbsp;</font></span></td>
      </tr>
      <tr>
        <td height="5" colspan="2" align="right" valign="top"><img src="images/images/fundo_vitrine_2_03.jpg" width="240" height="5"></td>
      </tr>
    </table></td>
    <td width="250" align="center" valign="bottom">&nbsp;</td>
  </tr>

<%
   rs_produto.movenext
   Wend
   End If
   rs_produto.Close
   'fecha a conexao
   Call fecha_conexao
   Set rs_produto = Nothing
   %>

Com isso eu quase termino meu site.

Valeu se alguém puder me socorrer.

Abraços

[kuroi]

seria tipo assim:

<table>
<% While Not rs_produto.EOF
%>
     <tr>
          <td><% = rs_produto.EOF("produto") %></td>
          <% rs_produto.EOF.MoveNext %>
          <td><% = rs_produto.EOF("produto") %></td>
          <% rs_produto.EOF.MoveNext %>
     </tr>
<%
WEnd %>
</table>[/code]
da uma olhada e adapte no seu codigo.
mas cuidado que se você tiver menos de 8 produtos na sua tabela (e for um numero impar) ele vai dar erro no meio do loop, ai você teria que testar se é EOF entre uma coluna e outra.

[thiagonogueira]

Realmente encontrei o problema dos dados serem inferiores e deu o seguinte erro na transição de coluna, será que pode me ajudar mais uma vez indicando como fazer o IF corretamente? Eu tentei uns 2 meios aqui mas deu pau.

A baixo o endereço, basta clicar em categorias que verão o erro.

http://www.lgcbio.com.br/genesis/projeto1/index.asp

Valeu pela ajuda.

Um abraço

[kuroi]

acho que tipo assim deve funcionar:

<table>
<% While Not rs_produto.EOF
%>
     <tr>
          <td><% = rs_produto("produto") %></td>
          <% rs_produto.MoveNext %>
     < % If rs_produto.EOF Then %>
          <td><% = rs_produto("produto") %></td>
          <% rs_produto.MoveNext %>
     <% Else %>
          <td>&nbsp;</td>
     <% End If %>
     </tr>
<%
WEnd %>
</table>[/code]

[thiagonogueira]

Bom cara na realidade não funcionou!

Não tem nada estranho neste IF?

Ele não deveria ser antes do MOVENEXT?

Enfim, como dá pra perceber não é muito a minha praia ainda fazer IF....rs

Achei o problema!

No seu if esta invertido o certo é a coluna VAZIA antes da coluna cheia, pois o if se refere ao FINAL do BD:

<table>

<% While Not rs_produto.EOF

%>

<tr>

<td><% = rs_produto("produto") %></td>

<% rs_produto.MoveNext %>

< % If rs_produto.EOF Then %>

<td>&nbsp;</td>

<% rs_produto.MoveNext %>

<% Else %>

<td><% = rs_produto("produto") %></td>

<% End If %>

</tr>

<%

WEnd %>

</table>

Valeu cara!

Um abraço

[bareta]

isto pode te ajudar

http://www.portalmaracaju.com.br/blog/arti...=69&blog=14

[kuroi]

No seu if esta invertido o certo é a coluna VAZIA antes da coluna cheia, pois o if se refere ao FINAL do BD:

é mesmo, foi mal