Selam , Kodlarin bukadar olmamasi lazim ama yinede verdigin kodlara göre sadece en bastaki Smart objesini degistirerek dene yani söyle ;

Set Upload = Server.CreateObject("Persits.Upload")
Upload.Upload
Upload.Save

Set File1 = Upload.Files("file1")
If Not File1.FileName="" Then
imagename = erman
aya = "."

For Each File in Upload.Files
aro = RIGHT(File.FileName,3)
arox = RIGHT(File.FileName,4)
aroxx = RIGHT(File.FileName,5)
aroo = File.Size
next