Conseguido, hay va el codigo por si le sirve ha alguien
Cita:
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")