Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

vinycius

Imagem em Access

Por , em ASP Clássico

Recommended Posts

vinycius    0

vinycius
Postado

Galera eu fiz o banco de dados mostrar os dados certinho em minha página ASP mas o campo da imgem não aparece e é apenas um gif pequeno de 90 x 80, o pior é que não aparece erro nenhum. Como tenho que deixar o campo no Access, e como escrever no ASP????Desde já agradeço

Compartilhar este post

Link para o post
Compartilhar em outros sites

vinycius    0

vinycius
Postado

Ele está gravando o gif coloquei no modo estrutura como Objeto OLE, mas quando puxo no ASP ele não mostra a figura existe alguma maneira deu colocar o link e ele mostrar a figura do link e não o endereço do link????

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaptor    0

kaptor
Postado

Vinycius...Você pode fazer o seguinte...No BD crie um campo onde você colocará somente o endereço da imagemEx.: img/foto01.gifna página, você coloca um link de imagem que busca a origem no registro do BDEx.: <img src="<%=(RS_NomedoRecordSet.Fields.Item("nomedocampo").Value)%>" width="90" height="80">Acho que isso funciona...Té mais...Qualquer coisa, posta aí...

Compartilhar este post

Link para o post
Compartilhar em outros sites

vinycius    0

vinycius
Postado

Este problema da imagem eu consegui resolver peguei um modelo e vi como ele puxava a imagem então coloquei o mesmo código e funcionou, mas agora o problema é:

 

o primeiro registro está certinho

Já o segundo registro está dando um espaçamento muito grande vê se vcs conseguem me ajudar, pois já configurei todas as tabelas e continua igual.

 

O endereço onde se encontra o arquivo é este:

 

http://www.tgbrasil.com.br/class/titulos/d.../diversos01.asp

 

Agradeço a colaboração

 

E Kaptor o exemplo que eu peguei estava quase igual ao que você postou, Obrigado...

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaptor    0

kaptor
Postado

Véio...O problema está na table que você está escrevendo... tem um monte de colunas e linhas desnecessárias...Tente enxugar o máximo possível delas...tipo, construa uma tabela que cada linha tenha 2 colunas... onde você está criando um monte de linhas para colocar os dados dos registro você pode quebrar as linhas com <BR>, sei lá...e coloque isso dentro do seu loop...Tenho certeza de que vai melhorar, além de ficar mais leve...Se precisar, mandae...Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

vinycius    0

vinycius
Postado

Esta página está sendo feita no dreamwaver em modo layout então eu não tenho tanta cédula assim, tem como você me postar um código para ver como ficaria????

Compartilhar este post

Link para o post
Compartilhar em outros sites

vinycius    0

vinycius
Postado

Neste link que eu postei ai continua dando o mesmo erro mesmo que eu deixe tudo em uma só célula, então decidi postar o código da página em ASP, por favor me ajudem, o segundo grupo de dados está indo para frente do outro. o código da pág é este:::

 

<%ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\tgbrasil\dados\classificados.mdb;"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open ConnStringSet Registros = Server.CreateObject("ADODB.Recordset")Registros.Open "Clientes", Conexao%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Classificados TGBrasil</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table width="545" border="0" cellpadding="0" cellspacing="0">  <!--DWLayoutTable-->  <tr>     <td width="545" height="148" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">        <!--DWLayoutTable-->        <tr>           <td height="47" colspan="2" valign="top"><div align="center"><font color="#000099" size="5" face="Verdana, Arial, Helvetica, sans-serif"><strong>DIVERSOS</strong></font></div></td>        </tr>        <tr>           <% While Not Registros.EOF %>          <td width="98" height="80" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">              <!--DWLayoutTable-->              <tr>                 <td width="90" height="80" valign="middle"><div align="center"><img src="logos/<%=(Registros("LOGO").Value)%>"></div></td>                <td width="8"> </td>              </tr>            </table></td>          <td width="447" align="left" valign="top" nowrap><p><%= Registros("NOME") %><BR>              <%= Registros("ENDERECO") %><BR>     <%= Registros("TELEFONE") %><BR>     Email:<%= Registros("EMAIL") %> - Site: <%= Registros("SITE") %> </td>        </tr>        <tr>           <td height="21" colspan="2" valign="top" nowrap><hr></td>        </tr>        <!--DWLayoutTable-->      </table></td>  </tr>  <%Registros.MoveNext()Wend%>  <%Registros.CloseConexao.Close Set Registros = NothingSet Conexao = Nothing%></table></body></html>

Se alguém puder me ajudar, agradeço....

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

Tenta assim...

 

<%ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\tgbrasil\dados\classificados.mdb;"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open ConnStringSet Registros = Server.CreateObject("ADODB.Recordset")Registros.Open "Clientes", Conexao%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Classificados TGBrasil</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table width="545" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr>    <td width="545" height="148" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">       <!--DWLayoutTable-->       <tr>          <td height="47" colspan="2" valign="top"><div align="center"><font color="#000099" size="5" face="Verdana, Arial, Helvetica, sans-serif"><strong>DIVERSOS</strong></font></div></td>       </tr>         <% While Not Registros.EOF %>       <tr>          <td width="98" height="80" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">             <!--DWLayoutTable-->             <tr>                <td width="90" height="80" valign="middle"><div align="center"><img src="logos/<%=(Registros("LOGO").Value)%>"></div></td>               <td width="8"> </td>             </tr>           </table></td>         <td width="447" align="left" valign="top" nowrap><p><%= Registros("NOME") %><BR>             <%= Registros("ENDERECO") %><BR>    <%= Registros("TELEFONE") %><BR>    Email:<%= Registros("EMAIL") %> - Site: <%= Registros("SITE") %> </td>       </tr>       <tr>          <td height="21" colspan="2" valign="top" nowrap><hr></td>       </tr>     <%Registros.MoveNext()Wend%>       <!--DWLayoutTable-->     </table></td> </tr> <%Registros.CloseConexao.Close Set Registros = NothingSet Conexao = Nothing%></table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaptor    0

