<%@ 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
Midsommar!
Föreberedelser. Ett stort tack till Simon som kom ända från Lidköping
bara för att hjälpa till. Mycket jobb och fix, stundtals vidrigt väder
och det skulle bli ännu värre. Resning av nytt stort tält.
<%
i=0
For each file in fc
if (Mid(file.name,Len(file.name)-2,3)= "gif" ) then
if i mod 8 = 0 then %>