<%@ 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 vInField = Request.QueryString("field") vDocID = Session("DocID") vLangID = Request.QueryString("lang") If vLangID <> "" And IsNumeric(vLangID) Then vLangID = CInt(vLangID) Else If Session("contentLanguage") <> "" And IsNumeric(Session("contentLanguage")) Then vLangID = Session("contentLanguage") Else vLangID = -1 End If End If If vInField <> "" Then vLangID = Session("contentLanguage") Else Session("contentLanguage") = vLangID End If If Request.QueryString("Docid") <> "" Then vDocID = Request.QueryString("Docid") End If vStartPath = "SiteResources/data/MediaArchive/" vSubFolder = Request.ServerVariables("SCRIPT_NAME") vSubFolder = Mid(vSubFolder,1, InStr(LCase(vSubFolder),"/cmsadmin/site/doceditcontent.asp")) ' ------------------------------------------------------- Function GetFieldValue(vField) Set Conn5 = Server.CreateObject("ADODB.Connection") Set Rs5 = Server.CreateObject("ADODB.Recordset") Conn5.Open GetConStr ("..\..\SiteResources\Data\") SQL5 = "SELECT FieldValue FROM DocumentFIELDS WHERE (DocID=" & vDocID & ") AND (Name='" & vField & "') AND (LangId=" & vLangID & ")" Rs5.Open SQL5, Conn5 If Not Rs5.EOF And Not Rs5.BOF Then strResult = Rs5("FieldValue").Value If InStr(strResult, vStartPath) > 0 And InStr(strResult, vSubFolder&vStartPath) < 1 Then strResult = Replace(strResult, vStartPath, vSubFolder&vStartPath) End If Else strResult = "" End If GetFieldValue = strResult End Function ' ------------------------------------------------------- ' -- ' ------------------------------------------------------- Function TranslateDocStatus ( x ) SELECT CASE x Case 1 TranslateDocStatus = langLabelDocStatusInProgress Case 2 TranslateDocStatus = langLabelDocStatusSentForApp Case 3 TranslateDocStatus = langLabelDocStatusRejected Case 4 TranslateDocStatus = langLabelDocStatusApproved Case 5 TranslateDocStatus = langLabelDocStatusPublished Case 6 TranslateDocStatus = langLabelDocStatusExpired End Select End Function ' ------------------------------------------------------- ' -- 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 ' ------------------------------------------------------- ' -- Get languages ' ------------------------------------------------------- Function GetLanguages() Dim Conn, Rs3, strSQL, strSep, strContents, strThisLang Set Conn = Server.CreateObject("ADODB.Connection") Set Rs3 = Server.CreateObject("ADODB.Recordset") Conn.Open GetConStr ("..\..\SiteResources\Data\") strSQL = "SELECT ID, Code, Description, MasterLanguage, LCID, Charset, LanguageImage, IsMenuDirty FROM Languages ORDER BY MasterLanguage DESC, ID" strSep = "" strContents= "" strThisLang="" Rs3.Open strSQL, Conn, 1, 3 While Not Rs3.EOF If Rs3("LanguageImage") <> "" Then strThisLang = " " strThisLang = strThisLang & " " & Rs3("Code").Value Else strThisLang = "" & Rs3("Code").Value & "" End If If (vLangID <> -1 And vLangID <> Rs3("ID")) Or (vLangID = -1 And strSep <> "") Then strThisLang = "" & strThisLang & "" strThisLang = "  " & strThisLang & _ "     " Else intActiveLang = Rs3("Code") vLangID = Rs3("ID") Session("contentLanguage") = vLangID strThisLang = "  " & strThisLang & _ "     " End If strContents = strContents & strSep & strThisLang strSep = vbNewLine Rs3.MoveNext Wend Rs3.Close Conn.Close Set Rs3 = Nothing Set Conn = Nothing GetLanguages = strContents End Function ' ----------------------------------------------------- ' // Security Check ' ----------------------------------------------------- vDocOwnerID = GetDocOwnerID(vDocID) IF NOT CheckSecurity(vDocID, Session("User_Group") , "EDIT" , "..\..\", vDocOwnerID ) THEN Response.Write("") Response.write("
") Response.Write(langErrorSecurityAccess) Response.write("


") Response.write( lagLabelSecEdit & " " & vDocID) Response.write("

") Response.Write(langLabelCreatedBy & " " & GetDocOwnerName(vDocOwnerID) ) Response.Write("") Response.End END IF ' ----------------------------------------------------- Dim useWYSIWYG useWYSIWYG = False If vDocID <> 0 Then Dim Conn, Conn2, Rs, Rs2, SQL, SQL2, vText1, vText2, isExternal Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") ' /// Get Document Head Data /// Conn.Open GetConStr ("..\..\SiteResources\Data\") strContents = GetLanguages() SQL = "SELECT * FROM Documents WHERE DocumentID=" & vDocID Rs.Open SQL, Conn strActiveStatus = GetDocumentStatus( vDocID, Session("contentLanguage"), Conn ) strActiveName = GetDocumentName( vDocID, Session("contentLanguage"), Conn ) 'If strActiveName = "" Then strActiveName = Rs("DocName").Value If Rs("ModuleID").value = 0 Then Call LoadFields(Rs("TemplateURL").Value) ' /// Load fields using parser /// isExternal = 0 Else Response.Redirect("DocEditContentML.asp") isExternal = 1 End IF End IF If IsNumeric( Session("User_ID") ) And Session("User_ID") <> "" Then vHeight = "" vHeightType = "" vWidth = "" vWidthType = "" strSQL = "SELECT EditorWidth, EditorWidthType, EditorHeight, EditorHeightType " & _ "FROM Users " & _ "WHERE UserID = " & Session("User_ID") Set Conn2 = Server.CreateObject("ADODB.Connection") Set Rs2 = Server.CreateObject("ADODB.Recordset") Conn2.Open GetConStr ("..\..\SiteResources\Data\") Rs2.Open strSQL, Conn2 If Not Rs2.EOF And Not Rs2.BOF Then vHeight = Rs2("EditorHeight").Value vHeightType = Rs2("EditorHeightType").Value vWidth = Rs2("EditorWidth").Value vWidthType = Rs2("EditorWidthType").Value End If If Len(vHeight) < 1 Then vHeight = "600" If Len(vWidth) < 1 Then vWidth = "98" If CStr(vHeightType) = "1" Then' 0=px, 1=% vHeight = vHeight & "%" End If If CStr(vWidthType) = "1" Then' 0=px, 1=% vWidth = vWidth & "%" End If Rs2.Close Conn2.Close Set Rs2 = Nothing Set Conn2 = Nothing End If vActiveLanguage = "" vActiveLanguage = Session("lang") vUseBR = GetSettingValue("EditorUseBR", "..\..\SiteResources\Data\") If CStr(vUseBR) = "1" Then vUseBR = "true" Else vUseBR = "false" End If vEditorEditorButtons = Trim( GetSettingValue("EditorStyleButtons", "..\..\SiteResources\Data\") ) If CStr(vEditorEditorButtons) = "1" Then vEditorEditorButtons = True Else vEditorEditorButtons = False End If vEditorStylesheet = Trim( GetSettingValue("EditorStylesheet", "..\..\SiteResources\Data\") ) If Trim(vEditorStylesheet) = "none" Or InStr(vEditorStylesheet, "css") < 1 Then vEditorStylesheet = "" End If ' --------------------------------------------------------- %> <% If vInField = "" Then %>

