MOSTRAR FOTO NA TELA
Estou aprendendo asp, tenho um cadastro que guarda o endereço(link) de uma foto no bd access. Quando faço uma consulta para mostrar os dados na tela, ao invés de mostrar a foto que está no servidor (arquivo jpg) mostra só o endereço(link). Exemplo como mostra na tela:
Casa 2 quartos 1 suÃte
http://www.laportimoveis.com.br/fotocasa.jpg <<== aqui eu queria que aparecesse a foto
AÃ vai o código abaixo:
<html>
<head>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=iso-8859-1[Ô]>
<title>Lista de noticias</title>
</head>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=iso-8859-1[Ô]>
<body>
<%
Set con = Server.CreateObject([Ô]ADODB.Connection[Ô])
con.Open [Ô]Driver={Microsoft Access Driver (*.mdb)}; DBQ=[Ô] & Server.MapPath([Ô]adm.mdb[Ô])
[ô]Executa SQL de consulta
sql = [Ô]SELECT * FROM imovel ORDER BY autonum DESC[Ô]
Set result = con.Execute(sql)
Do While Not result.EOF
[ô] Mostra
Response.Write [Ô]<p><b><font face=Verdana size=1><a href=noticia.asp?autonum=[Ô] &result.Fields([Ô]autonum[Ô]) & [Ô]>[Ô]&result.Fields([Ô]titulo[Ô])&[Ô]</a></b><br><font color=[Ô][Ô]#696969[Ô][Ô]>• [Ô] &result.Fields([Ô]descricao[Ô]) & [Ô]</font></font></p>[Ô]
Response.write result.Fields([Ô]foto1[Ô]) [ô] <<== aqui que não estou conseguindo
[ô]Pasa a la siguiente fila
result.MoveNext
Loop
[ô]Libera memoria
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>
<p>
 </p>
</body>
</html>
Casa 2 quartos 1 suÃte
http://www.laportimoveis.com.br/fotocasa.jpg <<== aqui eu queria que aparecesse a foto
AÃ vai o código abaixo:
<html>
<head>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=iso-8859-1[Ô]>
<title>Lista de noticias</title>
</head>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=iso-8859-1[Ô]>
<body>
<%
Set con = Server.CreateObject([Ô]ADODB.Connection[Ô])
con.Open [Ô]Driver={Microsoft Access Driver (*.mdb)}; DBQ=[Ô] & Server.MapPath([Ô]adm.mdb[Ô])
[ô]Executa SQL de consulta
sql = [Ô]SELECT * FROM imovel ORDER BY autonum DESC[Ô]
Set result = con.Execute(sql)
Do While Not result.EOF
[ô] Mostra
Response.Write [Ô]<p><b><font face=Verdana size=1><a href=noticia.asp?autonum=[Ô] &result.Fields([Ô]autonum[Ô]) & [Ô]>[Ô]&result.Fields([Ô]titulo[Ô])&[Ô]</a></b><br><font color=[Ô][Ô]#696969[Ô][Ô]>• [Ô] &result.Fields([Ô]descricao[Ô]) & [Ô]</font></font></p>[Ô]
Response.write result.Fields([Ô]foto1[Ô]) [ô] <<== aqui que não estou conseguindo
[ô]Pasa a la siguiente fila
result.MoveNext
Loop
[ô]Libera memoria
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>
<p>
 </p>
</body>
</html>
OBRIGADO NAJESUS, FUNCIONOU PERFEITAMENTE, ESTOU ENCERRANDO O TÓPICO.
Tópico encerrado , respostas não são mais permitidas