3 replies to this topic

[ecbert]

Tenho uma tabela que lista equipamentos... Além das características dos equipamentos tem a imagem dele....

Como faço para listar esses equipamentos lado a lado na página colocando a imagem acima e a descrição abaixo ou a imagem e descrição lado a lado...


Tem jeito não tem?

[gmogames]

Ola Ecbert,

tem sim, trabalhe com o While que voce consegue.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("database/seudatabase.mdb") + ";Persist Security Info=False"

Set Produtos = Server.CreateObject("ADODB.RecordSet")
Produtos.Open "Select * From Produtos", Conn, 3, 3
%>

HTML

<% While Not Produtos.EOF %>
aqui voce monta as tabelas

<tr>
                      <td width="8%" bgcolor="#FFFFFF"><font color="#FF0000">
                      <span style="font-size: 8pt; font-weight: 700">&nbsp mostra</span></font></td>
                      <td width="92%" bgcolor="Black"><font color="#000000">
                      <span style="font-size: 8pt">&nbsp; 
                      <a class="nav" href="anuncio.asp?prid=<%= Top("Codigo do Produto").Value %>"><%= LCase(Left(Top("Titulo").Value, 17))%>...
                      </a>
                      </span></font></td>
                    </tr>

<% 
Produtos.MoveNext
Wend
%>

Entao voce cria toda HTML dentra do While, e nessa html, voce coloca na tabela 1 a foto e na 2 a descricao, etc......

[Maxi]

Um exempo para colocar o escrito em cima da imegem...
faz o seguinte você cria a tabela depois.. na celula vc coloca imagem de fundo localizada no bando de dados...
EX.
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1">
<tr>
<td width="<%larguradaimegem%>" height="<%alturadaimagem%>" background="<%=imagemBD%>">Célula1</td>
<td>Célula dados <%=dadosBD%></td>
</tr>
</table>

Para colocar a imagem ao lado da descrição é muito fácil ou até mesmo acima

<%
dim conn
cnpath="DBQ=" & Server.MapPath("bandodedados.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DataSource

%>
<%
set rs=conn.execute("select*from tabela")
%>
<%do until rs.eof%>
<div align="center">
  <center>
<table width="460" style="border-collapse: collapse" bordercolor="#111111">
  <tr>
    <td width="210">
    <p><font size="1" face="Verdana"><%=rs("imagem")%></font></td>
    <td width="210">
    <font size="1" face="Verdana"><%=rs("descrição")%></font></td>
<% rs.movenext
loop
conn.close
%>

pra fazer a imagem ficar em cima.. é só alterar a tabela...
espero ter ajudado... valew :ok:

[ecbert]

Valeu pessoal, testei das duas formas e deu certo....




Obrigada e até mais