kaptor
Postado

Fala Vinycius... como é que vão as coisas???

 

Espero que bem... Olha só, fiz as alterações pra você... espero que ajude...

 

Abraços, Kaptor

 

 

<%ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\tgbrasil\dados\classificados.mdb;"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open ConnStringSet Registros = Server.CreateObject("ADODB.Recordset")Registros.Open "Clientes", Conexao%><html><head><title>Classificados TGBrasil</title></head><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table width="545" border="0" cellspacing="0" cellpadding="0">  <tr align="center">     <td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="5" color="#000099"><b>DIVERSOS</b></font></td>  </tr>  <% While Not Registros.EOF %>  <tr>     <td align="center" valign="middle" width="120"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><img src="logos/<%=(Registros("LOGO").Value)%>"></font></td>    <td width="425"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Registros("NOME") %><BR>      <%= Registros("ENDERECO") %><BR>      <%= Registros("TELEFONE") %><BR>      Email:<%= Registros("EMAIL") %> - Site: <%= Registros("SITE") %> </font></td>  </tr>  <tr>     <td colspan="2">       <hr>    </td>  </tr>  <%Registros.MoveNext()Wend%>  <%Registros.CloseConexao.Close Set Registros = NothingSet Conexao = Nothing%></table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

vinycius    0

vinycius
Postado

Valeu Kaptor e WLJ, conseguiram resolver meu problema usei o code do kaptor e deu certo ficou beleza.Agradeço muito a ajuda de vcsBoa sorte a vcs em seus serviços.Obrigado!!!! :lol:/> :lol:/> :lol:/>

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaptor    0

kaptor
Postado

Putz... cara... fiquei feliz em saber que pude te ajudar...

 

Mas acho que você ainda pode melhorar um lance que eu esqueci de colocar...

 

Arrume o código onde tem link para email e site para que as pessoas possam clicar nos links de verdade...

Coloque assim:

 

Email: <a href="<%= Registros("EMAIL") %>"><%= Registros("EMAIL") %></a> - Site: <a href="<%= Registros("SITE") %>" target="blank"><%= Registros("SITE") %></a>

Acho que fica melhor...

 

Abraços... e precisando, manda ae

Compartilhar este post

Link para o post
Compartilhar em outros sites

vinycius    0

vinycius
Postado

Kaptor valeu mesmo, o estranho é que depois que você me mandou o código fui atraz para fazer exatamente o que você recomendou, em um modelo de asp que eu tenho aqui.Agora estou com um outro probleminha como colocar os registros em ordem alfa pelo nome e colocar uma quantidade de registros especifico de registros e quando chegar nele criar uma outra pág.????????Vixe....Chega de tanta pergunta Agradeceria muito se alguém pudesse me ajudar.....

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaptor    0

kaptor
Postado

Como diria o Papai Noel: - ho, ho, ho!!!

 

hehehe

 

Mas vamos por partes...

 

primeiro vamos colocar os registros em ordem alfabética...

 

no seu documento, troque seu código. onde está escrito: 

<%ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\tgbrasil\dados\classificados.mdb;"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open ConnStringSet Registros = Server.CreateObject("ADODB.Recordset")Registros.Open "Clientes", Conexao%>

Troque por este:

 

<%ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\tgbrasil\dados\classificados.mdb;"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open ConnStringDim RS_Registros_ItemDim RS_Registros_Item_numRowsset RS_Registros_Item = Server.CreateObject("ADODB.Recordset")RS_Registros_Item.ActiveConnection = ConStringRS_Registros_Item.Source = "SELECT * FROM Clientes ORDER BY nome ASC"RS_Registros_Item.CursorType = 0RS_Registros_Item.CursorLocation = 2RS_Registros_Item.LockType = 3RS_Registros_Item.Open()RS_Registros_Item_numRows = 0%><%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = -1Repeat1__index = 0RS_Registros_Item_numRows = RS_Registros_Item_numRows + Repeat1__numRows%>

 

Seu "outro probleminha" é o que nós chamamos de PAGINAÇÃO, mas isso é bem fácil de fazer...

 

Vamos fazer uma coisa de cada vez... acho que vais ser melhor

Até mais

Compartilhar este post

Link para o post
Compartilhar em outros sites

vinycius    0

vinycius
Postado

Eu fiz o que você me falou e deu o seguinte erro:ADODB.Recordset error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /class/titulos/diversos01.asp, line 10 e agora?????????

Compartilhar este post

Link para o post
Compartilhar em outros sites

vinycius    0

vinycius
Postado

Será que alguém poderia me ajudar, pois o código que o Kaptor me passou ele dá um erro, existe outra maneira pra eu colocar os registros em ordem alfabética e fazer a páginação????Agradeço quem puder me ajudar.....

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito