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

20041023
Snobben vinner klassen "långhårig huskatt" i Tibro och går vidare till Nominering! 8st domare klämmer och pillar på en 6kgs tuff utekatt och det är inte populärt! men husse är stoltare än någonsin!  (Snobben får även hederspris av Värmlands kattklubb!)
 
<% 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)%>