<%@ 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.Querystring("fID") ' ------------------------------------------------------- Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open GetConStr ("..\..\SiteResources\Data\") SQL = "DELETE FROM DocSecurity WHERE ID = " & vID set Rs = Conn.Execute(SQL) Response.Redirect("DocEditSecurity.asp") ' ---------------------------------------------------------------- ' ---------------------------------------------------------------- %>