Asp Clássico

AspUpload - Upload de Arquivos usando Asp 3.0

Server.ScriptTimeout = 9999
Set ObjetoUpload = Server.CreateObject("Persits.Upload")
ObjetoUpload.SetMaxSize 10000000, True
ObjetoUpload.OverwriteFiles = True
ObjetoUpload.Save
For Each File in ObjetoUpload.Files
fileName = File.FileName
File.SaveAs Server.MapPath("../../../imagens/temp/"&Session("id")&"/"&fileName)
Next