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