si ya sabes que solamente son 6 por subida
Cita: Dim objUpload, objFichero, Nombres(5)
objUpload.Upload()
'si teníamos <input type="file" name="imagen">
set objFichero = objUpload.Ficheros("imagen")
i=0
'recorremos todos:
for each objFichero in objUpload.Ficheros.Items
Nombres(i)=objFichero.Nombre
...
...
i=i+1
next
ya solo despues recorres el arreglo y guardas los datos en la base de datos; en caso de que sean mas de 6 las imagenes que puede subir al servidor el usuario
modifica el numero 5 en la definicion por 0
y dentro del for, anexale
Cita: REDIM PRESERVE Nombres(i)
Nombres(i)=objFichero.Nombre
espero te sirva de guia
anexo:
Referencia de los comandos de XELUPLOAD