" border="0">
" valign="top">	<% dim fso, _ folder, _ files Set fso = Server.CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(Server.MapPath("/files/krant/")) Set files = folder.Files %> <% For each fil in files Extension = right(fil.Name,3) If Instr(Extension,".") = 0 Then Extension = right(fil.Name, 4) %> <% Next %> Hieronder vind je al de verzamelde berichten uit de pers. Klik op de bestandsnaam om het artikel te lezen in een nieuw venster. Heb je ook nog een bericht dat hier niet staat, scan het in en mail het door naar webmaster@svloppem.be. Vergeet er niet bij te melden uit welke krant je dit haalde en wanneer je dit vond. Bestandsnaam Datum Grootte <%= fil.Name%> <%= MaakDatum(fil.DateCreated)%> <%= FormatNumber(CDbl(fil.Size/1024),2)%> Kb	" valign="top">