<%@ LANGUAGE="VBSCRIPT" %>
<% Response.Buffer = "True" %>
<%
'***********************************************************************
' System : ASPBanner Unlimited
' Author : Christopher Williams of CJWSoft www.CJWSoft.com
'
' COPYRIGHT NOTICE
'
' See attached Software License Agreement
'
' (c) Copyright 2000 - 2003 by CJWSoft. All rights reserved
'***********************************************************************
%>
<% CHECKFOR = "Admin" %>
<%
Existing_File = Request("Existing_File")
If Existing_File = "" Then
Response.Redirect("upload_form.asp")
End If
Action = Request("Action")
%>
<% If Action <> "Delete" Then %>
<% =App_Name %>
>
Return to Main Screen
ARE YOU SURE YOU WANT TO DELETE THIS FILE ?
"<% =Existing_File %>"
Yes
/ No
<% Else %>
<%
Function FileFound(FileName)
Dim FileObj
FileFound = True
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set FileObj = fs.OpenTextFile(FileName, 1, False, 0)
If Err.Number <> 0 Then
Err.Clear
FileFound = False
Exit Function
End If
FileObj.Close
Set fs = Nothing
End Function
ImagePath = Server.MapPath("images\banners") & "\"
Set objFile=Server.CreateObject("Scripting.FileSystemObject")
If FileFound(ImagePath & Existing_File) Then
objFile.DeleteFile (ImagePath & Existing_File)
End IF
%>
<%
Sub TLdelaySec(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
End Sub
%>
<% TLdelaySec(2) %>
<% Response.Redirect("upload_form.asp") %>
<% End If %>