<%@ LANGUAGE="VBSCRIPT" %> <% '*********************************************************************** ' 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" %> <% =App_Name %> > <% If Request("Action") = "Save" Then %> <% Set ConnPasswords = Server.CreateObject("ADODB.Connection") Set CmdEditSettings = Server.CreateObject("ADODB.Recordset") ConnPasswords.Open BannerConnectionString SQL = "SELECT Banner_Config.* FROM Banner_Config Where ID = 1" CmdEditSettings.Open SQL, ConnPasswords, 1, 3 %> <% User_Custom1_Name = Request("User_Custom1_Name") if User_Custom1_Name="" THEN CmdEditSettings.Fields("User_Custom1_Name") = NULL Else CmdEditSettings.Fields("User_Custom1_Name") = User_Custom1_Name End If %> <% User_Custom1_Used = Request("User_Custom1_Used") if User_Custom1_Used="" THEN CmdEditSettings.Fields("User_Custom1_Used") = False Else CmdEditSettings.Fields("User_Custom1_Used") = User_Custom1_Used End If %> <% User_Custom2_Name = Request("User_Custom2_Name") if User_Custom2_Name="" THEN CmdEditSettings.Fields("User_Custom2_Name") = NULL Else CmdEditSettings.Fields("User_Custom2_Name") = User_Custom2_Name End If %> <% User_Custom2_Used = Request("User_Custom2_Used") if User_Custom2_Used="" THEN CmdEditSettings.Fields("User_Custom2_Used") = False Else CmdEditSettings.Fields("User_Custom2_Used") = User_Custom2_Used End If %> <% User_Custom3_Name = Request("User_Custom3_Name") if User_Custom3_Name="" THEN CmdEditSettings.Fields("User_Custom3_Name") = NULL Else CmdEditSettings.Fields("User_Custom3_Name") = User_Custom3_Name End If %> <% User_Custom3_Used = Request("User_Custom3_Used") if User_Custom3_Used="" THEN CmdEditSettings.Fields("User_Custom3_Used") = False Else CmdEditSettings.Fields("User_Custom3_Used") = User_Custom3_Used End If %> <% User_Custom4_Name = Request("User_Custom4_Name") if User_Custom4_Name="" THEN CmdEditSettings.Fields("User_Custom4_Name") = NULL Else CmdEditSettings.Fields("User_Custom4_Name") = User_Custom4_Name End If %> <% User_Custom4_Used = Request("User_Custom4_Used") if User_Custom4_Used="" THEN CmdEditSettings.Fields("User_Custom4_Used") = False Else CmdEditSettings.Fields("User_Custom4_Used") = User_Custom4_Used End If %> <% User_Custom5_Name = Request("User_Custom5_Name") if User_Custom5_Name="" THEN CmdEditSettings.Fields("User_Custom5_Name") = NULL Else CmdEditSettings.Fields("User_Custom5_Name") = User_Custom5_Name End If %> <% User_Custom5_Used = Request("User_Custom5_Used") if User_Custom5_Used="" THEN CmdEditSettings.Fields("User_Custom5_Used") = False Else CmdEditSettings.Fields("User_Custom5_Used") = User_Custom5_Used End If %> <% User_Custom6_Name = Request("User_Custom6_Name") if User_Custom6_Name="" THEN CmdEditSettings.Fields("User_Custom6_Name") = NULL Else CmdEditSettings.Fields("User_Custom6_Name") = User_Custom6_Name End If %> <% User_Custom6_Used = Request("User_Custom6_Used") if User_Custom6_Used="" THEN CmdEditSettings.Fields("User_Custom6_Used") = False Else CmdEditSettings.Fields("User_Custom6_Used") = User_Custom6_Used End If %> <% EmailNotification = Request("EmailNotification") if EmailNotification="" THEN CmdEditSettings.Fields("EmailNotification") = NULL Else CmdEditSettings.Fields("EmailNotification") = EmailNotification End If %> <% JMAIL_ServerAddress = Request("JMAIL_ServerAddress") if JMAIL_ServerAddress="" THEN CmdEditSettings.Fields("JMAIL_ServerAddress") = NULL Else CmdEditSettings.Fields("JMAIL_ServerAddress") = JMAIL_ServerAddress End If %> <% AspEmail_MailHost = Request("AspEmail_MailHost") if AspEmail_MailHost="" THEN CmdEditSettings.Fields("AspEmail_MailHost") = NULL Else CmdEditSettings.Fields("AspEmail_MailHost") = AspEmail_MailHost End If %> <% Log_Off_Page = Request("Log_Off_Page") if Log_Off_Page="" THEN CmdEditSettings.Fields("Log_Off_Page") = NULL Else CmdEditSettings.Fields("Log_Off_Page") = Log_Off_Page End If %> <% BannerRedirectURL = Request("BannerRedirectURL") if BannerRedirectURL="" THEN CmdEditSettings.Fields("BannerRedirectURL") = NULL Else CmdEditSettings.Fields("BannerRedirectURL") = BannerRedirectURL End If %> <% SASMTPMAIL_RemoteHost = Request("SASMTPMAIL_RemoteHost") if SASMTPMAIL_RemoteHost="" THEN CmdEditSettings.Fields("SASMTPMAIL_RemoteHost") = NULL Else CmdEditSettings.Fields("SASMTPMAIL_RemoteHost") = SASMTPMAIL_RemoteHost End If %> <% Email_Component = Request("Email_Component") If Email_Component = "CDONTS_Installed" Then CmdEditSettings.Fields("CDONTS_Installed") = True CmdEditSettings.Fields("SASMTPMAIL_Installed") = False CmdEditSettings.Fields("JMAIL_Installed") = False CmdEditSettings.Fields("AspEmail_Installed") = False ElseIf Email_Component = "SASMTPMAIL_Installed" Then CmdEditSettings.Fields("CDONTS_Installed") = False CmdEditSettings.Fields("SASMTPMAIL_Installed") = True CmdEditSettings.Fields("JMAIL_Installed") = False CmdEditSettings.Fields("AspEmail_Installed") = False ElseIf Email_Component = "JMAIL_Installed" Then CmdEditSettings.Fields("CDONTS_Installed") = False CmdEditSettings.Fields("SASMTPMAIL_Installed") = False CmdEditSettings.Fields("JMAIL_Installed") = True CmdEditSettings.Fields("AspEmail_Installed") = False ElseIf Email_Component = "AspEmail_Installed" Then CmdEditSettings.Fields("CDONTS_Installed") = False CmdEditSettings.Fields("SASMTPMAIL_Installed") = False CmdEditSettings.Fields("JMAIL_Installed") = False CmdEditSettings.Fields("AspEmail_Installed") = True ElseIf Email_Component = "None" Then CmdEditSettings.Fields("CDONTS_Installed") = False CmdEditSettings.Fields("SASMTPMAIL_Installed") = False CmdEditSettings.Fields("JMAIL_Installed") = False CmdEditSettings.Fields("AspEmail_Installed") = False End If %> <% CmdEditSettings.Update CmdEditSettings.Close Set CmdEditSettings = Nothing ConnPasswords.Close Set ConnPasswords = Nothing %> <% End If %> <% Set ConnPasswords = Server.CreateObject("ADODB.Connection") Set CmdEditSettings = Server.CreateObject("ADODB.Recordset") ConnPasswords.Open BannerConnectionString SQL = "SELECT Banner_Config.* FROM Banner_Config Where ID = 1" CmdEditSettings.Open SQL, ConnPasswords BASE_URL = "http://" & Request.ServerVariables("HTTP_HOST") & Replace(Request.ServerVariables("URL"),"aspbanner/settings.asp","") If IsNull(CmdEditSettings("Log_Off_Page")) Then Log_Off_Page = BASE_URL & "aspbanner/goodbye.asp" Else Log_Off_Page = CmdEditSettings("Log_Off_Page") End If If IsNull(CmdEditSettings("BannerRedirectURL")) Then BannerRedirectURL = BASE_URL & "aspbanner/banner_redirect.asp" Else BannerRedirectURL = CmdEditSettings("BannerRedirectURL") End If %>

