<%@ 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
Juli -Augusti
Juli-Augusti. Sussie & Sanna busar runt hela Ålleberg. Gymbullen visar
stolt upp "Iso" en riktigt bortskämd katt som aldrig sett en råtta!
Sanna tycker mycket om husses ryggsäck!
<%
i=0
For each file in fc
if (Mid(file.name,Len(file.name)-2,3)= "gif" ) then
if i mod 8 = 0 then %>