<%@ 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

September.
Fortfarande höst men dagar med 25 plusgrader! Helt otroligt! Planering och uppstädning på baksidan (dammbygget!) Strul med kopplingen på hojen. Klippt gräset (jobbigt)
Skördat frukt på nyplanterade äppelträdet!


Tack Marie Willhelmsson för välsignelse av trädet!
Mycket ovanligt att ett nyplanterat träd bär frukt redan första året!
<% 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)%>