<% Response.CacheControl = "no-cache" Response.Expires = -1 Response.Buffer = True %> <% Call Timeout(1) Server.ScriptTimeout = 80000 if Request("Posted") = "Y" then Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject") For i = 1 to CLng(Request("LoopCounter")) strDeleteFile = Request("DeleteFile_" & CStr(i)) if strDeleteFile <> "" then s_FilePath = Server.MapPath("temp") & "\" & strDeleteFile DeleteFile s_FilePath end if Next Set objFileSystem = Nothing Response.Redirect "Files.asp?buster=" & Server.URLEncode(Now()) end if strFileUploadServer = Request.ServerVariables("SERVER_NAME") arrTMP = Split(LCase(Request.ServerVariables("SCRIPT_NAME")), "secure/") strFileUploadScript = arrTMP(0) & "secure/FileLibrary/" %> Website Administration

Upload Files

Existing Unassigned Files
<% Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject") Set objMainFolder = objFileSystem.GetFolder(server.mappath("temp")) if objMainFolder.Files.Count < 1 then %>

There are currently no files awaiting assignment.

<% else %>
<% i_LoopCounter = 0 For Each objFile in objMainFolder.Files i_LoopCounter = i_LoopCounter + 1 s_FileName = objFile.Name %> <% Next %>
File

<%=Server.HTMLEncode(s_FileName)%> 

<% end if Set objMainFolder = Nothing Set objFileSystem = Nothing %>