Tenías razón Shiryu_Libra con un poco de tranquilidad por fin he conseguido adaptarlo para subir 2, o los archivos que quiera a la vez, lo único que he hecho es llamarle fichero2 al segundo campo file el editarficha.asp y en registrarficha.asp poner esto:
Código PHP:
<!--#include file="includes/xelupload.asp"-->
<%
id = session("id")
'Primero subimos el fichero:'
Dim up, obj, obj2
set up = new xelUpload
up.Upload()
set obj = up.Ficheros("fichero")
nombreFoto=obj.nombre
obj.Guardar(Server.MapPath("caratulas/"))
set obj2 = up.Ficheros("fichero2")
nombreFoto2=obj2.nombre
obj2.Guardar(Server.MapPath("miniaturas/"))
%>
Y al final esto:
Código PHP:
<%if (len(nombreFoto) > 0) then
tabla.fields("Foto") = nombreFoto
end if
if (len(nombreFoto2) > 0) then
tabla.fields("Miniatura") = nombreFoto2
end if
tabla.update
tabla.close
conexion.close
set up = nothing
Set tabla = Nothing
Set conexion = Nothing %>
Ahora, como no, tengo otro problema y es que estoy intentando perfeccionarlo para que no te obligue a editar siempre las 2 fotos, es decir que te deje editar sólo la primera, sólo la segunda o ninguna de ellas.
De momento sólo he conseguido que me deje editar la primera sin tener que editar la segunda pero aunque estoy seguro de que será una tontería me estoy atascando con los if, los else las declaraciones de variables. Ahora lo tengo así:
Código PHP:
<!--#include file="includes/xelupload.asp"-->
<%
id = session("id")
'Primero subimos el fichero:'
Dim up, obj, obj2
set up = new xelUpload
up.Upload()
set obj = up.Ficheros("fichero")
nombreFoto=obj.nombre
'Comprobamos si nos han subido el primer fichero:'
if (len(nombreFoto) > 0) then
obj.Guardar(Server.MapPath("caratulas/"))
set obj2 = up.Ficheros("fichero2")
'Comprobamos si nos han subido el segundo fichero:'
nombreFoto2=obj2.nombre
else if (len(nombreFoto2) > 0) then
obj2.Guardar(Server.MapPath("miniaturas/"))
end if
end if
%>
Si véis el error muy claro y me lo podéis decir os lo agradecería sino seguiré dandole vueltas mañana a ver si doy con la forma de hacerlo bien.