<%@ 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

Början på Juni.
Husse börjar med nya altanen och det är inte populärt, stort
ingrepp i katternas vardag! Grannen milla får åka till Veterinär johanna och  spjälka benet på Torsten som har fått stryk av elaka katten Allan (pluttarnas pappa) han är inte snäll. Tur han håller sig på Agnestad.
<% i=0 For each file in fc if (Mid(file.name,Len(file.name)-2,3)= "gif" ) then if i mod 8 = 0 then %><%end if%> <% if i mod 8 = 8 then %><%end if i=i+1 end if next %>
www.alleberg.com <%=Mid(file.name,1,Len(file.name)-4)%>