sub Window_OnLoad()

	if CDbl(Time()) > 0 and CDbl(Time()) <= .25 then
		document.title="Goedenacht : Welkom op Janssens-Demoor.be"
	elseif CDbl(Time()) > .25 and CDbl(Time()) <= .5 then
		document.title="Goedemorgend : Welkom op Janssens-Demoor.be"
	elseif CDbl(Time()) > .5 and CDbl(Time()) <= .75 then
		document.title="Goede namiddag : Welkom op Janssens-Demoor.be"
	elseif CDbl(Time()) > .75 and CDbl(Time()) <= 1 then
		document.title="Goedeavond : Welkom op Janssens-Demoor.be"
	end if
	
end sub