<%@ 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
Augusti
En fin sommar med mycket bus. Den 14 Augusti klockan 19 hoppar det fram
en helt utmärglad katt under soffan! En övergiven sommarkatt bara skinn
och ben som blev adopterad av husse! Simon blir en ny medlem i familjen!
<%
i=0
For each file in fc
if (Mid(file.name,Len(file.name)-2,3)= "gif" ) then
if i mod 8 = 0 then %>