<% Dim ErrorFlag : ErrorFlag = "False" If Request("sSiteName") = "" Then ErrorFlag = "True" Session("JBSX_Form_Fld_sSiteName") = " missing." End If If Request("sSiteUrl") = "" Then ErrorFlag = "True" Session("JBSX_Form_Fld_sSiteUrl") = " missing!" End If If Request("sSiteLogo") = "" Then ErrorFlag = "True" Session("JBSX_Form_Fld_sSiteLogo") = " missing!" End If If Request("sValidFileType") = "" Then ErrorFlag = "True" Session("JBSX_Form_Fld_sValidFileType") = " missing!" End If If Request("sMaxFileSize") = "" Then ErrorFlag = "True" Session("JBSX_Form_Fld_sMaxFileSize") = " missing!" End If IF Request("sEmailIsEnable") = "True" THEN If Request("sEmailSenderName") = "" Then ErrorFlag = "True" Session("JBSX_Form_Fld_sEmailSenderName") = " missing!" End If If Request("sEmailSenderAddress") = "" Then ErrorFlag = "True" Session("JBSX_Form_Fld_sEmailSenderAddress") = " missing!" End If If ((Request("sEmailComponent") = "ASPMail") Or Request("sEmailComponent") = "ASPEmail") Then If Request("sEmailRemoteHost") = "" Then ErrorFlag = "True" Session("JBSX_Form_Fld_sEmailRemoteHost") = " missing!" End If End If END IF IF Request("sUploadIsEnable") = "True" THEN If Request("sUploadPath") = "" Then ErrorFlag = "True" Session("JBSX_Form_Fld_sUploadPath") = " missing!" End If END IF IF Request("sTrackBannerIsEnable") = "True" THEN If Request("sTrackBannerForDays") = "" Then ErrorFlag = "True" Session("JBSX_Form_Fld_sTrackBannerForDays") = " missing!" End If END IF IF ErrorFlag = "False" Then strSQL = "UPDATE JBS_Settings SET " strSQL = strSQL & "sSiteName = '" & ChkString(Request("sSiteName")) & "', " strSQL = strSQL & "sSiteUrl = '" & ChkString(Request("sSiteUrl")) & "', " strSQL = strSQL & "sSiteLogo = '" & ChkString(Request("sSiteLogo")) & "', " strSQL = strSQL & "sCopyrightText = '" & ChkString(Request("sCopyrightText")) & "', " strSQL = strSQL & "sValidFileType = '" & ChkString(Request("sValidFileType")) & "', " strSQL = strSQL & "sMaxFileSize = " & Request("sMaxFileSize") & ", " strSQL = strSQL & "sEmailIsEnable = '" & Request("sEmailIsEnable") & "', " strSQL = strSQL & "sEmailSenderName = '" & ChkString(Request("sEmailSenderName")) & "', " strSQL = strSQL & "sEmailSenderAddress = '" & ChkString(Request("sEmailSenderAddress")) & "', " strSQL = strSQL & "sEmailComponent = '" & Request("sEmailComponent") & "', " strSQL = strSQL & "sEmailRemoteHost = '" & ChkString(Request("sEmailRemoteHost")) & "', " strSQL = strSQL & "sCookiesIsEnable = '" & Request("sCookiesIsEnable") & "', " strSQL = strSQL & "sCookiesRemember = '" & Request("sCookiesRemember") & "', " strSQL = strSQL & "sUploadIsEnable = '" & Request("sUploadIsEnable") & "', " strSQL = strSQL & "sUploadPath = '" & ChkString(Request("sUploadPath")) & "', " strSQL = strSQL & "sUploadFilesLimit = " & Request("sUploadFilesLimit") & ", " strSQL = strSQL & "sTrackBannerIsEnable = '" & Request("sTrackBannerIsEnable") & "', " strSQL = strSQL & "sTrackBannerForDays = " & Request("sTrackBannerForDays") & ", " strSQL = strSQL & "sBlockIpIsEnable = '" & Request("sBlockIpIsEnable") & "', " strSQL = strSQL & "sBlockIPAction = '" & Request("sBlockIPAction") & "', " strSQL = strSQL & "sDefaultLanguage = '" & Request("sDefaultLanguage") & "', " strSQL = strSQL & "sChangeLanguageIsEnable = '" & Request("sChangeLanguageIsEnable") & "', " strSQL = strSQL & "sLanguageLCID = " & Request("sLanguageLCID") & ", " strSQL = strSQL & "sDefaultTemplate = '" & Request("sDefaultTemplate") & "', " strSQL = strSQL & "sChangeTemplateIsEnable = '" & Request("sChangeTemplateIsEnable") & "' " Conn.Execute (strSQL) Application("JBSX_sSettings") = "True" 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 Session("JBSX_Update") = "True" ELSE Session("JBSX_Update") = "False" Session("JBSX_mem_Form_Fld_sSiteName") = Request("sSiteName") Session("JBSX_mem_Form_Fld_sSiteUrl") = Request("sSiteUrl") Session("JBSX_mem_Form_Fld_sSiteLogo") = Request("sSiteLogo") Session("JBSX_mem_Form_Fld_sCopyrightText") = Request("sCopyrightText") Session("JBSX_mem_Form_Fld_sValidFileType") = Request("sValidFileType") Session("JBSX_mem_Form_Fld_sMaxFileSize") = Request("sMaxFileSize") Session("JBSX_mem_Form_Fld_sCookiesIsEnable") = Request("sCookiesIsEnable") Session("JBSX_mem_Form_Fld_sCookiesRemember") = Request("sCookiesRemember") Session("JBSX_mem_Form_Fld_sEmailIsEnable") = Request("sEmailIsEnable") Session("JBSX_mem_Form_Fld_sEmailSenderName") = Request("sEmailSenderName") Session("JBSX_mem_Form_Fld_sEmailSenderAddress") = Request("sEmailSenderAddress") Session("JBSX_mem_Form_Fld_sEmailComponent") = Request("sEmailComponent") Session("JBSX_mem_Form_Fld_sEmailRemoteHost") = Request("sEmailRemoteHost") Session("JBSX_mem_Form_Fld_sUploadIsEnable") = Request("sUploadIsEnable") Session("JBSX_mem_Form_Fld_sUploadFilesLimit") = Request("sUploadFilesLimit") Session("JBSX_mem_Form_Fld_sUploadPath") = Request("sUploadPath") Session("JBSX_mem_Form_Fld_sTrackBannerIsEnable") = Request("sTrackBannerIsEnable") Session("JBSX_mem_Form_Fld_sTrackBannerForDays") = Request("sTrackBannerForDays") Session("JBSX_mem_Form_Fld_sBlockIpIsEnable") = Request("sBlockIpIsEnable") Session("JBSX_mem_Form_Fld_sBlockIPAction") = Request("sBlockIPAction") Session("JBSX_mem_Form_Fld_sDefaultLanguage") = Request("sDefaultLanguage") Session("JBSX_mem_Form_Fld_sChangeLanguageIsEnable") = Request("sChangeLanguageIsEnable") Session("JBSX_mem_Form_Fld_sLanguageLCID") = Request("sLanguageLCID") Session("JBSX_mem_Form_Fld_sDefaultTemplate") = Request("sDefaultTemplate") Session("JBSX_mem_Form_Fld_sChangeTemplateIsEnable") = Request("sChangeTemplateIsEnable") END IF strRedirectUrl = "system_settings.asp" Response.Redirect (strRedirectUrl) %>