Intercambio de imagenes

[vgaray]

<!--METADATA TYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library"
-->
<%
ReDim Listado_de_imagenes(4096) 'Valor arbitrario para leer hasta 4096 archivos .jpg

Dir = "./imagenes" 'Directorio donde se ubican los archivos
ext_archivos = ".JPG" 'extension de imagenes a buscar
Bd = "Bd_Banners" 'Base de datos de banners
tabla1 = "Catalogo" 'Tabla en la base de datos que contendrá el listado de imagenes

Listado_imagenes ext_archivos,Dir 'leer el directorio de imagenes y llenar un arreglo con la lista

Llenar_bd_OLE Bd,tabla1,dir 'Usando el contenido de cada imagen... llenar el catalogo
%>
<%
Function Listado_imagenes(extension,dir) dir2 = Server.MapPath(dir)
Set objFSO = CreateObject("Scripting.FileSystemObject&quot ;)
Set objFolder = objFSO.GetFolder(dir2)
Set objFilesCollection = objFolder.Files
i = 0
For Each objFile in objFilesCollection
if UCase(right(objFile.Name,4)) = extension then
Listado_de_imagenes(i) = objFile.Name
i = i + 1
end if
Next
ReDim Preserve Listado_de_imagenes(i-1)
End Function
%>
<%
Function Llenar_bd_OLE(nombre_bd,tabla1,dir)
set connVB = server.createobject("ADODB.Connection")
set Tabla = server.CreateObject("ADODB.Recordset")
connVB.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(nombre_bd)
Tabla.open "Select * from " & tabla1 ,connVB,3,2
For i = 0 to (UBound(Listado_de_imagenes)-1)
tabla.AddNew
tabla("imagen") = Leer_imagen_para_OLE(dir,Listado_de_imagenes(i))
Tabla.Update
Next
tabla.close
Set tabla = nothing
connVB.close
Set connVB = nothing
End Function
%>
<%
Function Leer_imagen_para_OLE(dir,imagen)
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile Server.MapPath(dir & "/" & imagen)
Leer_imagen_para_OLE = objStream.Read
objStream.Close
Set objStream = Nothing
%>

---------------------
Tan libre como gratuito!!!