<%@ 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 ' ------------------------------------------------------- ' -- get owner ID for a document ' ------------------------------------------------------- Function GetDocOwnerID(vDoc) Dim Conn, Rs1, StrSql Set Conn = Server.CreateObject("ADODB.Connection") Set Rs1 = Server.CreateObject("ADODB.Recordset") Conn.Open GetConStr ("..\..\SiteResources\Data\") StrSql = "SELECT CreatedBy FROM Documents WHERE DocumentID = " & vDoc Rs1.Open StrSql , Conn If not Rs1.EOF Then GetDocOwnerID = Rs1("CreatedBy").value Else GetDocOwnerID = 0 End IF rs1.Close Set Rs1 = Nothing Set Conn = Nothing End Function ' ------------------------------------------------------- ' -- Get user name ' ------------------------------------------------------- Function GetDocOwnerName(vDoc) Dim Conn, Rs1, StrSql Set Conn = Server.CreateObject("ADODB.Connection") Set Rs1 = Server.CreateObject("ADODB.Recordset") Conn.Open GetConStr ("..\..\SiteResources\Data\") StrSql = "SELECT FirstName, LastName FROM Users WHERE UserID = " & vDoc Rs1.Open StrSql , Conn If not Rs1.EOF Then GetDocOwnerName = Rs1("FirstName").value & " " & Rs1("LastName").value Else GetDocOwnerName = " " End IF rs1.Close Set Rs1 = Nothing Set Conn = Nothing End Function ' ----------------------------------------------------- ' // Security Check ' ----------------------------------------------------- vDocOwnerID = GetDocOwnerID(Session("DocID")) IF NOT CheckSecurity(Session("DocID"), Session("User_Group") , "EDIT" , "..\..\", vDocOwnerID ) THEN Response.Write("") Response.write("
") Response.Write(langErrorSecurityAccess) Response.write("


") Response.write( lagLabelSecCopy & " " & Session("DocID")) Response.write("

") Response.Write(langLabelCreatedBy & " " & GetDocOwnerName(vDocOwnerID) ) Response.Write("") Response.End END IF ' ------------------------------------------------------- Sub AddCopyContent(vDocID, vName, vFieldValue, vLangId) Dim Conn3,Rs3,SQL3 Set Conn3 = Server.CreateObject("ADODB.Connection") Set Rs3 = Server.CreateObject("ADODB.Recordset") Conn3.Open GetConStr ("..\..\SiteResources\Data\") SQL3 = "INSERT INTO DocumentFields (" SQL3 = SQL3 & " DocID," SQL3 = SQL3 & " Name," SQL3 = SQL3 & " FieldValue," SQL3 = SQL3 & " LangId)" SQL3 = SQL3 & "VALUES (" SQL3 = SQL3 & vDocID & ",'" SQL3 = SQL3 & vName & "','" SQL3 = SQL3 & FF(vFieldValue) & "'," SQL3 = SQL3 & vLangId & ")" set Rs3 = Conn.Execute(SQL3) Set Rs3 = Nothing Set Conn3 = Nothing End Sub ' ------------------------------------------------------- Sub AddCopyContentLang(inConn, vDocID, vLangID, vName, vStatus, vURL) Dim strSQL strSQL = "INSERT INTO DocumentLanguages (" strSQL = strSQL & " DocId," strSQL = strSQL & " LangId," strSQL = strSQL & " DocName," strSQL = strSQL & " LangStatus," strSQL = strSQL & " LangModuleURL)" strSQL = strSQL & "VALUES (" strSQL = strSQL & vDocID & "," strSQL = strSQL & vLangID & ",'" strSQL = strSQL & FF(vName) & "'," strSQL = strSQL & vStatus & ",'" strSQL = strSQL & vURL & "')" inConn.Execute(strSQL) End Sub ' ------------------------------------------------------- If Session("DocID") > SiteRootID Then Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open GetConStr ("..\..\SiteResources\Data\") SQL = "SELECT * FROM Documents WHERE DocumentID=" + Session("DocID") Rs.Open SQL, Conn Set Conn2 = Server.CreateObject("ADODB.Connection") Set Rs2 = Server.CreateObject("ADODB.Recordset") Conn2.Open GetConStr ("..\..\SiteResources\Data\") ' ---------------------------------------------------------------- ' // Update Document header SQL2 = "INSERT INTO Documents (" SQL2 = SQL2 & " ParentID," SQL2 = SQL2 & " SortOrder," SQL2 = SQL2 & " isFolder," SQL2 = SQL2 & " DocName," SQL2 = SQL2 & " ModuleID," SQL2 = SQL2 & " ModuleFrame," SQL2 = SQL2 & " TemplateURL," SQL2 = SQL2 & " CreatedBy," SQL2 = SQL2 & " CreatedDate," SQL2 = SQL2 & " ModifiedBy," SQL2 = SQL2 & " ModifiedDate," IF Rs("SentForApprovalDate").value <> "" THEN SQL2 = SQL2 & " SentForApprovalDate," END IF SQL2 = SQL2 & " PublishDate," SQL2 = SQL2 & " ExpiresDate," SQL2 = SQL2 & " Active," SQL2 = SQL2 & " ApprovalID," SQL2 = SQL2 & " DocumentStatus," SQL2 = SQL2 & " SecLevel," SQL2 = SQL2 & " ExternalPage," SQL2 = SQL2 & " ExternalPageURL," SQL2 = SQL2 & " ExternalPageFrame," SQL2 = SQL2 & " Extra1," SQL2 = SQL2 & " Extra2," SQL2 = SQL2 & " Extra3," SQL2 = SQL2 & " MultiPageStartYN," SQL2 = SQL2 & " MultiPagePrevPage," SQL2 = SQL2 & " MultiPageNextPage) " SQL2 = SQL2 & "VALUES (" SQL2 = SQL2 & Rs("ParentID").value & "," SQL2 = SQL2 & Rs("SortOrder").value & "," SQL2 = SQL2 & Rs("isFolder").value & ",'" SQL2 = SQL2 & Rs("DocName").value & " ("& langTabMenuitemCopy & ") '," SQL2 = SQL2 & Rs("ModuleID").value & ",'" SQL2 = SQL2 & Rs("ModuleFrame").value & "','" SQL2 = SQL2 & Rs("TemplateURL").value & "'," SQL2 = SQL2 & Rs("CreatedBy").value & ",'" SQL2 = SQL2 & Rs("CreatedDate").value & "'," SQL2 = SQL2 & Rs("ModifiedBy").value & ",'" SQL2 = SQL2 & Rs("ModifiedDate").value & "','" IF Rs("SentForApprovalDate").value <> "" THEN SQL2 = SQL2 & Rs("SentForApprovalDate").value & "','" END IF SQL2 = SQL2 & Rs("PublishDate").value & "','" SQL2 = SQL2 & Rs("ExpiresDate").value & "'," SQL2 = SQL2 & Rs("Active").value & "," SQL2 = SQL2 & Rs("ApprovalID").value & "," SQL2 = SQL2 & "1," SQL2 = SQL2 & Rs("SecLevel").value & "," SQL2 = SQL2 & Rs("ExternalPage").value & ",'" SQL2 = SQL2 & Rs("ExternalPageURL").value & "','" SQL2 = SQL2 & Rs("ExternalPageFrame").value & "','" SQL2 = SQL2 & Rs("Extra1").value & "','" SQL2 = SQL2 & Rs("Extra2").value & "','" SQL2 = SQL2 & Rs("Extra3").value & "','" SQL2 = SQL2 & Rs("MultiPageStartYN").value & "'," SQL2 = SQL2 & Rs("MultiPagePrevPage").value & "," SQL2 = SQL2 & Rs("MultiPageNextPage").value & ")" set Rs2 = Conn.Execute(SQL2) SQL = "Select DocumentID From Documents ORDER BY DocumentID DESC" set Rs = Conn.Execute(SQL) vDocID = Rs("DocumentId").Value Set Rs = Nothing Set Conn = Nothing Set Rs2 = Nothing Set Conn2 = Nothing ' -------------------------- Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open GetConStr ("..\..\SiteResources\Data\") SQL = "Select * From DocumentFields WHERE DocID=" & Session("DocID") Rs.Open SQL, Conn While NOT Rs.EOF AddCopyContent vDocID,Rs("Name").value, Rs("FieldValue").value, Rs("LangId").Value Rs.Movenext Wend Rs.Close SQL = "Select * From DocumentLanguages WHERE DocID=" & Session("DocID") Rs.Open SQL, Conn While NOT Rs.EOF AddCopyContentLang Conn, vDocID, Rs("LangId").Value, Rs("DocName").Value&" ("&langTabMenuitemCopy&")", 1, Rs("LangModuleURL").Value Rs.Movenext Wend Rs.Close Set Rs = Nothing Set Conn = Nothing End IF ' // IF Session("DocID") > SiteRootID Then ' ---------------------------------------------------------------- ' ---------------------------------------------------------------- %> <%=langHeaderTitle%>

<%=langLabelCopyDoc%>

<% If Session("DocID") > SiteRootID Then %><%=langLabelDocSaved%><% Else %><%=langLabelSelectDoc %><% End If %><% If Session("xView") = "Tree" Then %><% Else %><% End IF %>