<%@ 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" %> <% =App_Name %> > <% If Request("Action") = "Save" Then Set ConnBannerSystem = Server.CreateObject("ADODB.Connection") Set CmdEditSettings = Server.CreateObject("ADODB.Recordset") ConnBannerSystem.Open BannerConnectionString SQL = "SELECT Banner_Config.* FROM Banner_Config Where ID = 1" CmdEditSettings.Open SQL, ConnBannerSystem, 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 ConnBannerSystem.Close Set ConnBannerSystem = Nothing Application.lock Application("Banner_Config_Updated") = "" Application.Unlock %> <% End If Set ConnBannerSystem = Server.CreateObject("ADODB.Connection") Set CmdEditSettings = Server.CreateObject("ADODB.Recordset") ConnBannerSystem.Open BannerConnectionString SQL = "SELECT Banner_Config.* FROM Banner_Config Where ID = 1" CmdEditSettings.Open SQL, ConnBannerSystem 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.

Important:
If using ASPMail from serverobjects you must choose SASMPTPMAIL here in the settings and then set Application("ASPMail") = true in the config_inc.asp file. The SASMTPMAIL_RemoteHost will act as the Remotehost setting for ASPMail as well.
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 ConnBannerSystem.Close Set ConnBannerSystem = Nothing %>