<%@ 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 ' ------------------------------------------------------- Function GetUserName(vField) Set Conn5 = Server.CreateObject("ADODB.Connection") Set Rs5 = Server.CreateObject("ADODB.Recordset") Conn5.Open GetConStr ("..\..\SiteResources\Data\") SQL5 = "SELECT FirstName, LastName FROM Users WHERE UserID=" & vField Rs5.Open SQL5, Conn5 GetUserName= Rs5("FirstName").Value & " " & Rs5("LastName").Value 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" 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") 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 ' ------------------------------------------------------- ' -- ' ------------------------------------------------------- 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 ' ---------------------------------------------------------------- Dim Conn, Conn2, Rs, Rs2, SQL, SQL2, vText1, vText2, isExternal, strContents, strActiveStatus 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=" & Session("DocID") Rs.Open SQL, Conn strActiveStatus = GetDocumentStatus( Session("DocID"), Session("contentLanguage"), Conn ) strActiveName = GetDocumentName( Session("DocID"), Session("contentLanguage"), Conn ) If Rs("ExternalPage").Value = 0 Then Call LoadFields(Rs("TemplateURL").Value) ' /// Load fields using parser /// isExternal = 0 Else isExternal = 1 End IF ' ---------------------------------------------------------------- ' ---------------------------------------------------------------- ' ---------------------------------------------------------------- %>

<%=langLabelEditDocument%>

<%=langLabelDocumentName%>
<%=langLabelPublish%> "> ">
<%=langLabelExpire%> "> ">
<%=langLabelStatus%>   <%= TranslateDocStatus( strActiveStatus ) %>

<% '---- Properties Fields ------------------------------------------------------------------------------- %> <% IF isExternal = 0 Then %> <% End If '// isExternal %> <% '---- End Properties Fields --------------------------------------------------------------------------- %>
<%=strContents%>
     <%=langLabelProperties%>     
 
 
<% CD = Rs("CreatedDate").Value CD = Year(CD) & "-" & FixNo(Month(CD)) & "-" & FixNo(Day(CD)) %> <% MD = Rs("ModifiedDate").Value MD = Year(MD) & "-" & FixNo(Month(MD)) & "-" & FixNo(Day(MD)) %>
 ID   <%= Rs("DocumentID").Value %>
 Parent ID   <%= Rs("ParentID").Value %>
 
 <%=langLabelSortOrder%>   ">
 <%=langLabelFolderPage%>
 Searchable   <%If Rs("Searchable").Value = 1 Then strSearchableYes=" selected=""selected""" If Rs("Searchable").Value = 0 Then strSearchableNo=" selected=""selected"""%>
 Membership Level   ">(0-5)
 <%=langLabelExternalURL%>   ">
 <%=langLabelExternalFrame%>   ">
 Extra 1 ">
 Extra 2 ">
 Extra 3 ">
 
 <%=langLabelCreated%>   <%= CD %>
 <%=langLabelCreatedBy%> <%= GetUserName(Rs("CreatedBy").Value) %>
 
 <%=langLabelModified%>   <%= MD %>
 <%=langLabelModifiedBy%> <%= GetUserName(Rs("ModifiedBy").Value) %>
 
 <%=langLabelTemplate%>   <%= Rs("TemplateURL").Value %>" >