on error resume next
Dim checkForFlash6
checkForFlash6 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))
if checkForFlash6 = true then
document.write("")
else
document.write("Pour accéder à l'intégralité des menus sur ce site, vous devez mettre à jour votre plug in Flash Player, il permet de consulter des sites Web dernière génération, intégrant de la vidéo, du texte, du son et des graphiques interactifs. Flash est un standard incontournable puisqu'il est déjà installé sur 98 % des ordinateurs de bureau. Télécharger Flash Player ")
end If