<%@ 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")
User_ID = Request("User_ID")
Action = Request("Action")
If Banner_ID = "" Then
Response.Redirect("default.asp")
End If
%>
<% If Action <> "Delete" Then %>
<%
Set ConnBannerStats = Server.CreateObject("ADODB.Connection")
Set CmdViewBanner = Server.CreateObject("ADODB.Recordset")
ConnBannerStats.Open BannerConnectionString
SQL = "SELECT Banners.* FROM Banners WHERE (Banner_ID = " & Banner_ID & ")"
CmdViewBanner.Open SQL, ConnBannerStats
%>
<% =App_Name %>
>
Return to Main Screen
ARE YOU SURE YOU WANT TO DELETE THE STATISTICS FOR THIS BANNER ?
YOU WILL NOT BE ABLE TO RECOVER THIS INFORMATION ONCE IT IS DELETED.
"<% =CmdViewBanner("Banner_Name") %>"
Yes / manage_banners.asp?User_ID=<% =User_ID %><% End If %><% If User_ID = "" Then %>default.asp<% End If %>">No
<% ElseIf Action = "Delete" Then %>
<%
Set ConnBannerStats = Server.CreateObject("ADODB.Connection")
Set CmdDeleteBannerStats = Server.CreateObject("ADODB.Recordset")
ConnBannerStats.Open BannerConnectionString
SQL = "DELETE FROM Banner_Stats WHERE (Banner_ID = " & Banner_ID & ")"
CmdDeleteBannerStats.Open SQL, ConnBannerStats, 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) %>
<% If User_ID <> "" Then %>
<% Response.Redirect ("manage_banners.asp?User_ID=" & User_ID) %>
<% ElseIf User_ID = "" Then %>
<% Response.Redirect ("default.asp") %>
<% End If %>
<% End If %>