freeaspupload y upload.form

[zacktagnan]

A ver si comprendes esto. Sino como le dije a moncherote, si me pasas un email, te mando una prueba para que lo veas con más detenimiento

Ahí va el mazacote de código que va dentro de un archivo que tengo para insertar datos. Se suben dos imágenes para el nuevo registro que se indican dentro de campos de imagen del formulario llamados [promo_port] y [promo_pgral]. Él nuevo nombre de las imágenes subidas, siempre que se haya insertado algo, se construye entre otras cosas con lo insertado en otro campo de texto del formulario llamado [promo_inic]:


for each fileKey in Upload.UploadedFiles.keys
' ESPECIFICANDO TAMAÑO DE CADA ARCHIVO SUBIDO - EN bytes Ó KB
Dim tamanioArchivoSubido
tamanioArchivoSubido = Upload.UploadedFiles(fileKey).Length 'LLEGA EN bytes
IF (tamanioArchivoSubido > 1024) THEN
tamanioArchivoSubido = tamanioArchivoSubido / 1024
tamanioArchivoSubido = formatnumber(tamanioArchivoSubido,2) 'DOS DECIMALES
tamanioArchivoSubido = tamanioArchivoSubido & " KB"
ELSE
tamanioArchivoSubido = tamanioArchivoSubido & " bytes"
END IF
' FIN DE ESPECIFICANDO TAMAÑO DE CADA ARCHIVO SUBIDO - EN bytes Ó KB

'CADA NOMBRE-DE-ARCHIVO-SUBIDO, nomArchivo.ext, SE SEPARA ESTE EN DOS PARTES
'LA PARTE DEL NOMBRE Y LA PARTE DEL PTO-EXTENSIÓN
nomArchivoSubido = Upload.UploadedFiles(fileKey).FileName
parteNom = Left(nomArchivoSubido, InStr(nomArchivoSubido, ".")-1)
ptoExt = Right(nomArchivoSubido, Len(nomArchivoSubido)-(InStrRev(nomArchivoSubido, ".")-1))

'SI EL CAMPO DE SUBIDA INCLUYE UN ARCHIVO, ES DECIR, NO ESTÁ VACÍO...
IF (Len(nomArchivoSubido) > 0) THEN

'SI UNO DE LOS NOMBRE DE LOS CAMPOS DE ARCHIVO TIENE UNA LETRA MAYÚSCULA,
' COMO promo_pGral, LA LÍNEA Call Fich_RENOM.Copy(...) FALLA
NombreAnterior = nomArchivoSubido
If (fileKey = "promo_port") Then' imagen para la Portada
NombreNuevo = Upload.Form("promo_inic") & "_portada" & ptoExt
vpromo_port = NombreNuevo
ElseIf (fileKey = "promo_pgral") Then' imagen para el Plano
NombreNuevo = Upload.Form("promo_inic") & "_planGral" & ptoExt
vpromo_pgral = NombreNuevo
End If

if (Upload.Form("promo_tiprom") <> "2") then''>>MÁS IMGS SI Suelta ó 2ªMano
If (fileKey = "promo_img1") Then' imagen para la Imagen 1
NombreNuevo = Upload.Form("promo_inic") & "_1" & ptoExt
vpromo_img1 = NombreNuevo
ElseIf (fileKey = "promo_img2") Then' imagen para la Imagen 2
NombreNuevo = Upload.Form("promo_inic") & "_2" & ptoExt
vpromo_img2 = NombreNuevo
ElseIf (fileKey = "promo_img3") Then' imagen para la Imagen 3
NombreNuevo = Upload.Form("promo_inic") & "_3" & ptoExt
vpromo_img3 = NombreNuevo
ElseIf (fileKey = "promo_img4") Then' imagen para la Imagen 4
NombreNuevo = Upload.Form("promo_inic") & "_4" & ptoExt
vpromo_img4 = NombreNuevo
End If
end if''>>FIN DE - MÁS IMGS SI Suelta ó 2ªMano

Set FSO_RENOM = Server.CreateObject("Scripting.FileSystemObject")
Set Fich_RENOM = FSO_RENOM.GetFile(Server.MapPath("..\imags\promosV iv\" & NombreAnterior))
Call Fich_RENOM.Copy(Server.MapPath("..\imags\promosViv \" & NombreNuevo))

Set Ruta_y_Nom = FSO_RENOM.GetFile(Server.MapPath("..\imags\promosV iv\" & NombreNuevo))
rutaBarra = "\"
if InStr(Ruta_y_Nom, rutaBarra) = 0 then rutaBarra = "/"
nomArchivoSubido = Right(Ruta_y_Nom, Len(Ruta_y_Nom)-InStrRev(Ruta_y_Nom, rutaBarra))

Call Fich_RENOM.Delete()
Set Fich_RENOM = Nothing
Set FSO_RENOM = Nothing
Set Ruta_y_Nom = Nothing
Set Ruta_y_Nom = Nothing

iNum = iNum + 1
END IF

GuardArchivos = GuardArchivos & nomArchivoSubido & " ["&parteNom & ptoExt&"] " & " (" & tamanioArchivoSubido & ");<br />"
next


A ver si te sale algo...

Saludos,

zacktagnan.
===========================================