<%@ 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" %>
<%
Banner_ID = Request("Banner_ID")
If Banner_ID = "" Then
Response.Redirect("default.asp")
End If
Action = Request("Action")
%>
<% If Action <> "Delete" Then %>
<%
Set ConnBannerSystem = Server.CreateObject("ADODB.Connection")
Set CmdViewBanner = Server.CreateObject("ADODB.Recordset")
ConnBannerSystem.Open BannerConnectionString
SQL = "SELECT Banners.* FROM Banners WHERE (Banner_ID = " & Banner_ID & ")"
CmdViewBanner.Open SQL, ConnBannerSystem
%>
<% =App_Name %>
>
Return to Main Screen
ARE YOU SURE YOU WANT TO DELETE THIS BANNER ?
"<% =CmdViewBanner("Banner_Name") %>"
Yes
/ No
<% Else %>
<%
Set ConnBannerSystem = Server.CreateObject("ADODB.Connection")
Set CmdDeleteBanner = Server.CreateObject("ADODB.Recordset")
ConnBannerSystem.Open BannerConnectionString
SQL = "DELETE FROM Banners WHERE (Banner_ID = " & Banner_ID & ")"
CmdDeleteBanner.Open SQL, ConnBannerSystem, 0, 1
Set ConnBannerSystem = Server.CreateObject("ADODB.Connection")
Set CmdDeleteBannerStats = Server.CreateObject("ADODB.Recordset")
ConnBannerSystem.Open BannerConnectionString
SQL = "DELETE FROM Banner_Stats WHERE (Banner_ID = " & Banner_ID & ")"
CmdDeleteBannerStats.Open SQL, ConnBannerSystem, 0, 1
%>
<%
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("default.asp") %>
<% End If %>