Galeria de Imagenes

[armandoweb]

Amigos:

Entiendo que nadie se pondrá a ver semejante cantidad de código, por eso solo les consulto como subir mas de una imagen a un registro en una base de datos. Con este código subo solo una por registro y mi necesidad es subir varias para el mismo registro. Aqui está el código más estrecho...

Set Master = Server.CreateObject("ADODB.Connection")
Master.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "fpdb/base.mdb")

path = "/images/images/"

Dim Uploader, File
Set Uploader = New FileUploader

Uploader.Upload()

If Uploader.Files.Count <> 0 Then
fecha = Uploader.form("fecha")
cliente = Uploader.form("cliente")
tema = Uploader.form("tema")
descripcion = Uploader.form("descripcion")
alto = Uploader.form("alto")
ancho = Uploader.form("ancho")
archivo = Uploader.form("imagen")
archivo = replace(archivo, "/", "\")
archivo = right(archivo, len(archivo) - instrrev(archivo, "\"))
archivo = lcase(archivo)
archivo = replace(archivo, " ", "_")

For Each File In Uploader.Files.Items
File.SaveToDisk Server.MapPath(path), archivo
Next

sSQL = "insert into galerias(imagen,fecha,cliente,tema,alto,ancho) values ('" & archivo & "', '" & fecha & "', '" & cliente & "', '" & tema & "', '" & alto & "', '" & ancho & "')"
Master.Execute(sSQL)

response.Redirect("ok.asp")
end if
%>

Si pueden orientarme como modificarlo para subir mas de una imagen se los agradecere muchisimo.
Saludos y gracias desde ya.

ARIEL