<% IF Application("JBSX_sSettings") <> "True" THEN strSQL = "SELECT * FROM JBS_Settings" Set objRS = Conn.Execute(strSQL) Application("JBSX_sSettings_SiteName") = objRS("sSiteName") Application("JBSX_sSettings_SiteUrl") = objRS("sSiteUrl") Application("JBSX_sSettings_SiteLogo") = objRS("sSiteLogo") Application("JBSX_sSettings_CopyrightText") = objRS("sCopyrightText") Application("JBSX_sSettings_ValidFileType") = objRS("sValidFileType") Application("JBSX_sSettings_MaxFileSize") = objRS("sMaxFileSize") Application("JBSX_sSettings_EmailIsEnable") = objRS("sEmailIsEnable") Application("JBSX_sSettings_EmailSenderName") = objRS("sEmailSenderName") Application("JBSX_sSettings_EmailSenderAddress") = objRS("sEmailSenderAddress") Application("JBSX_sSettings_EmailComponent") = objRS("sEmailComponent") Application("JBSX_sSettings_EmailRemoteHost") = objRS("sEmailRemoteHost") Application("JBSX_sSettings_CookiesIsEnable") = objRS("sCookiesIsEnable") Application("JBSX_sSettings_CookiesRemember") = objRS("sCookiesRemember") Application("JBSX_sSettings_UploadIsEnable") = objRS("sUploadIsEnable") Application("JBSX_sSettings_UploadFilesLimit") = objRS("sUploadFilesLimit") Application("JBSX_sSettings_UploadPath") = objRS("sUploadPath") Application("JBSX_sSettings_TrackBannerIsEnable") = objRS("sTrackBannerIsEnable") Application("JBSX_sSettings_TrackBannerForDays") = objRS("sTrackBannerForDays") Application("JBSX_sSettings_BlockIpIsEnable") = objRS("sBlockIpIsEnable") Application("JBSX_sSettings_BlockIPAction") = objRS("sBlockIPAction") Application("JBSX_sSettings_DefaultLanguage") = objRS("sDefaultLanguage") Application("JBSX_sSettings_ChangeLanguageIsEnable") = objRS("sChangeLanguageIsEnable") Application("JBSX_sSettings_LanguageLCID") = objRS("sLanguageLCID") Application("JBSX_sSettings_DefaultTemplate") = objRS("sDefaultTemplate") Application("JBSX_sSettings_ChangeTemplateIsEnable") = objRS("sChangeTemplateIsEnable") Application("JBSX_HasValue") = false objRS.Close : Set objRS = Nothing strSQL = "SELECT * FROM JBS_UserSettings" Set objRS = Conn.Execute(strSQL) Application("JBSX_sUserSettingsAddAdvertiser") = objRS("usAddAdvertiser") Application("JBSX_sUserSettingsEditAdvertiser") = objRS("usEditAdvertiser") Application("JBSX_sUserSettingsDeleteAdvertiser") = objRS("usDeleteAdvertiser") Application("JBSX_sUserSettingsAddZone") = objRS("usAddZone") Application("JBSX_sUserSettingsEditZone") = objRS("usEditZone") Application("JBSX_sUserSettingsDeleteZone") = objRS("usDeleteZone") Application("JBSX_sUserSettingsAddBanner") = objRS("usAddBanner") Application("JBSX_sUserSettingsEditBanner") = objRS("usEditBanner") Application("JBSX_sUserSettingsDeleteBanner") = objRS("usDeleteBanner") Application("JBSX_sUserSettingsAddUser") = objRS("usAddUser") Application("JBSX_sUserSettingsEditUser") = objRS("usEditUser") Application("JBSX_sUserSettingsDeleteUser") = objRS("usDeleteUser") Application("JBSX_sUserSettingsSendMailToAdvertiser") = objRS("usSendMailToAdvertiser") Application("JBSX_sUserSettingsSendMailToUser") = objRS("usSendMailToUser") Application("JBSX_sUserSettingsUploadBannerImg") = objRS("usUploadBannerImg") Application("JBSX_sUserSettingsCreateFolder") = objRS("usCreateFolder") Application("JBSX_sUserSettingsDeleteFolder") = objRS("usDeleteFolder") Application("JBSX_sUserSettingsRenameBannerImg") = objRS("usRenameBannerImg") Application("JBSX_sUserSettingsMoveBannerImg") = objRS("usMoveBannerImg") Application("JBSX_sUserSettingsDeleteBannerImg") = objRS("usDeleteBannerImg") Application("JBSX_sUserSettingsBlockIP") = objRS("usBlockIP") Application("JBSX_sUserSettingsDeleteBlockedIP") = objRS("usDeleteBlockedIP") objRS.Close : Set objRS = Nothing Application("JBSX_sSettings") = "True" END IF '## JBS SETTINGS ## DO NOT CHANGE THIS LINE!! Session.LCID = Application("JBSX_sSettings_LanguageLCID") %>