dim L1(9)
dim L2(9)
dim L3(9)
dim L4(9)

I = 0
document.write("<br><div align='center'>")

if curdat < "20100720" then
   L1(I) = "Week-end du 17 juillet : "
   L2(I) = "Kermesse d'été"
   L3(I) = "Tél. 061/46.41.00"
   I = I + 1
end if
if curdat < "20100810" then
   if curdat < "20080712" then	
      L1(I) = "Les 8 juillet et 5 août : "
   else
      L1(I) = "Le 5 août : "
   end if
   L2(I) = "Marché nocturne"
   L3(I) = "Tél. 061/46.65.23"
   I = I + 1
end if
if curdat < "20100723" then
   L1(I) = "Le 21 juillet :" 
   L2(I) = "Feu d'artifice à Bouillon"
   L3(I) = "Tél. 061/46.42.12"
   I = I + 1
end if
if curdat < "20100510" then
   L1(I) = "Le dimanche 9 mai : "
   L2(I) = "Grande brocante "
   L3(I) = "0477 48 56 52"
   I = I + 1
end if
if curdat < "20100830" then
   L1(I) = "Le 28 août à Bouillon : "
   L2(I) = "<a href=http://www.info-bouillon.be/agenda.php?id=1702>Découverte de l’ancienne culture du tabac</a>"
   L3(I) = "</a>Tél. +32 61 43 66 90"
   I = I + 1
end if
if curdat < "20100830" and curdat > "20100807" then
   L1(I) = "Du 27/08 au 30/08 à Corbion :" 
   L2(I) = "Kermesse annuelle" 
   L3(I) = ""
   I = I + 1
end if


if curdat < "20081215" then
   L1(I) = "C'est l'automne !"
   L2(I) = "Réservez vos menus de chasse"
   L3(I) = "dans les <a href='hotels.htm' target='mainFrame'>hôtels</a> et les <a href='restaurants.htm' target='mainFrame'>restaurants</a><sp>"
   I = I + 1
end if
if curdat < "20070405" then
   L1(I) = "<sp>Les 31 mars et 1° avril" 
   L2(I) = "Marché médiéval à Bouillon<br>Rens.: +32 61 46 83 03"
   L3(I) = "<a href=http://www.info-bouillon.be/agenda.php?id=958>www.info-bouillon.be</a>" 
   I = I + 1
end if
if curdat < "20060822" then
   L1(I) = "Du 13/07 au 20/08 :" 
   L2(I) = "<a href=http://www.lafontinelle.be> Exposition à la Fontinelle</a>" 
   I = I + 1
end if
if curdat < "20060829" then
   L1(I) = "Le 27/08 à Frahan :" 
   L2(I) = "Coupe de Belgique<br>de pêche à la mouche" 
   L3(I) = "A la Ferme pour Enfants de Frahan"
   I = I + 1
end if


if curdat < "20060912" then
   L1(I) = "Les 8,9 et 10 septembre :" 
   L2(I) = "<a href=http://www.grandraidgodefroy.be/fr/edition/index_2006.htm>Grand Raid Godefroy</a>" 
   I = I + 1
end if

if curdat < "20060815" then
   L1(I) = "Le 12/08 : Festival médiéval<br>à Bouillon" 
   L2(I) = "<a href=http://www.info-bouillon.be/agenda.php?id=664>www.info-bouillon.be</a>"
   L3(I) = ""
   I = I + 1
end if
if curdat < "20101006" and curdat > "20100515" then
   L1(I) = "Du 1 au 4 octobre : "
   L2(I) = "<a href=http://www.cdj-rochehaut.be target='mainFrame'> Kermesse d'automne</a>"
   L3(I) = "Tél. 061/46.41.00"
   I = I + 1
end if

if curdat < "20061102" then
   L1(I) = "Du 1° au 31 octobre :"
   L2(I) = "Exposition des peintures de Yannick Piron aux « Croisettes »" 
   L3(I) = "Tél +32 61 53 53 34"
   I = I + 1
end if
if curdat < "20061016" then
   L1(I) = "<sp>Le 14/10/2006" 
   L2(I) = "Soirée Oberbayern à Mogimont"
   L3(I) = "Organisée par : ESC POUPEHAN<br>Tél 061 46 80 00" 
   I = I + 1
end if
if curdat < "20061017" then
   L1(I) = "Le 14/10 : Promenade guidée" 
   L2(I) = "Promenade des Echelles<br>Départ à 14h15 devant l'église"
   L3(I) = "<a href=http://www.natureloisirs.com>www.natureloisirs.com</a>" 
   I = I + 1
end if
if curdat < "20081113" then
   L1(I) = "<sp>Le 11 novembre 2008 :" 
   L2(I) = "Fête de la chasse à Bouillon"
   L3(I) = "Rens.: SI Bouillon - 061 46 62 57<br><a href=http://www.bouillon-tourisme.be/index.php?page1=g-agenda.htm&lg=fpdb/boutoufr&info=1&id=636>www.bouillon-tourisme.be</a>" 
   I = I + 1
end if
if curdat < "20081102" then
   L1(I) = "Chaque dimanche matin <br>d’avril à octobre :" 
   L2(I) = "Marché à Bouillon" 
   L3(I) = ""
   I = I + 1
end if

if curdat < "20061121" then
   L1(I) = "Les 18 et 19 novembre :" 
   L2(I) = "<a href=http://www.fermedesfees.be target='_mainframe'>Journée Portes ouvertes à la Ferme des Fées</a>"
   L3(I) = ""
   I = I + 1
end if
if curdat < "20061127" then
   L1(I) = "Le 25/11 à Poupehan :" 
   L2(I) = "Concours de Couyon" 
   L3(I) = "Cafétaria du Foot"
   I = I + 1
end if
if curdat < "20061214" then
   L1(I) = "Les 9,10 et 12/12 à Bouillon :" 
   L2(I) = "Marché de Noël" 
   L3(I) = "esplanade de l’Archéoscope<br>Tél: +32 61/46.70.61"
   I = I + 1
end if
if curdat < "20061219" then
   L1(I) = "Le 16/12 à Bouillon :" 
   L2(I) = "Concert de noël" 
   L3(I) = "Eglise de Bouillon"
   I = I + 1
end if
if curdat < "20070213" then
   L1(I) = "Le 11/02 à 16h à l'église:" 
   L2(I) = "Chants classiques et chants médiévaux<br>Par la chorale de l'harmonique d'Anloy" 
   L3(I) = "Tél. +32 477/48 56 52 "
   I = I + 1
end if
Lagenda = ""
I = 0
DO until I > 8
   if L1(I) = "" then
      exit do
   end if
   'document.write("<H5>" & L1(I) & "</H5><h4>" & L2(I) & "</H4><font size='-1'>" & L3(I) & "<br>" & L4(I) & "</font>")
   document.write("<H5>" & L1(I) & "</H5><h4>" & L2(I) & "</H4><font size='-1'>" & L3(I)  & "</font>")
   I = I + 1
loop
document.write("</div>")
if curdat < "20050215" then
   L1(I) = "Dimanche 13 février : "
   L2(I) = "Grand feu"
   L3(I) = "Tél. 061/46.41.00"
   I = I + 1
end if