<%@ 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 ' ------------------------------------------------------- ' ------------------------------------------------------- %>
<% Set fso = Server.CreateObject("Scripting.FileSystemObject") xPath = Server.MapPath("..\..\SiteResources\Data\MediaArchive\Images\") Set f = fso.GetFolder(xPath) Dim RowItem RowItem = 1 For Each File In f.Files If RowItem = 1 Then response.write("") End If %> <% If RowItem = 5 Then Response.write("") RowItem = 1 Else RowItem = RowItem + 1 End if Next %>

 <%=langLabelImages%>

<%= File.Name %>