<%
Set Upload =
Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False 'Generates unique
names
Upload.SetMaxSize 1048576 'Truncates files above
1MB
Upload.Save "c:\temp" 'Needs to call
save before further processing
For Each File in Upload.Files
File.copy
"c:\temp\" & File.extractFileName 'copies uploaded files to new
files with prefix "new_"
File.delete
'Deletes the uploaded files in c:\temp folder
Next
For Each Item in Upload.Form
Response.Write
"Name: " & Item.getName
Response.Write
", Value: " & Item.getValue & "<BR>"
Next