<!--#include virtual="/JBSX/include/config.asp"-->
<!--#include virtual="/JBSX/include/chkLogin.asp"-->
<!--#include virtual="/JBSX/include/function.asp"-->
<!--#include virtual="/JBSX/include/settings.asp"-->
<%
strSQL = "UPDATE JBS_UserSettings SET "
strSQL = strSQL & "usAddAdvertiser = '" & Request("usAddAdvertiser") & "', "
strSQL = strSQL & "usEditAdvertiser = '" & Request("usEditAdvertiser") & "', "
strSQL = strSQL & "usDeleteAdvertiser = '" & Request("usDeleteAdvertiser") & "', "
strSQL = strSQL & "usAddZone = '" & Request("usAddZone") & "', "
strSQL = strSQL & "usEditZone = '" & Request("usEditZone") & "', "
strSQL = strSQL & "usDeleteZone = '" & Request("usDeleteZone") & "', "
strSQL = strSQL & "usAddBanner = '" & Request("usAddBanner") & "', "
strSQL = strSQL & "usEditBanner = '" & Request("usEditBanner") & "', "
strSQL = strSQL & "usDeleteBanner = '" & Request("usDeleteBanner") & "', "
strSQL = strSQL & "usAddUser = '" & Request("usAddUser") & "', "
strSQL = strSQL & "usEditUser = '" & Request("usEditUser") & "', "
strSQL = strSQL & "usDeleteUser = '" & Request("usDeleteUser") & "', "
strSQL = strSQL & "usSendMailToAdvertiser = '" & Request("usSendMailToAdvertiser") & "', "
strSQL = strSQL & "usSendMailToUser = '" & Request("usSendMailToUser") & "', "
strSQL = strSQL & "usUploadBannerImg = '" & Request("usUploadBannerImg") & "', "
strSQL = strSQL & "usCreateFolder = '" & Request("usCreateFolder") & "', "
strSQL = strSQL & "usDeleteFolder = '" & Request("usDeleteFolder") & "', "
strSQL = strSQL & "usRenameBannerImg = '" & Request("usRenameBannerImg") & "', "
strSQL = strSQL & "usMoveBannerImg = '" & Request("usMoveBannerImg") & "', "
strSQL = strSQL & "usDeleteBannerImg = '" & Request("usDeleteBannerImg") & "', "
strSQL = strSQL & "usBlockIP = '" & Request("usBlockIP") & "', "
strSQL = strSQL & "usDeleteBlockedIP = '" & Request("usDeleteBlockedIP") & "' "

Conn.Execute (strSQL)

Application("JBSX_sSettings") = "True"

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

Session("JBSX_Update") = "True"

strRedirectUrl = "user_settings.asp"
Response.Redirect (strRedirectUrl)

%>