Braambosjournaal

<% set mydirectory = server.createobject("scripting.filesystemobject") set myfiles = mydirectory.getfolder(server.mappath("./")) for each filefound in myfiles.files filenaam = filefound.name if inStr(filenaam,"bbjournaal") <> 0 then tekststuk1 = right(filenaam,15) aflevering = left(tekststuk1,2) tekststuk2 = right(tekststuk1,12) datum = left(tekststuk2,8) jaar = left(datum,4) datum2 = right(datum,4) maand = left(datum2,2) dag = right(datum2,2) select case maand case 1 mnd = "januari" case 2 mnd = "februari" case 3 mnd = "maart" case 4 mnd = "april" case 5 mnd = "mei" case 6 mnd = "juni" case 7 mnd = "juli" case 8 mnd = "augustus" case 9 mnd = "september" case 10 mnd = "oktober" case 11 mnd = "november" case 12 mnd = "december" end select schermdatum = dag & " " & mnd & " " & jaar response.write ("

Nr. " & aflevering & " - " & schermdatum & "

") end if next set mydirectory = nothing set myfiles = nothing %>