Exibir Recordset

[bass]

Como faço para exibir os dados de um BD de forma que ele coloque EX:

4 registros e vá para a linha de baixo, mais 4 e assim por diante.

Agradeço a ajuda....

[Guest Guest]

Tenta isso!!

<table>
<%
strSql="Select * from tabela"
Set Rs = conn.execute(strSql)

Do While not Rs.EOF 
%>
  <tr>
    <td><%=Rs("dado")%></td>
    <%
    Rs.MoveNext
    If Rs.EOF Then Exit For
    %>
    <td><%=Rs("dado")%></td>
    <%
    Rs.MoveNext
    If Rs.EOF Then Exit For
    %>    
    <td><%=Rs("dado")%></td>
    <%
    Rs.MoveNext
    If Rs.EOF Then Exit For
    %>    
    <td><%=Rs("dado")%></td>
  </tr>
  <%
  Rs.MoveNext
Loop

Rs.close
Set Rs = nothing
  %>
</table>

[]'s

Gregório

[bass]

Tenta isso!!

<table>
<%
strSql="Select * from tabela"
Set Rs = conn.execute(strSql)

Do While not Rs.EOF 
%>
  <tr>
    <td><%=Rs("dado")%></td>
    <%
    Rs.MoveNext
    If Rs.EOF Then Exit For
    %>
    <td><%=Rs("dado")%></td>
    <%
    Rs.MoveNext
    If Rs.EOF Then Exit For
    %>    
    <td><%=Rs("dado")%></td>
    <%
    Rs.MoveNext
    If Rs.EOF Then Exit For
    %>    
    <td><%=Rs("dado")%></td>
  </tr>
  <%
  Rs.MoveNext
Loop

Rs.close
Set Rs = nothing
  %>
</table>

[]'s

Gregório

Valeu cara era isso que eu estava procurando..

masti ve que substituir o "exit for" por "exit do"

senão dava erro...

valeu....