<%@ 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
Juni. Sommar!
Provar nya Olympuskameran som går att fota med under vatten!
Fortsatt bygge av ny altan och småpluttarna Oskar och Walter kommer på
grillning. Röjning av gräs på baksidan
<%
i=0
For each file in fc
if (Mid(file.name,Len(file.name)-2,3)= "gif" ) then
if i mod 8 = 0 then %>