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

Slutet på Juli.
Semestern snart slut... Bobben får hedersuppdrag att plan ut makadam. Bengt Bergman fortsätter röjarbetet på baksidan och får hedersomnämnade av naturvårdsverket! (Man har hittat örter och sällsynta blommor på tomten) Stor plåt kapas och svetsas av byggmästare Floberg. Horst hälsar på med babe från Skåne. Bilder från dammen vid Agnestad (räkna med nåt liknande på Ålleberg :-)
<% 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)%>