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

Januari 2007
Gullepluttisarna provar på första snön! Det är INTE populärt! Storfrämmat av Jaana från Skara lantbruksuniversitet. Sanna charmar alla som vanligt! Sussie reserverad och blänger på alla! (till och med husse) Allt nytt i huset ska givetvis inspekteras och markeras (om och om igen)
<% 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)%>