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

Augusti & September
Sussie är tillbaka hos sin älskade husse efter ha varit borta spårlöst i 10dagar. Nu är hon med igen och går nyfiket kring huset. Tyvärr är Sanna fortfarande väldigt elak mot henne och fräser, domderar och bestämmer. Husse får ofta gå emellan och trösta Sussie. Hunden virus var på besök och det var inte populärt!
<% 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)%>