<%
dim TransfersEnabled
dim BillPayEnabled
dim ACHEnabled
dim WireEnabled
dim IncomingWireEnabled
dim CrossCustTransfersEnabled
dim AcctOrigEnabled
dim QuickenEnabled
dim MoneyEnabled
dim QuickBooksEnabled
dim StopPaymentEnabled
dim dbConnection
dim dbRecordSet
dim checkimagingenabled, CheckOrderingEnabled, CheckOrderingDeluxeEnabled
dim CheckOrderingLibertyEnabled, ECommerceEnabled, CashWorkSheetEnabled,CDCashWorkSheetEnabled
dim SavingsBondsEnabled, DepositAccountOriginationEnabled
dim OnlineFormsEnabled,ViewAllBalancesEnabled,CashLetterReportEnabled
dim posPayEnabled, showAddAccounts,page,businesspage,HelpSection, sql, DN
dim FileObject, showOtherServices, BSRenabled, FutureDatedTransEnabled
dim ACHIncomingACHReport, ACHNOCReturnsReport
dim BSRIncomingACHReport, BRSNOCReturnsReport
dim ChallengeBusinessEnabled, ChallengeRetailEnabled
dim Alerts
dim AcctReconEnabled,UserHasAcctReconRight,UserHasAcctReconReportRights,UserHasAcctReconSetupRights
dim AddTransactionEnabled
If Persist("SignOnID") = "" then
Redirect("/Common/SignOn/Abandoned.asp")
End If
Set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.Open Application("BankDBConnectString")
Set dbRecordSet = Server.CreateObject("ADODB.RecordSet")
TransfersEnabled = false
BillPayEnabled = false
ACHEnabled = false
WireEnabled = false
IncomingWireEnabled = false
CrossCustTransfersEnabled =false
AcctOrigEnabled = false
QuickenEnabled = false
MoneyEnabled = false
QuickBooksEnabled = false
StopPaymentEnabled = false
CheckImagingEnabled = false
posPayEnabled = false
showAddAccounts = false
CheckOrderingEnabled = false
CheckOrderingDeluxeEnabled = false
CheckOrderingLibertyEnabled= false
ECommerceEnabled = false
SavingsBondsEnabled = false
DepositAccountOriginationEnabled = false
OnlineFormsEnabled = false
showOtherServices = false
BSREnabled = false
FutureDatedTransEnabled = false
ViewAllBalancesEnabled = false
CashWorkSheetEnabled = false
CDCashWorkSheetEnabled = false
CashLetterReportEnabled = false
ACHIncomingACHReport = false
ACHNOCReturnsReport = false
BSRIncomingACHReport = false
BRSNOCReturnsReport = false
ChallengeBusinessEnabled = false
ChallengeRetailEnabled = false
Alerts = false
AcctReconEnabled =false
UserHasAcctReconRight = false
UserHasAcctReconReportRights = false
UserHasAcctReconSetupRights =false
AddTransactionEnabled = false
if not(Trim(Application("TransferToList")) = "" and trim(Application("TransferFromList")) = "") then
TransfersEnabled = true
End if
if (persist("Business") and Application("DisplayBusinessBills")) or (not(Persist("Business")) and Application("DisplayRetailBills")) then
'Persist("SecurityLevel") <> 5
BillPayEnabled = true
End if
if (Application("BusinessTran") or Application("ACHConstruction")) and persist("Business") then
ACHEnabled = true
End if
if (Application("BusinessWire") or Application("WireConstruction"))and Persist("Business") then
WireEnabled = true
End if
If (Application("IncomingWire") Or Application("WireConstruction")) and Persist("Business") then
IncomingWireEnabled = true
End if
If (trim(Application("OnlineSystem"))<>"" and Application("OnlineSystem")<>"NUL " and Application("OnlineSystem")<>"NULL") and Application("CrossCustTransfer") = true and not persist("Business")then
CrossCustTransfersEnabled = true
end if
If (Application("AcctOrigProducts") OR Application("AcctOrigTables")) and Application("AcctOrigButton") Then
AcctOrigEnabled = true
end if
If (Application("Quicken2000")) Then
'Persist("Quicken2000")
QuickenEnabled = true
End If
If (Application("Money2000")) Then
'Persist("Money2000")
MoneyEnabled = true
End If
If (Application("QuickBooks2000")) Then '
'Persist("QuickBooks2000")
QuickBooksEnabled = true
End If
If not(Persist("Business")) Or (Persist("BusinessStops")) Then
if Len(Trim(Application("StopAccountTypes"))) > 0 then
StopPaymentEnabled = true
end if
end if
showAddAccounts = AllowUserAddAccounts
showRemoveAccounts = AllowUserRemoveAccounts
if Persist("BusinesseFile") then
posPayEnabled = true
end if
if Application("OtherServices") then
If Application("EcommerceMart") = True Then
EcommerceEnabled = true
End If
If Application("SavingsBonds") = True Then
SavingsBondsEnabled = true
End If
If Application("CheckOrdering") = True Then
CheckOrderingEnabled = true
End If
If Application("CheckOrderingDeluxe") = True Then
CheckOrderingDeluxeEnabled =true
End If
If Application("CheckOrderingLiberty") = True Then
CheckOrderingLibertyEnabled =true
End If
if (Application("AcctOrigProducts") OR Application("AcctOrigTables")) and Application("AcctOrigButton") then
DepositAccountOriginationEnabled = true
end if
if Application("OnlineForms") = True then
OnlineFormsEnabled = true
end if
' We need both custom Files to show other services help
DN = AppRoot & "Custom/CustomHTML"
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
blnFExists = FileObject.FileExists(Server.MapPath(DN) & "\OtherServicesIndex.asp")
if blnFExists then
blnFExists = FileObject.FileExists(Server.MapPath(DN) & "\OtherServicesHelp.asp")
if blnFExists then
showOtherServices = true
else
showOtherServices = false
end if
else
showOtherServices = false
end if
set FileObject = nothing
end if
if Application("BusinessBSR")= true then
BSRenabled = true
end if
if (persist("Business") and application("ViewAllBalances")= true) or (application("ViewAllBalancesRetail")= true) then
ViewAllBalancesEnabled = true
End if
if application("DisplayFutureDatedTrans") = true then
FutureDatedTransEnabled = true
end if
if Application("ShowRedemption") then
CDCashWorksheetEnabled = true
end if
if Application("ShowCashWorksheet") then
CashWorksheetEnabled = true
end if
if Application("CashLetterSDReport") or Application("CashLetterSDReportDefault") then
CashLetterReportEnabled =true
end if
if Application("ACHIncomingACHReport") and Persist("IncomingACHEDIT") then
ACHIncomingACHReport = true
end if
if Application("ACHNOCReturnsReport") and Persist("IncomingACHReturns") then
ACHNOCReturnsReport = true
end if
if Application("BSRIncomingACHReport") and Persist("IncomingACHEDI") then
BSRIncomingACHReport = true
end if
if Application("BRSNOCReturnsReport") and Persist("IncomingACHReturns") then
BRSNOCReturnsReport = true
end if
if Application("ChallengeBusinessEnabled") then
ChallengeBusinessEnabled = true
end if
if Application("ChallengeRetailEnabled") then
ChallengeRetailEnabled = true
end if
if Application("Alerts") then
Alerts = true
end if
if Application("CheckImaging") then
CheckImagingEnabled = true
end if
if UCase(Cstr(Persist("CompanyHasAcctRecon"))) = "TRUE" then
AcctReconEnabled = true
end if
if UCase(Cstr(Persist("UserHasAcctReconRights"))) = "TRUE" then
UserHasAcctReconRight = true
end if
if UCase(Cstr(Persist("UserHasAcctReconReportRights"))) = "TRUE" then
UserHasAcctReconReportRights = true
end if
if UCase(Cstr(Persist("UserHasAcctReconSetupRights"))) = "TRUE" then
UserHasAcctReconSetupRights = true
end if
if Application("AddTransaction") then
AddTransactionEnabled = true
end if
page = "help": businesspage = "bushelp"
HelpSection="help"
%>
Online Help