un air ..mais du bon!!!

nostalgie

yfla.wrap("Ce contenu multimedia requiert Flash 9 (ou plus) pour u00eatre visualisu00e9.", "Installez Flash 9", "http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash", ""); Function VBGetSwfVer(i) on error resume next Dim swControl, swVersion swVersion = 0 set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i)) if (IsObject(swControl)) then swVersion = swControl.GetVariable("$version") end if VBGetSwfVer = swVersion End Function