<%@ 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" %>
<%
User_ID = Request("User_ID")
If User_ID = "" Then
Response.Redirect("default.asp")
End If
Action = Request("Action")
If Action <> "Delete" Then
Set ConnBannerSystem = Server.CreateObject("ADODB.Connection")
Set CmdViewUser = Server.CreateObject("ADODB.Recordset")
ConnBannerSystem.Open BannerConnectionString
SQL = "SELECT Banner_Users.* FROM Banner_Users WHERE (User_ID = " & User_ID & ")"
CmdViewUser.Open SQL, ConnBannerSystem
%>
<% =App_Name %>
>
Return to Main Screen
ARE YOU SURE YOU WANT TO DELETE THIS USER ?<% If CmdViewUser("First_Name") <> "" And CmdViewUser("Last_Name") <> "" Then %>
"<%=CmdViewUser("First_Name")%> <%=CmdViewUser("Last_Name")%>"<% End If %>
Yes
/ No
<%
Else
Set ConnBanner = Server.CreateObject("ADODB.Connection")
ConnBanner.Open BannerConnectionString
Set CmdBannerTemp = Server.CreateObject("ADODB.Command")
Set CmdAdCount = Server.CreateObject("ADODB.Recordset")
CmdBannerTemp.CommandText = "SELECT COUNT(Banner_ID) AS Banner_Count FROM Banners WHERE (User_ID = " & User_ID & ")"
CmdBannerTemp.CommandType = 1
Set CmdBannerTemp.ActiveConnection = ConnBanner
CmdAdCount.Open CmdBannerTemp, , 0, 1
Banner_Count = CmdAdCount("Banner_Count")
If Banner_Count = 0 Then
Set ConnBannerSystem = Server.CreateObject("ADODB.Connection")
Set CmdDeleteUser = Server.CreateObject("ADODB.Recordset")
ConnBannerSystem.Open BannerConnectionString
SQL = "DELETE FROM Banner_Users WHERE (User_ID = " & User_ID & ")"
CmdDeleteUser.Open SQL, ConnBannerSystem, 0, 1
ConnBannerSystem.Close
Set ConnBannerSystem = Nothing
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") %>
<% Else %>
<% WhichMenu = "admin" %>
Return to Admin Area.
You cannot
delete this user because they have Banners(s) in the system.
You must delete the Banners first before you
can delete this user.
Click here to view this
user's Banners(s)
<%
End If
End If
%>