<%@ 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
20060319
Mitten på Mars och löjligt mycket snö! Stort tack till Christer
Fredricsson som kom med frontlastare och hjälpte Robert att komma till
jobbet... Fina solnedgångsbiler. Uppsättning av räcke vid trappan i
köket!
<%
i=0
For each file in fc
if (Mid(file.name,Len(file.name)-2,3)= "gif" ) then
if i mod 8 = 0 then %>