<%
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