<%@ LANGUAGE="VBSCRIPT" %> <% '*********************************************************************** ' 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" %> <% Action = Request("Action") User_ID = Request("User_ID") %> <% =App_Name %> > <% ErrorMessage = Request("ErrorMessage") If ErrorMessage <> "" Then %> <% End If If Action <> "New_User" Then Set ConnBannerSystem = Server.CreateObject("ADODB.Connection") Set CmdEditUser = Server.CreateObject("ADODB.Recordset") ConnBannerSystem.Open BannerConnectionString SQL = "SELECT Banner_Users.* FROM Banner_Users WHERE (User_ID = " & User_ID & ")" CmdEditUser.Open SQL, ConnBannerSystem Expiration_Date =CmdEditUser("Expiration_Date") If IsEmpty(Expiration_Date) Or IsNull(Expiration_Date) Or Expiration_Date ="" Then Expiration_Date = "" Else Expiration_Date = month(Expiration_Date) & "/" & day(Expiration_Date) & "/" & year(Expiration_Date) End If UserExpired = "No" If Expiration_Date <> "" Then If CDATE(Expiration_Date) <= DATE Then UserExpired = "Yes" End If End If End If If ErrorMessage <> "" Then First_Name = Request("First_Name") Last_Name = Request("Last_Name") Company_Name = Request("Company_Name") Address = Request("Address") City = Request("City") State_Province = Request("State_Province") Zipcode_Postal_Code = Request("Zipcode_Postal_Code") Email = Request("Email") Phone = Request("Phone") Custom1 = Request("Custom1") Custom2 = Request("Custom2") Custom3 = Request("Custom3") Custom4 = Request("Custom4") Custom5 = Request("Custom5") Custom6 = Request("Custom6") Username = Request("Username") Password = Request("Password") Notes = Request("Notes") Else First_Name = CmdEditUser("First_Name") Last_Name = CmdEditUser("Last_Name") Company_Name = CmdEditUser("Company_Name") Address = CmdEditUser("Address") City = CmdEditUser("City") State_Province = CmdEditUser("State_Province") Zipcode_Postal_Code = CmdEditUser("Zipcode_Postal_Code") Email = CmdEditUser("Email") Phone = CmdEditUser("Phone") Custom1 = CmdEditUser("Custom1") Custom2 = CmdEditUser("Custom2") Custom3 = CmdEditUser("Custom3") Custom4 = CmdEditUser("Custom4") Custom5 = CmdEditUser("Custom5") Custom6 = CmdEditUser("Custom6") Username = CmdEditUser("Username") Password = CmdEditUser("Password") Notes = CmdEditUser("Notes") End If %>
<% If Action = "New_User" Then %> <% Else %> <% End If %>

     Return to Main Screen

<% If Action <> "New_User" Then %> <% End If %> <% If Application("User_Custom1_Used") = True Then %> <% End If %> <% If Application("User_Custom2_Used") = True Then %> <% End If %> <% If Application("User_Custom3_Used") = True Then %> <% End If %> <% If Application("User_Custom4_Used") = True Then %> <% End If %> <% If Application("User_Custom5_Used") = True Then %> <% End If %> <% If Application("User_Custom6_Used") = True Then %> <% End If %> <% If Action <> "New_User" Then %> <% End If%>
This user has logged in a total of <% If CmdEditUser("Counter") = "" or IsNull(CmdEditUser("Counter")) Then Response.Write("0") Else Response.Write(CmdEditUser("Counter")) End If %> time(s). Reset Count
Last Access: <%=CmdEditUser("Last_Access")%>
Red is Required
First Name
Last Name
Company Name
Address
City
State_Province
Zipcode_Postal_Code
Email
Phone
<% =Application("User_Custom1_Name") %>
<% =Application("User_Custom2_Name") %>
<% =Application("User_Custom3_Name") %>
<% =Application("User_Custom4_Name") %>
<% =Application("User_Custom5_Name") %>
<% =Application("User_Custom6_Name") %>
Username
Password
Notes
Active <% Response.Write (" checked")%><% End If %>>Uncheck this to disable a User Account.
Admin <% Response.Write (" checked")%><% End If %>>Use caution unchecking this If you are an admin.
<% If Action <> "New_User" Then %>         ">DELETE THIS USER <% End If %>
<% If Action = "New_User" Then CmdEditUser.Close Set CmdEditUser = Nothing ConnBannerSystem.Close Set ConnBannerSystem = Nothing End If %>