<%@ 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 vNewParentID vNewParentID = Request.QueryString("NewDocID").Item If vNewParentID = Session("DocID") Then Response.Write langTreeLink Else Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open GetConStr ("..\..\SiteResources\Data\") SQL = "UPDATE Documents SET " SQL = SQL & " ParentID = " & vNewParentID & " " SQL = SQL & "WHERE DocumentID = " & Session("DocID") set Rs = Conn.Execute(SQL) Response.Write langLabelDocumentAreMoved End IF ' ------------------------------------------------------ ' ------------------------------------------------------ %>