mostrar imagen

Joselete · #1 (**permalink**) 20/12/2002, 07:28

Estoy intentando mostrar una imagen desde un directorio, pero no lo consigo...
como puedo probar??
Este es mi código... tampoco sé como al leer el campo URL de la BD me lo lea con el vínculo incluido.

<%@LANGUAGE="VBSCRIPT"%>
<%

Dim imagen

imagen = Request("imagen")
imagen = Replace(imagen,"../fotos/","")

%>

<%

Dim oConn, rs, SQL

set oConn = Server.CreateObject("ADODB.Connection") ' conexion
set rs = Server.CreateObject("ADODB.Recordset") ' recordset
'oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Data/FTP.mdb")
oConn.Open "DSN=granada2000.net.ogadeftp"
SQL="SELECT * FROM Archivos;"
rs.Open SQL, oConn

do until rs.EOF
Response.Write("Nombre: ")
Response.Write(rs.Fields("Nombre") & " ")
Response.Write("Descripción: ")
Response.Write(rs.Fields("Descripción") & " ")
Response.Write("URL: ")
Response.Write(rs.Fields("URL") & " ")
Response.Write("Imagen: ")
Response.Write(rs.Fields("Imagen") & " ")
Response.Write(" ")
rs.MoveNext
%>

<h3><%=imagen%></h3>
<IMG SRC="<%=Request("imagen")%>" BORDER=0> 



</body>

</html>

Podeis probar si os devuelve los valores de una DB, incluida una imagen???

Gracias

bakanzipp · #2 (**permalink**) 20/12/2002, 07:51

por ke no nos explicas cuando de todas las variables corresponde a la foto?..

Request("imagen")
rs.Fields("Imagen")
imagen

hazle un response.write al dato correspondiente a imagen para ver si el path esta correcto.

ah y la url segun tu codigo muestralo asi:

do until rs.EOF
Response.Write("Nombre: ")
Response.Write(rs.Fields("Nombre") & " ")
Response.Write("Descripción: ")
Response.Write(rs.Fields("Descripción") & " ")
Response.Write("URL: ")%>
<a href="<%=rs.Fields("URL")%><%=rs.Fields("URL")%></a>"
 
<%
Response.Write("Imagen: ")
Response.Write(rs.Fields("Imagen") & " ")
Response.Write(" ")
rs.MoveNext
%>

carlunchos · #3 (**permalink**) 20/12/2002, 11:02

Hola Joselete, tambien podrias hacerlo de esta manera:

