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

20040327
Johanna Geust, distriktsveterinär opererar och Liselotte "Lillill" Roslundh, djursjukvårdare assisterar. Hembesök är det allra bästa för en Veterinärer gör ofta avancerade kirurgiska ingrepp på hästar och kor och en sterilisering av en liten honkatt är ett LITET ingrepp för en veterinär men ett STORT ingrepp för katten!
<% 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)%>