Dim hasPlayer, playerversion hasPlayer = false playerversion = 15 Do While playerversion > 0 On Error Resume Next hasPlayer = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & playerversion))) If hasPlayer = true Then Exit Do playerversion = playerversion - 1 Loop MFPSPESPL.fv = playerversion MFPSPESPL.isf = hasPlayer 16 de Dezembro de 2010 Notícias Brasil Carros Cidades Economia Esquisitices Imóveis Internacional Rio de Janeiro São Paulo Saúde Tecnologia e Ciência Tempo Agora Trânsito Vestibular e Concursos Entretenimento Bate-papo Bichos Blogs Cinema Estrelando Famosos e TV Jovem Moda e Beleza Música Namoro Prêmios Receitas e Dietas Viajar Direto Esportes Automobilismo Copa 2010 Esportes Olímpicos Cingapura 2010 Futebol Mais Esportes Vídeos Videolog E-mail Especiais A Fazenda Eleições...