Cambiar nombre de imagen AspUpload

[Mlora]

Prueba asi, a ver si funciona:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Path = "D:\XVRT\...\...\" '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 & "\NombreImagen" 'Puedes utilizar una variable
If UCase(Right(SavePath, 3)) <> "JPG" Then
SavePath = SavePath & ".jpg"
End If
jpeg.Save SavePath
Next
%>

Espero que sea de tu ayuda.
Un saludo.