<% 'option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim rs dim ssql dim sSetting_Id dim sDisplayForum dim return_page %> <% sSetting_Id = trim(request.Form("setting_id")) sDisplayForum = trim(request.Form("display_forum")) 'update data ssql = "select * from tbl_setting where setting_id = '" & sSetting_Id & "'" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 if sDisplayForum = "on" then rs.Fields("display_forum") = sDisplayForum else rs.Fields("display_forum") = "off" end if rs.Update rs.Close conn.Close set rs = nothing set conn = nothing call UpdateForum(sDisplayForum, ucase(Request.Cookies("storename"))) return_page = "" Response.Write return_page else Response.Redirect "../../index.asp" end if %>