<% If Trim(Request.QueryString("imgupld")) = "yes" Then Set Upload = Server.CreateObject("Persits.Upload.1") Upload.ProgressID = Request.QueryString("PID") msg = "" Upload.SaveVirtual strDir&"images" For each File in Upload.Files FName = fileExt(File.Path) File.SaveAsVirtual strDir&"images"&"/"&FName msg = msg&"" & FName & ": was uploaded successfully!
" Next Response.Redirect "mail.asp?action=image&msg="&msg Upload.Close Set Upload = Nothing Elseif Trim(Request.QueryString("deleteimg")) = "yes" Then Set objFSO = CreateObject("Scripting.FileSystemObject") For each strItem in Request.Form objFSO.DeleteFile strSaveFile&"\"&Request.Form(strItem).Item Next Response.Redirect "mail.asp?action=image" objFSO.Close Set objFSO = Nothing End If %>