<%@ 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
20030511
Äntligen är det Sommar! (vår) Jordbruket igång. Potatisen planterad.
Nya fina panoramabilder! (Klicka på bilden för helskärm)
 

Vårbruket igång! Agnestads stora potatisodlingar sträcker sig milsvida!

Långa fåror, mycket potatis blir det!

Rejäla doningar. CASE är det som gäller med fyrdubbla överliggande hjul

Grusvägen är gamla Jönköpingsvägen som transporterat människor i över 500 år! Först på 60-talet asfalterades "stora vägen"

360 Panoramabild! Klicka på bilden för högre upplösning!
 
<% 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)%>