Holas, aun sigo el problema de subir varias imagenes con xelupload, he puesto varios File con el mismo nombre, subo una imagen y me funciona pero cuando subo mas de una me sale el siguiente error:
Microsoft VBScript runtime error '800a01c9'
This key is already associated with an element of this collection
/air/xelupload.asp, line 106
Aqui pongo el codigo q use, ojala q me puedan ayudar:
////////////////////////////////////////////////////////////////////////////////
<%
'pagina.asp
%>
<!--#include file="xelupload.asp"-->
<%
Dim oConn, rs, SQL
Dim objUpload, objFich, strNombre, strEdad
Dim maxtam, strNombreFichero
'nuestro tamaño máximo
maxtam = 15 * 1024
set objUpload = new xelUpload
objUpload.Upload()
For each fich in up.Ficheros.Items
'recuperamos los campos usuario y edad
strNombre = objUpload.Form("usuario")
strEdad = objUpload.Form("edad")
'si no ha subido ningún fichero, le avisamos
if objUpload.Ficheros.Count = 0 then
Response.Write("¡No has subido ningún fichero!")
else
'accedemos al fichero por su nombre en el formulario
set objFich = objUpload.Ficheros("imagen")
if objFich.Tamano <= maxtam and objFich.TipoContenido = "image/gif" then
'Es el fichero correcto, vamos a guardarlo en todas partes.
'Primero, en nuestro directorio actual con el nombre que tiene
objFich.Guardar Server.MapPath(".")
'Ahora, en el directorio upload, con la fecha de hoy como nombre
strNombreFichero = Day(Date) & Month(Date) & Year(Date)
objFich.GuardarComo strNombreFichero, Server.MapPath("upload")
'Ahora nos conectamos a una base de datos
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
'Nos conectamos con ODBC sin DSN, suponiendo que la base
'de datos está en este mismo directorio
' oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" _
' & "DBQ=" & Server.MapPath("usuarios.mdb")
' SQL = "SELECT * FROM usuarios"
'Abrimos el Recordset: el 0 es el cursor adForwardOnly
' y el 2 es el cerrojo adLockPessimistic
' rs.Open SQL, oConn, 0, 2
'Añadimos un nuevo registro
' rs.AddNew
' rs.Fields("Nombre") = strNombre
' rs.Fields("Edad") = strEdad
' rs.Fields("NombreFichero") = objFich.Nombre
'Llamamos a GuardarBD pasandole el campo correspondiente!!!
' objFich.GuardarBD rs.Fields("Imagen")
'Guardamos el nuevo registro
' rs.Update
'y limpiamos todo que vienen los padres
' rs.Close
' set rs = nothing
' oConn.Close
' set oConn = nothing
'¡Todo correcto!
Response.Write "Se ha añadido el nuevo usuario <b>" & strNombre & "</b>, " _
& "con el fichero " & objFich.Nombre & " de tamaño " & objFich.Tamano & "."
'Limpiamos nuestro xelUpload y el fichero
set oFich = nothing
set objUpload = nothing
else
'No era un fichero válido
Response.Write("No es un fichero aceptable. ")
Response.Write("Tiene que ser un fichero GIF de menos de 15k.")
end if
end if
Next
set objUpload = nothing
%>