<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim rs dim ssql dim sSetting_Id dim sDisplay_Cart dim sDisplay_Product dim sDisplay_Service dim sDisplay_Job dim sDisplay_News dim sDisplay_Partner dim sDisplay_Search dim sDisplay_Shipping_Charges dim sMember_Register_Function dim sDisplay_Visitor_Counter dim sDisplay_Language dim sCopyright_Notes dim return_page dim objfs dim objfile dim theme_design dim sDisplay_Categories_At_Main_Page %> <% sSetting_Id = trim(request.Form("setting_id")) sDisplay_Cart = trim(request.Form("display_cart")) sDisplay_Product = trim(request.Form("display_product")) sDisplay_Service = trim(request.Form("display_service")) sDisplay_Job = trim(request.Form("display_job")) sDisplay_News = trim(request.Form("display_news")) sDisplay_Partner = trim(request.Form("display_partner")) sDisplay_Search = trim(request.Form("display_search")) sMember_Register_Function = trim(request.Form("member_register_function")) sDisplay_Visitor_Counter = trim(request.Form("display_visitor_counter")) sDisplay_Language = trim(request.Form("display_language")) sCopyright_Notes = trim(request.Form("copyright_notes")) sDisplay_Shipping_Charges = trim(request.Form("display_shipping_charges")) sDisplay_Categories_At_Main_Page = trim(request.Form("display_categories_at_main_page")) 'replace vbCrLf to
if len(sCopyright_Notes) > 0 then sCopyright_Notes = replace(sCopyright_Notes, vbcrlf, "
", 1, -1, 1) end if 'update data ssql = "select * from tbl_setting where setting_id = '" & sSetting_Id & "'" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 rs.Fields("display_cart") = sDisplay_Cart rs.Fields("display_product") = sDisplay_Product rs.Fields("display_service") = sDisplay_Service rs.Fields("display_job") = sDisplay_Job rs.Fields("display_news") = sDisplay_News rs.Fields("display_partner") = sDisplay_Partner rs.Fields("display_search") = sDisplay_Search rs.Fields("member_register_function") = sMember_Register_Function rs.Fields("display_visitor_counter") = sDisplay_Visitor_Counter rs.Fields("display_language") = sDisplay_Language rs.Fields("copyright_notes") = sCopyright_Notes rs.Fields("display_shipping_charges") = sDisplay_Shipping_Charges rs.Update rs.Close conn.Close set rs = nothing set conn = nothing theme_design = sDisplay_Language set objfs = server.CreateObject("Scripting.FileSystemObject") if objfs.FileExists(server.MapPath("../../../../../member/" & request.cookies("storename") & "/design.asp")) then objfs.DeleteFile server.MapPath("../../../../../member/" & request.cookies("storename") & "/design.asp") end if set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & request.cookies("storename") & "/design.asp"),8,-1,0) objfile.WriteLine vbcrlf objfile.WriteLine chr(60) & chr(37) objfile.WriteLine "Response.Redirect " & chr(34) & "../../web/" & theme_design & "/index.asp?storename=" & request.cookies("storename") & chr(34) objfile.WriteLine chr(37) & chr(62) objfile.close set objfile = nothing 'update sDisplay_Categories_At_Main_Page value if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/myCategoriesSetting.txt")) = true then objfs.DeleteFile server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/myCategoriesSetting.txt"),0 end if set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/myCategoriesSetting.txt"),8,-1,0) objfile.WriteLine sDisplay_Categories_At_Main_Page objfile.close set objfile = nothing set objfs = nothing return_page = "" Response.Write return_page else Response.Redirect "../../index.asp" end if %>