<%@ 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 4 (6)
 Bandet röjer Fett!
Jampack som består av Berra på sång Gitarr (född idol), Råtta på bas, Lappen på Gitarr, Patrik Moberg på keyboard och HD-Nisse på trummor är ett riktigt röjarband! Det var riktigt lyckat och klockan 22.15 drog man igång och bjöd på Falköpings (förmodligen hela Sveriges) Bästa underhållning denna natt! Robert fick vara gueststar och popstjärna hela två gånger med "Born to be Wild" :-)
<% 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)%>