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

Lördag 13 Maj 2006 "40års festen" Del 5 (6)
 Nu är det FULL rulle!
Vid 24tiden blev det riktigt kallt! Bandet höll igång in i det sista!
Ett riktigt röjarparty blev det på altanen! Tyvärr var någon lite för dansant och puttade omkull en grill! Men Eldsläkare fanns snabbt på plats! tack för lånet Vladimir Mausen och tack för ett snabbt inripande Jens Ivarsson och Christer Fredricsson! Bra med grannar som har koll på läget! Bosse Lager ordnade det mesta i "baren"

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