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

20040411
Snobben åker på kattutställning i Uddevalla! Karin Törnell är med S*Bolibompas Umber Pearls Chimay Blue "Charlie" blir Europachamp! Men snobben kommer tvåa i långhårig huskattsklass och får beröm av domaren som säger att han utan vidare skulle kunna tävla som ren Norsk Skogskatt! Inte dåligt för en liten "bonnkatt"
 
<% 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)%>