<% Response.CacheControl = "no-cache" Response.Expires = 0 If Request.QueryString("DeleteFile") <> Empty Then DeleteFile Server.MapPath("../../images/content/" & Request.QueryString("DeleteFile")) Response.Redirect "GetImage.asp?buster=" & Server.URLEncode(Now()) End If If Request.QueryString("PID") <> Empty then Set Upload = Server.CreateObject("Persits.Upload") Upload.ProgressID = Request.QueryString("PID") '----------------------------------------------------------------- ' Capture uploaded file. Save returns the number of files uploaded '----------------------------------------------------------------- Count = Upload.Save(server.mappath("../../images/content")) If Count = 0 Then set Upload = Nothing Response.write(""& VBCRLF) Response.write(""& VBCRLF) Response.End end if Set ImageFile = Upload.Files(1) if ImageFile.ImageType <> "JPG" and ImageFile.ImageType <> "GIF" then strPath = ImageFile.Path set ImageFile = Nothing set Upload = Nothing Response.write(""& VBCRLF) Response.write(""& VBCRLF) DeleteFile strPath Response.End end if set ImageFile = Nothing set Upload = Nothing Response.Redirect("GetImage.asp") end if Set UploadProgress = Server.CreateObject("Persits.UploadProgress") PID = "PID=" & UploadProgress.CreateProgressID() barref = "../UploadMonitor/FRAMEBAR.ASP?to=10&"& PID %>

Add a JPG Image

Select File:

Available Images

<% Set fso = server.createobject("Scripting.FileSystemObject") Set folderSub = fso.GetFolder(server.mappath("..\..\images\content")) set fileCollection = folderSub.Files counter = 0 s_ServerName = LCase(Request.ServerVariables("SERVER_NAME")) tempArr = split(LCase(request.servervariables("PATH_INFO")), "/secure/") strFileDirectory = "http://"& request.servervariables("SERVER_NAME") & tempArr(0) & "/images/content/" %> <% for each varFile in fileCollection counter = counter + 1 %> <% Next %> ','right');"> <% Set fileCollection = Nothing Set folderSub = Nothing Set fso = Nothing %>

<% Set UploadProgress = Nothing %>