<% Response.charset="utf-8" dim c c=vbcrlf dim q q=chr(34) dim hDoc dim hFS Set hFS=Server.CreateObject("Scripting.FileSystemObject") Set hDoc=hFS.OpenTextFile(server.mappath("/") & "\header.txt", 1) Response.Write hDoc.ReadAll hDoc.Close dim oldCP oldCP = session.CodePage session.CodePage = 65001 'utf-8 'moet na het doorgeven van header.txt, anders verschijnt daarvan de BOM Sub BorderIn(w, h) Response.Write _ "" & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ " " & c & _ "



		" End Sub Sub BorderOut() Response.Write _ "

" End Sub %> <% Set hDoc = hFS.OpenTextFile(server.mappath("/") & "\eventi.txt", 1) dim eDat: dim eLoc: dim eIco: dim eDes For x=1 to hDoc.ReadLine eDat=hDoc.ReadLine eLoc=hDoc.ReadLine eIco=hDoc.ReadLine eDes=hDoc.ReadLine if x=1 then Response.Write "" & c & "" & c Next hDoc.Close %>

" & c else Response.Write "

" & c end if call BorderIn(75, 75) if eIco <> "" then Response.Write " & q &

" call BorderOut() eLoc = eLoc & "" if eLoc <> "" then eLoc = eLoc & ", " Response.Write "

" & eLoc & eDat & "

" & eDes & "

<% session.CodePage=oldCP 'terug naar normaal, zie boven; meestal is dat 1252 set hFS=Nothing set hDoc=Nothing %>