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

Mars 2007
Nu är det vår! Sussie vill mer och mer vara ute och helst inte komma in till husse på natten utan vara ute och jaga sorkar! Visit på Agnestad hos Berta 16år (pluttarnas farmorsfarmor) Kattungarna leker för fullt på Bolibompas. Jaana och Sanna i sedvanlig köksposition.

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