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

Slutet på Maj.
Sanna busar vidare. Sussie inspekterar garagetaket. PMGs "Sandro" kommer på besök och bekantar sig med omgivningarna (inte populärt) Bilder på pluttarnas pappa "Allan" Ljus tänt för Snobben (Försvann 31 maj 2005) och LillLills pluttar begravda på baksidan.
<% 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)%>