<% Se ssion("ErrorMsg") = "" Set Upload = Server.CreateObject("Persits.Upload") On Error Resume Next Upload.OverwriteFiles = False Upload.Save "c:\Temp" ' Temp directory that stores uploaded files If Err <> 0 Then Session("ErrorMsg") = Err.Description Else Session("Count") = Session("Count") + 1 Session("arrFiles").Add Session("Count"), CStr(Upload.Files(1).Path) End If Response.Redirect "Attachments.asp" %>