<%@ 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 2 (6)
"Partyt smygstartar"
Vid 18 tiden började det droppa in folk! Nästan hundra personer gick tipspromenaden! Vinnare blev Bengt Pettersson (Bengans farsa...)
Han hade 12rätt, ingen hade alla rätt! Vill du kolla frågorna?
Klicka här! Här kan du även se de rätta svaren!
<% 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)%>