<%@ 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 3 (6)
"Festen är igång"
Vid 21 snåret började det komma mycket folk! Grillarna brann för fullt och alla njöt av maten från Åkeströms restaurang! Utsökt marinad! Tack för det Kjell "Brell" Larsson! Stor presentutdelning! Väldigt fin handgjord stol från grannarna i Agnestad! Simon & Dani flög upp från Spanien enbart för detta party! Bra jobbat! Barcelona-Skavsta t.o.r + 60mil bilkörning! (Åkte med flyg tillbaka Söndag 14/5 kl 07.00...) Dedication kallas det...

Extrabonus!
Bild fotat av Ce-Ge Larsson från Ållebergsfiket 20.43! Klicka här!
<% 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)%>