<%@ 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
20060430
Slutet April början Maj. Äntligen försvinner snön och pluttisarna kan gå
ut och jaga råttor! Bilder på Bengans katt "Ville" och LillLills
avelshundar Melvin och Dusse! (olydig) som tror de ska få åka bil till
kenneln!
<%
i=0
For each file in fc
if (Mid(file.name,Len(file.name)-2,3)= "gif" ) then
if i mod 8 = 0 then %>