" border="0">
" valign="top">	<% dim fso, _ folder, _ files Set fso = Server.CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(Server.MapPath("/files/download/")) 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 een lijst met alle documenten en brieven die uitgedeeld werden gedurende het seizoen. Ben je dus een blaadje verloren of wil je snel nog even controleren zonder te moeten zoeken? Klik dan hieronder op het gewenste item en het zal automatisch openenen. Om het bestand op te slaan op je eigen harde schijf, rechts klik dan op de bestandsnaam en klik op Doel Opslaan als. Om sommige bestande te bekijken heb je Acrobat Reader nodig. Dit is gratis en te downloaden op deze site Bestandsnaam Datum Grootte <%= fil.Name%> <%= MaakDatum(fil.DateCreated)%> <%= FormatNumber(CDbl(fil.Size/1024),2)%> Kb	" valign="top">