responses.write"<img src="""&rst("campo_imagen")&""">"

y en la celda de la tabla que contiene el campo "campo_imagen" colocas el nombre de la imagen:

imagen.jpg

Si las imagenes las tienes en una carpeta, que se llame Imagenes, colocas en la celda de la tabla : Imagenes/imagen.jpg

saludos.

Joselete · #4 (**permalink**) 20/12/2002, 13:16

Muchas gracias MAESTROS!!!

Todo ok...

Salu2!!

Joselete · #5 (**permalink**) 20/12/2002, 13:32

algo falla....

Error de compilación de Microsoft VBScript error '800a03fb'

Se esperaba 'Loop'

bakanzipp · #6 (**permalink**) 20/12/2002, 13:48

Response.Write(" ")
rs.MoveNext
loop
%>

Joselete · #7 (**permalink**) 23/12/2002, 02:41

Perdona el latazo, pero esto de ser principiante en ASP no me trae mas q quebraderos de cabeza...

me sigue dando error:
Se esperaba una instrucción
<a href="<%=rs.Fields("URL")
^

Por favor, si me dais una respuesta... os importaria explicarmela mas o menos?? es para entender el error.

Muchisimas gracias

bakanzipp · #8 (**permalink**) 23/12/2002, 06:25

muestrame las lineas de codigo y donde te da error

maestro · #9 (**permalink**) 23/12/2002, 21:24

Esa linea deberia tener esta continuacion y el campo URL existir en la tabla.
<a href="<%=rs.Fields("URL")">Tu enlace</a>

Joselete · #10 (**permalink**) 24/12/2002, 02:24

<%@LANGUAGE="VBSCRIPT"%>
<%
Dim imagen

imagen = Request("imagen")
imagen = Replace(imagen,"","")%>

<%

Dim oConn, rs, SQL

set oConn = Server.CreateObject("ADODB.Connection") ' conexion
set rs = Server.CreateObject("ADODB.Recordset") ' recordset
oConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\FTP.mdb;"
SQL="SELECT * FROM Archivos;"
rs.Open SQL, oConn

do until rs.EOF
Response.Write("Nombre: ")
Response.Write(rs.Fields("Nombre") & " ")
Response.Write("Descripción: ")
Response.Write(rs.Fields("Descripción") & " ")
Response.Write("URL: ")
<a href="<%=rs.Fields("URL")">http://www.ideal.es</a><
Response.Write("Imagen: ")
Response.Write(rs.Fields("Imagen") & " ")
Response.Write(" ")
rs.MoveNext
loop
%>

<h3><%=imagen%></h3>
<IMG SRC="<%=Request("imagen")%>" BORDER=0> 

El error que me devuelve el PWS es:

Error de compilación de Microsoft VBScript error '800a0400'

Se esperaba una instrucción

/webpub/LeerBD-FTP.asp, line 38

<a href="<%=rs.Fields("URL")">http://www.ideal.es</a><
^

Lo que quiero es q me muestre los campos de la BD, q son: Nombre(Texto), Descripciòn(Texto), URL(Hipervínculo) e Imagen(Texto).
Todo lo que muestra será texto, excepto los campos URL ( q deberá mostrarme el texto q aparece en ese campo, pero con el hipervínculo activo) y la imagen, que deberia devolverme un .JPG).

El hipervínculo funciona perfectamente en la BD, pero no al mostrarlo en pantalla...

En cuanto a la imagen, es lo que quiro sacar en claro, pues alguno de vosotros habrá visto otro post que puse en el q estoy interesado en crear un catálogo.... es decir, q aprendiendo finalmente a mostrar datos e imagenes de una BD, lo podría hacer fácilmente, tal y como me comentó el amigo maestro.

Espero no darles mucho el latazo, pero estas cosas de principiantes creo q son las q mas cuestan, y asi poquito a poco estoy aprendiendo bastante

maestro · #11 (**permalink**) 24/12/2002, 05:11

Mi consejo es queagreges a tu base de datos un campo llamado codigo o ID.
Eso te permite saber que al producto numero 10 le corresponde la imagen 10.jpg, al registro 15 la imagen 15.jpg, etc

Para mostrarlo despues te valdria con esto:
<%imagen="f"&rs.Fields("codigo")& ".jpg"%>
<img border=0 src="images/productos/<%response.write(imagen)%>">

Y en cuanto a los hypervinculos para mostrar por ejemplo los datos detallados de cada producto, necesitarias otra pagina a la cual le pasas por querystring el codigo a visualizar, algo asi:
<a href="detalle.asp?codigo=<%response.write(rs("codi go"))%>"></a>

Ademas asi te ahorras el campo imagen y el campo hypervinculo en la base de datos, te permite llevar un mantenimiento mas rapido.

Suerte

Joselete · #12 (**permalink**) 24/12/2002, 05:35

Dios mio q follon....

maestro · #13 (**permalink**) 24/12/2002, 05:40

No te preocupes, tienes todo una año por delante para convertirte en un AS de las tiendas virtuales

Joselete · #14 (**permalink**) 24/12/2002, 05:48

Además de verdad... ufff!!! menos mal q solo quedan unos dias

Lo q pasa es q yo no quiero tienda virtual, solo quiero poder mostrar una imagen asociada a unos datos... casi lo tengoooo!!!

seguiremos en el intento con vuestra ayuda

Salu2 desde Granada compañero

bakanzipp · #15 (**permalink**) 24/12/2002, 07:07

en tu codigo te falta separar asp con html...recuerda que cada vez que utilices asp (solo asp) debe ir en <%%>

do until rs.EOF
Response.Write("Nombre: ")
Response.Write(rs.Fields("Nombre") & " ")
Response.Write("Descripción: ")
Response.Write(rs.Fields("Descripción") & " ")
Response.Write("URL: ")%>
<a href="<%=rs.Fields("URL")">http://www.ideal.es</a>
<%
Response.Write("Imagen: ")
Response.Write(rs.Fields("Imagen") & " ")
Response.Write(" ")
rs.MoveNext
loop
%>

Joselete · #16 (**permalink**) 24/12/2002, 07:15

nada, no hay manera....

Error de compilación de Microsoft VBScript error '800a0409'

Constante de cadena sin terminar

/webpub/LeerBD-FTP.asp, line 29

Response.Write(rs.Fields("URL")">http://www.ideal.es</a>)
---------------------------------------------------------^

bakanzipp · #17 (**permalink**) 24/12/2002, 08:17

pero cambiaste el codigo...yo te di este

Response.Write("URL: ")%>
<a href="<%=rs.Fields("URL")">http://www.ideal.es</a>
<%
Response.Write("Imagen: ")

Joselete · #18 (**permalink**) 24/12/2002, 08:41

claro q lo cambié... ahora mismito está este:

do until rs.EOF
Response.Write("Nombre: ")
Response.Write(rs.Fields("Nombre") & " ")
Response.Write("Descripción: ")
Response.Write(rs.Fields("Descripción") & " ")
Response.Write("URL: ")%>
<a href="<%=rs.Fields("URL")">http://www.ideal.es</a>
Response.Write("Imagen: ")%>
<%
Response.Write("Imagen: ")
Response.Write(rs.Fields("Imagen") & " ")
Response.Write(" ")
rs.MoveNext
loop
%>

y me dá el siguiente error:
Error de compilación de Microsoft VBScript error '800a0400'

Se esperaba una instrucción

/webpub/LeerBD-FTP.asp, line 29

=rs.Fields("URL")">http://www.ideal.es</a>

la imagen ya he conseguido q se vea

, pero no el hipervinculo, no está activo....

tunait · #19 (**permalink**) 24/12/2002, 08:46

... con permiso...

no has cambiado la línea que te dijo Bankazip, ahi está el error

do until rs.EOF
Response.Write("Nombre: ")
Response.Write(rs.Fields("Nombre") & " ")
Response.Write("Descripción: ")
Response.Write(rs.Fields("Descripción") & " ")
Response.Write("URL: ")%>
<a href="<%=rs.Fields("URL") %>">http://www.ideal.es</a> <%
Response.Write("Imagen: ")%>
<%
Response.Write("Imagen: ")
Response.Write(rs.Fields("Imagen") & " ")
Response.Write(" ")
rs.MoveNext
loop
%>

Así a ojo lo que veo que falta es lo que te dejé en negrita.

Suerte

tunait · #20 (**permalink**) 24/12/2002, 08:49

Uf, casi no se ve la negrita.

Bueno es esta línea

<a href="<%=rs.Fields("URL")">http://www.ideal.es</a>

que has de cambiar por esta:

<a href="<%=rs.Fields("URL") %>">http://www.ideal.es</a> <%

Joselete · #21 (**permalink**) 24/12/2002, 08:54

ooooooppppppssss... cierto

Es la navidad q la sangre altera... te digo q cuanto más veces miraba el código, menos encontraba el error.... GRACIAS A LOS DOS!!

Ya lo conseguí... por fin...

Artistas!!

Seguiré buscando dudas para seguir aprendiendo

Salu2!!