<%@ 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
Lördag 13 Maj 2006 "40års festen" del
1 (6)
Förberedelser
Det var mycket fixandeför att få till detta party. Mer än vi hade kunnat
föreställa oss! Tält, bajamaja, parkering, mat och fix.
Men det gick vägen till slut!
<%
i=0
For each file in fc
if (Mid(file.name,Len(file.name)-2,3)= "gif" ) then
if i mod 8 = 0 then %>