Banco De Dados

[Fábio freitas]

Olá,

Gostaria de uma ajuda no segunte caso:

Tenho uma página em ASP e dentro dela uma tabela aonde apresento as informações porém gostaria que as informações aparecessem em mais uma tabela ao lado.

veja código abaixo:

<%

set cn = server.createObject("ADODB.Connection")

cn.ConnectionString = "DSN=ocf"

cn.open

set rs = cn.execute("select * from funcionario")

%>

<%

Do Until rs.EOF

foto = rs("foto")

nome = rs("nome")

funcao = rs("funcao")

email = rs("email")

ramal = rs("ramal")

nasc = rs("dt_nasc")

%>

<div align="center">

<center>

<table border="1" cellpadding="0" cellspacing="0" width="259" bordercolor="#000000">

<tr>

<td width="80" rowspan="5"> <p align="center"><img border="0" src=<%=foto%> width="77" height="97"></p></td>

<td width="173">&nbsp;Nome : <%=nome%></td>

</tr>

<tr>

<td width="173">&nbsp;Função : <%=funcao%></td>

</tr>

<tr>

<td width="173">&nbsp;Email : <a href="mailto:<%=email%>"><%=email%></a></td>

</tr>

<tr>

<td width="173">&nbsp;Ramal : <%=ramal%></td>

</tr>

<tr>

<td width="173">&nbsp;<%=nasc%></td>

</tr>

</table>

<p>&nbsp;</p>

<%

rs.MoveNext

Loop

%>

[pgmador]

Irmão,

é o seguinte... pensei em algo aqui.. vê se vai dar certo.. mas a lógica é por aí.

<%
set cn = server.createObject("ADODB.Connection")
cn.ConnectionString = "DSN=ocf"
cn.open
set rs = cn.execute("select * from funcionario")
%>
<table width="518" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <%
i=0
Do Until rs.EOF

foto = rs("foto")
nome = rs("nome")
funcao = rs("funcao")
email = rs("email")
ramal = rs("ramal")
nasc = rs("dt_nasc") 
i=i+1
%>
    <% if (i mod 2<>0) then%><td> <% else %> <tr> <% end if %><table border="1" cellpadding="0" cellspacing="0" width="259" bordercolor="#000000">
        <tr> 
          <td width="80" rowspan="5"> <p align="center"><img border="0" src=<%=foto%> width="77" height="97"></p></td>
          <td width="173">&nbsp;Nome : <%=nome%></td>
        </tr>
        <tr> 
          <td width="173">&nbsp;Função : <%=funcao%></td>
        </tr>
        <tr> 
          <td width="173">&nbsp;Email : <a href="mailto:<%=email%>"><%=email%></a></td>
        </tr>
        <tr> 
          <td width="173">&nbsp;Ramal : <%=ramal%></td>
        </tr>
        <tr> 
          <td width="173">&nbsp;<%=nasc%></td>
        </tr>
      </table></td>
  </tr>
</table>
<p>&nbsp;</p>
<%
rs.MoveNext
Loop
%> 

[]'s

nelson

[Victor]

Seu sistema tem mais de um registro ou só um???

[Fábio freitas]

Bom dia,

Mais de um, porém a tabela ao lado terá que dar continuidade

[Deividy]

Seu sistema tem mais de um registro ou só um???

as vezes você faz cada pergunta!

[Victor]

então você tem que colocar if not rs.eof, ai ele vai pegar todas as linhas do bd, enquanto não for final de arquivo!!!

[Victor]

<%
RecSet.Open "Select * from funcionario", conn
if not RecSet.EOF then
while not RecSet.EOF
%>

<table border="1" cellpadding="0" cellspacing="0" width="259" bordercolor="#000000">
       <tr> 
         <td width="80" rowspan="5"> <p align="center"><img border="0" src=<%=foto%> width="77" height="97"></p></td>
         <td width="173">&nbsp;Nome : <%=nome%></td>
       </tr>
       <tr> 
         <td width="173">&nbsp;Função : <%=funcao%></td>
       </tr>
       <tr> 
         <td width="173">&nbsp;Email : <a href="mailto:<%=email%>"><%=email%></a></td>
       </tr>
       <tr> 
         <td width="173">&nbsp;Ramal : <%=ramal%></td>
       </tr>
       <tr> 
         <td width="173">&nbsp;<%=nasc%></td>
       </tr>
     </table></td>
 </tr>
</table>

<%RecSet.MoveNext
wend
end if
RecSet.Close%>

Pega esse exemplo e junta com o resto da parte do seu codigo, eu só coloquei para ele enquanto não for final de arquivo ele pegar todos as linhas do bd, e aparecer todos os registros!!!

Se precisar de mais alguma coisa é só falar!!!Estarei sempre disposto a ajudar!!!

[]'s

Victor