<%@ 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
Slutet på Augusti.
Nya altanen ska nosas in. Inte populärt med förändringar.
Mössen lever farligt. Besök hos LillLill och Noah samt bilder på fin
katt uppe vid PAs. (farligt nära vägen)
<%
i=0
For each file in fc
if (Mid(file.name,Len(file.name)-2,3)= "gif" ) then
if i mod 8 = 0 then %>