<%@ LANGUAGE="VBSCRIPT" %>
<% Response.Buffer = "True" %>
<%
'***********************************************************************
' System : ASPBanner
' Author : Christopher Williams of CJWSoft www.CJWSoft.com
'
' COPYRIGHT NOTICE
'
' See attached Software License Agreement
'
' (c) Copyright 2000 - 2001 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 ConnPasswords = Server.CreateObject("ADODB.Connection")
Set CmdViewUser = Server.CreateObject("ADODB.Recordset")
ConnPasswords.Open BannerConnectionString
SQL = "SELECT Banner_Users.* FROM Banner_Users WHERE (User_ID = " & User_ID & ")"
CmdViewUser.Open SQL, ConnPasswords
%>
<% =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 cmdTemp = Server.CreateObject("ADODB.Command")
Set CmdAdCount = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT COUNT(Banner_ID) AS Banner_Count FROM Banners WHERE (User_ID = " & User_ID & ")"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = ConnBanner
CmdAdCount.Open cmdTemp, , 0, 1
Banner_Count = CmdAdCount("Banner_Count")
%>
<% If Banner_Count = 0 Then %>
<%
Set ConnPasswords = Server.CreateObject("ADODB.Connection")
Set CmdDeleteUser = Server.CreateObject("ADODB.Recordset")
ConnPasswords.Open BannerConnectionString
SQL = "DELETE FROM Banner_Users WHERE (User_ID = " & User_ID & ")"
CmdDeleteUser.Open SQL, ConnPasswords, 0, 1
ConnPasswords.Close
Set ConnPasswords = 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 %>