<%=langLabelEditDocument%>

<% End If If vDocID <> 0 Then %>
<% If vInField = "" Then %>
<%=langLabelDocumentName%>
<%=langLabelPublish%> " id="Text1"> " id="Text2">
<%=langLabelExpire%> " id="Text3"> " id="Text4">
<%=langLabelStatus%>   <%= TranslateDocStatus( strActiveStatus ) %>

<% Else %>
<% For Each strTab In Split( strContents, "||" ) Response.Write strTab Next %>
     <%=langLabelProperties%>     
 
 
<% End If %> <% '---- Dynamic Fields ------------------------------------------------------------------------------- %> <% ' ///// <%= GetFieldValue(Fields(Ix)) %> <% IF isExternal = 0 Then %> <% For I=LBound(Fields) To UBound(Fields)-1 If vInField = "" Or I = CInt(vInField)-1 Then %> <% End If Next %> <% End If '// isExternal %> <% '---- End Dynamic Fields --------------------------------------------------------------------------- %>
 
 <%= FieldLabels(I) %> <% If FieldTypes(I) = "w" Then ' /// WYSIWYG %> <% End If If FieldTypes(I) = "m" Then ' /// Memo call writeMemo(I) ElseIf FieldTypes(I) = "t" Then ' /// Text call writeText(I) ElseIf FieldTypes(I) = "d" Then ' /// Date writeDate(I) ElseIf FieldTypes(I) = "i" Then ' /// Image writeImage(I) ElseIf FieldTypes(I) = "f" Then ' /// File writeFile(I) ElseIf FieldTypes(I) = "l" Then ' /// Internal Link writeInternalLink(I) ElseIf FieldTypes(I) = "c" Then ' /// CheckBox writeCheckBox(I) End If %>  
 

             <% If Session("xView") = "Tree" Then %><% If (strActiveStatus = "1") OR (strActiveStatus = "3") Then %>

   <% End If %> <% If Session("User_isPublisher") = 1 then If strActiveStatus <> "5" Then %>    <% End If %> <% End If %> <% End If %>

<% Else %>

<%=langErrorSelectADoc%>

<% End If %>