<%@ Language=VBScript %> <% 'Controller section 'Description 'Open the this folder and get all "gif files" 'Build a list with the folders and set fso = Server.CreateObject("Scripting.FileSystemObject") 'The current path 'Check this when not working if you move the file Set f = fso.GetFolder(Server.MapPath("./")) Set fc = f.Files %> www.alleberg.com

Lördag 13 Maj 2006 "40års festen" Del 6 (6)
Efterdyningarna..
Allt har en ände utom korven som har två! Partyt tog slut och sedan började två hårda arbetsdagar med alla prylar som ska plockas ihop och köras undan! Men lite smällar får man ta! Kanske blir det ett 41års kalas nästa år!.....

<% i=0 For each file in fc if (Mid(file.name,Len(file.name)-2,3)= "gif" ) then if i mod 8 = 0 then %><%end if%> <% if i mod 8 = 8 then %><%end if i=i+1 end if next %>
www.alleberg.com <%=Mid(file.name,1,Len(file.name)-4)%>