<%@ language=VBScript %> <% ' /////////////////////////////////////////////////////// ' // Dimac CMS ' // Copyright 2004-2008 Dimac Development AB, Sweden ' // www.Dimac.net ' // ' // NOTE: ' // You are not allowed to remove this ' // Copyright information without written ' // permission from Dimac Development. ' /////////////////////////////////////////////////////// If NOT CBool(Session("ValidAdminUser")) Then Response.Redirect("../LIO/loggin.asp") End IF ' ------------------------------------------------------- Dim vID, vRead, vCreate, vEdit, vDelete, vAdministrate vID = Request.Form("fID") If Request.Form("fRead") = "on" Then vRead = 1 Else vRead = 0 End If If Request.Form("fCreate") = "on" Then vCreate = 1 Else vCreate = 0 End If If Request.Form("fEdit") = "on" Then vEdit = 1 Else vEdit = 0 End If If Request.Form("fDelete") = "on" Then vDelete = 1 Else vDelete = 0 End If If Request.Form("fAdministrate") = "on" Then vAdministrate = 1 Else vAdministrate = 0 End If ' ------------------------------------------------------- Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open GetConStr ("..\..\SiteResources\Data\") SQL = "UPDATE DocSecurity SET " SQL = SQL & " dsRead = " & vRead & "," SQL = SQL & " dsCreate = " & vCreate & "," SQL = SQL & " dsEdit = " & vEdit & "," SQL = SQL & " dsDelete = " & vDelete & "," SQL = SQL & " dsAdministrate = " & vAdministrate & " " SQL = SQL & "WHERE ID = " & vID 'response.Write(SQL) set Rs = Conn.Execute(SQL) Response.Redirect("DocEditSecurity.asp") ' ---------------------------------------------------------------- ' ---------------------------------------------------------------- %>