Return To Main Screen

The settings below control the the names of the Custom fields used for users as well as whether they are used or not. Using these custom fields is optional.
User_Custom1_Used <% Response.Write (" checked")%><% End If %>> User_Custom1_Name ">
User_Custom2_Used <% Response.Write (" checked")%><% End If %>> User_Custom2_Name ">
User_Custom3_Used <% Response.Write (" checked")%><% End If %>> User_Custom3_Name ">
User_Custom4_Used <% Response.Write (" checked")%><% End If %>> User_Custom4_Name ">
User_Custom5_Used <% Response.Write (" checked")%><% End If %>> User_Custom5_Name ">
User_Custom6_Used <% Response.Write (" checked")%><% End If %>> User_Custom6_Name ">
Settings below specify the full URL to some of the pages in the banner system.
Adjust these to match your web names if they are not correct. If you erase the values from these fields and save this page... the system will populate the fields below with what should be the correct settings. You then need to save this page one more time for the values to be saved to the database.
    Log_Off_Page
Ex: "http://p600laptop/<% =App_Name %>/default.asp"

After a user logs off this is the page they will be sent to.
    BannerRedirectURL
Ex: "http://p600laptop/<% =App_Name %>/default.asp"
Settings below specify which email component is installed on your server.
None_Installed checked>    
CDONTS_Installed >    
JMAIL_Installed > JMAIL_ServerAddress ">
Usually something like "mail.test.com" ask your server admin if you are not sure.
SASMTPMAIL_Installed > SASMTPMAIL_RemoteHost ">
Usually something like "mail.test.com" ask your server admin if you are not sure.
ASPEMAIL_Installed > ASPEMAIL_MailHost ">
Usually something like "mail.test.com" ask your server admin if you are not sure.
Setting below is the email address of the banner system Admin.
    EmailNotification ">

<% CmdEditSettings.Close Set CmdEditSettings = Nothing ConnPasswords.Close Set ConnPasswords = Nothing %>