<%@ 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 ' ------------------------------------------------------- If Session("DocID") <> 0 Then Dim Conn, Conn2, Rs, Rs2, SQL, SQL2, vText1, vText2 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 End IF ' ------------------------------------------------------- %>

<%=langLabelDocumentInfo%>

<% If Session("DocID") <> 0 Then xPath = Server.MapPath("..\..\SiteResources\Data\Templates\" + Rs("TemplateURL").Value) %>

<%=langLabelProperties%>
ID	<%= Rs("DocumentID").Value %>
Parent ID	<%= Rs("ParentID").Value %>
<%=langLabelSortOrder%>	<%= Rs("SortOrder").Value %>
<%=langLabelDocumentName%>	<%= Rs("DocName").Value %>
<%=langLabelTemplate%>	<%= Rs("TemplateURL").Value %>
<%=langLabelCreated%>	<%= FormatDate(Rs("CreatedDate").Value) + vText1%>
<%=langLabelModified%>	<%= FormatDate(Rs("ModifiedDate").Value) %>
<%=langLabelPublish%>	<%= FormatDate(Rs("PublishDate").Value) %>
<%=langLabelExpire%>	<%= FormatDate(Rs("ExpiresDate").Value) %>

<% Set Rs = Nothing Set Conn = Nothing Else Response.Write(langErrorSelectADoc) End If %>