Intercambio de imagenes

[vgaray]

La siguiente lógica sirve para obtener el contenido una imagen aleatoria (no la trayectoria hacia la imagen, sino la imagen en si) de una base de datos.

El uso sería <img src="banner.asp">

Suponiendo que tienes una base de datos con una tabla que contiene un campo imagen (tipo OLE Object), y que ya cuentes con varios registros en ella; el código de banner.asp sería...

<%
Response.Buffer = True
Response.ContentType = "image/jpeg"

Set Conn = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Bd_Banners.mdb")
tabla.open "SELECT * from catalogo" ,Conn,3,2

cuantos = tabla.RecordCount

Randomize
aleatorio = Int(Rnd * cuantos)
For x = 1 to aleatorio-1
tabla.movenext
Next

Response.BinaryWrite tabla("imagen")

Tabla.Close
Set Tabla = nothing
Conn.Close
Set Conn = nothing

Response.End
Response.Flush
%>

En caso de no contar con la base de datos de imagenes, continua leyendo el tip....

Favor de crear:
A.-) Una base de datos (Bd_Banners.mdb)
B.-) Una tabla (catalogo)
C.-) Un campo en esa tabla 'imagen' tipo 'OLE Object'
D.-) Ubica donde estan los archivos .jpg que utilizarás en el intercambio de banners.

Crea el siguiente código (crear_catalogo_de_banners.asp)...