<%
Response.CacheControl = "no-cache"
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
%>
Insert an Image
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"))
If s_ServerName = "batman" or s_ServerName = "webdev" or s_ServerName = "demo.ontheweb.co.za" then
'arr_Temp = Split(LCase(Request.ServerVariables("SCRIPT_NAME")), "secure/")
's_HTTP = "http://"& s_ServerName & arr_Temp(0) & "images/content/"
s_HTTP = "http://"& s_ServerName & "/4x4trails/images/content/"
Else
s_HTTP = "http://"& s_ServerName & "/images/content/"
End If
for each varFile in fileCollection
counter = counter + 1
%>
<%
Next
Set fileCollection = Nothing
Set folderSub = Nothing
Set fso = Nothing
%>
<%
Set UploadProgress = Nothing
%>
