<%@ 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" %>
<%
Zone_ID = Request("Zone_ID")
If Zone_ID = "" Then
Response.Redirect("default.asp")
End If
Action = Request("Action")
%>
<% If Action <> "Delete" Then %>
<%
Set ConnBannerSystem = Server.CreateObject("ADODB.Connection")
Set CmdViewZone = Server.CreateObject("ADODB.Recordset")
ConnBannerSystem.Open BannerConnectionString
SQL = "SELECT Banner_Zones.* FROM Banner_Zones WHERE (Zone_ID = " & Zone_ID & ")"
CmdViewZone.Open SQL, ConnBannerSystem
%>
<% =App_Name %>
>
Return to Main Screen
ARE YOU SURE YOU WANT TO DELETE THIS ZONE ?
"<% =CmdViewZone("Zone_Name") %>"
Yes
/ No
<% Else %>
<%
Set ConnBannerSystem = Server.CreateObject("ADODB.Connection")
Set CmdDeleteZone = Server.CreateObject("ADODB.Recordset")
ConnBannerSystem.Open BannerConnectionString
SQL = "DELETE FROM Banner_Zones WHERE (Zone_ID = " & Zone_ID & ")"
CmdDeleteZone.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) %>
<%
Application.Lock
Application("BannerZone" & Zone_ID) = ""
Application("BannerZone" & Zone_ID & "_Cycle") = ""
Application.Unlock
%>
<% Response.Redirect("zones.asp") %>
<% End If %>