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

20051105
The BluesBrothers! "We're on a mission from god"  Det var ett riktigt party i Ållebergsbaren och det var svart hatt, kostym och slips!
<% 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)%>

Ni kommer väl ihåg inbjudan...

BluesBrothersparty på Ålleberg! Missa Vi kollar på filmen och dricker Amerikanska öl! Alla måste vara utklädda. Svart Välkomna! Slå en signal eller skicka ett SMS på: 070-5654888


It's 106miles to Chicago, we got a full tank of gas, half a packet of cigarettes, it's dark and we're wearing sunglasses! -- Hit it!