Ayuda ASPupload

[nene16803]

Hola, estoy intentando recoger el nombre de 3 imagenes que subo al servidor con

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload= Upload.Save(Server.MapPath("upload/"))

Le envio del formulario los nombres de file 1, 2 , 3
pero no logro recoger los nombres de las imagenes para almacenarlas.
Lo he intentado con
rs("file1")=upload.form("file1") y con
file1=Request.form("file1")
pero me da error, el primero por Binary ( Tengo permisos para subir toda la carga que quiera) y el segundo por que no debe funcionar con este componente.

Alguien me puede ayudar.

Saludos

[alpe2000]

Yo lo haría así:

For Each file in Upload.Files

'Extraería el nombre con:
file.extractfilename

Next

Prueba

Suerte !!

[nene16803]

me da un error

Microsoft VBScript runtime error '800a01a8'

Object required: ''

[nene16803]

Conseguido, hay va el codigo por si le sirve ha alguien

Set Upload = Server.CreateObject("Persits.Upload.1")
Path = "d:\ruta\......\upload\" 'Ruta fisica del servidor

Count = Upload.Save(Path)


Set File=Upload.Files("FILE1")

For Each File in Upload.Files
If File.ImageType <> "UNKNOWN" Then Set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.Open( File.Path )
jpeg.Width = 425 'Ancho que quieras
jpeg.Height = 300 'Alto que quieras
SavePath = Path & "\" & nombre & "" 'Puedes utilizar una variable
If UCase(Right(SavePath, 3)) <> "JPG" Then
SavePath = SavePath & ".jpg"
End If
jpeg.Save SavePath
Next

'Set File=Upload.Files("FILE2") lo mismo camb
'Set File=Upload.Files("FILE3")