Este ejemplo muestra como mostrar imagenes desde una base de datos en Access. Hay una explicacion completa, dado que hay
muchas preguntas que se refieren a este tema.
Primero que nada, creamos una tabla con los siguientes campos, y los tipos de datos...
El campo Id no es necesario. Prestaremos atencion a los otros dos campos.
El primero, llamado articulo, simplemente tendrá el nombre del artículo. Y el segundo, llamado imagen tendrá
el nombre del archivo que se refiere a ese articulo. En caso de que la imagen no esté en el mismo directorio que el archivo ASP
hay que agregar el path (por ejemplo img/arrow1.gif).
Ahora que ya explicamos lo que debe contener cada campo, completamos nuestra tabla recien creada. En este ejemplo haré solamente dos
registros. Veamos la imagen despues de llenar la tabla.
Bueno, luego de hacer esta aclaracion en cuanto a la creacion de la base de datos y sus contenidos, pasemos íntegramente al código ASP
que mostrará esos archivos de imagen en nuestra página web.
El siguiente código hace la conexion a la BD, luego un bucle recorriendo todos los registros y mostrando su contenido, y luego cierra
la base de datos.
<%
dim oConn, RS 'Creamos los objectos a usar.
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet") 'Conectamos a la conexion a la base de datos.
oConn.Open StrConn
sql = "SELECT * FROM imagenes" 'Abrimos la tabla pidiendo todos sus registros.
RS.Open sql, oConn
Do While not RS.EOF 'Mostramos el nombre del articulo.
Response.Write RS("articulo") & " - " 'Ahora el path de la imagen.
Response.Write RS("imagen") & " - " 'Y la siguiente linea muestra la imagen.
Response.Write "<IMG SRC="""&RS("imagen")&""">"
Response.Write "<BR>"
RS.MoveNext
Loop 'Cerramos y eliminamos todo.
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
%>
Y aqui, el script de arriba trabajando con una tabla igual a la mostrada en las imagenes. Producirá lo siguiente:
