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

Sommarbilder Juli-Augusti!
Inte så många grillpatyn, men grannen tittar in du pch då! Patrik "Nalle" Alm på besök med Alu "Urru" Hedersträmmat från STH med Jon Karlung. Salomon grillar fläskfile och badar på Odenbadet nattetid! :-) 8Ej med på bild) Kusinbarnet hanna stormtrivs. T.o.m Bosse Lager med och inspekterar!
<% 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)%>