<%@ 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 ' ------------------------------------------------------- ' -- Global variables ' ------------------------------------------------------- Dim xPath ' ------------------------------------------------------- If Request.Form("Action").Item = "DELETE" Then Set fso = Server.CreateObject("Scripting.FileSystemObject") For Each Item In Request.Form("file") xPath = Server.MapPath("..\..\..\SiteResources\Data\Templates\") + "\" +Item fso.DeleteFile(xPath) Next End If ' ------------------------------------------------------- ' ------------------------------------------------------- %>

 

<% Set fso = Server.CreateObject("Scripting.FileSystemObject") xPath = Server.MapPath("..\..\..\SiteResources\Data\Templates\") Set f = fso.GetFolder(xPath) For Each File In f.Files If LCase(Right(File.Name,4)) = ".asp" Then %> <% ListBG = BGswap( ListBG ) End If Next %>

 <%=langListTemplates%>
<%=langListView%> <%=langListAction%> <%=langListDelete%> <%=langListName%> <%=langListSize%> <%=langListCreated%> <%=langListModified%>
<%=langLabelTemplate%> / <%=langMenuDocuments%> SyncReport <%= File.Name %> <%= Round((File.Size / 1024)) %>KB <%= File.DateCreated %> <%= File.DateLastModified %>