<%@ 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
20041021
höst och kallare klimat men pluttarna är lika busiga som vanligt! Snobben
får bada under tvång, fräs och klös men vill man vara fin inför
utställning får man lida pin!
<%
i=0
For each file in fc
if (Mid(file.name,Len(file.name)-2,3)= "gif" ) then
if i mod 8 = 0 then %>