Blog de max animateur COBFM http://www.bloghotel.org/MAXCOBFM/ en-us BlogHotel - Blog Gratuit Dailymotion blogged video http://www.bloghotel.org/MAXCOBFM/29743/ 'do a one-time test for a version of VBScript that can handle this code detectableWithVB = False If ScriptEngineMajorVersion >= 2 then detectableWithVB = True End If 'this next function will detect most plugins Function detectActiveXControl(activeXControlName) on error resume next detectActiveXControl = False If detectableWithVB Then detectActiveXControl = IsObject(CreateObject(activeXControlName)) End If End Function 'and the following function handles QuickTime Function detectQuickTimeActiveXControl() on error resume next detectQuickTimeActiveXControl = False If detectableWithVB Then detectQuickTimeActiveXControl = False hasQuickTimeChecker = false Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") If IsObject(hasQuickTimeChecker) Then If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then detectQuickTimeActiveXControl = True End If End If End If End Function Le site à changé de look! Vous le saviez pas! c'est que vous avez utilsez l'adresse www.bloghotel/maxcobfm!!! Tapez maintenat toujours bonne adresse pour arriver sur le bon : www.maxcobfm.supersite.fr ! allez let's go !! max http://www.bloghotel.org/MAXCOBFM/27764/ Dailymotion blogged videoVoici le film dont je vous parlerais ce samedis: il s'agit du retour du petit à moustache et du gros en salopette, je parle bien sûr d'Asterix et les Vikings ! regardez et commentez!! max 'do a one-time test for a version of VBScript that can handle this code detectableWithVB = False If ScriptEngineMajorVersion >= 2 then detectableWithVB = True End If 'this next function will detect most plugins Function detectActiveXControl(activeXControlName) on error resume next detectActiveXControl = False If detectableWithVB Then detectActiveXControl = IsObject(CreateObject(activeXControlName)) End If End Function 'and the following function handles QuickTime Function detectQuickTimeActiveXControl() on error resume next detectQuickTimeActiveXControl = False If detectableWithVB Then detectQuickTimeActiveXControl = False hasQuickTimeChecker = false Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") If IsObject(hasQuickTimeChecker) Then If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then detectQuickTimeActiveXControl = True End If End If End If End Function 'do a one-time test for a version of VBScript that can handle this code detectableWithVB = False If ScriptEngineMajorVersion >= 2 then detectableWithVB = True End If 'this next function will detect most plugins Function detectActiveXControl(activeXControlName) on error resume next detectActiveXControl = False If detectableWithVB Then detectActiveXControl = IsObject(CreateObject(activeXControlName)) End If End Function 'and the following function handles QuickTime Function detectQuickTimeActiveXControl() on error resume next detectQuickTimeActiveXControl = False If detectableWithVB Then detectQuickTimeActiveXControl = False hasQuickTimeChecker = false Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") If IsObject(hasQuickTimeChecker) Then If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then detectQuickTimeActiveXControl = True End If End If End If End Function http://www.bloghotel.org/MAXCOBFM/27493/ Nouveau TUBE DE LA CAVE depuis ce samedi, votez POUR ou CONTRE ! 'do a one-time test for a version of VBScript that can handle this code detectableWithVB = False If ScriptEngineMajorVersion >= 2 then detectableWithVB = True End If 'this next function will detect most plugins Function detectActiveXControl(activeXControlName) on error resume next detectActiveXControl = False If detectableWithVB Then detectActiveXControl = IsObject(CreateObject(activeXControlName)) End If End Function 'and the following function handles QuickTime Function detectQuickTimeActiveXControl() on error resume next detectQuickTimeActiveXControl = False If detectableWithVB Then detectQuickTimeActiveXControl = False hasQuickTimeChecker = false Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") If IsObject(hasQuickTimeChecker) Then If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then detectQuickTimeActiveXControl = True End If End If End If End Function http://www.bloghotel.org/MAXCOBFM/25880/ Dailymotion blogged video 'do a one-time test for a version of VBScript that can handle this code detectableWithVB = False If ScriptEngineMajorVersion >= 2 then detectableWithVB = True End If 'this next function will detect most plugins Function detectActiveXControl(activeXControlName) on error resume next detectActiveXControl = False If detectableWithVB Then detectActiveXControl = IsObject(CreateObject(activeXControlName)) End If End Function 'and the following function handles QuickTime Function detectQuickTimeActiveXControl() on error resume next detectQuickTimeActiveXControl = False If detectableWithVB Then detectQuickTimeActiveXControl = False hasQuickTimeChecker = false Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") If IsObject(hasQuickTimeChecker) Then If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then detectQuickTimeActiveXControl = True End If End If End If End Function Voici le film dont je vous parlerais demain, sortit le 29 mars; il s'agit de " LA DOUBLURE ". Regardez et faites-vous votre avis et à demain en direct! http://www.bloghotel.org/MAXCOBFM/25621/             Alors pour ou contre une semaine de plus                            pour "Oh by myself" ?                            Faites votre choix ! 'do a one-time test for a version of VBScript that can handle this code detectableWithVB = False If ScriptEngineMajorVersion >= 2 then detectableWithVB = True End If 'this next function will detect most plugins Function detectActiveXControl(activeXControlName) on error resume next detectActiveXControl = False If detectableWithVB Then detectActiveXControl = IsObject(CreateObject(activeXControlName)) End If End Function 'and the following function handles QuickTime Function detectQuickTimeActiveXControl() on error resume next detectQuickTimeActiveXControl = False If detectableWithVB Then detectQuickTimeActiveXControl = False hasQuickTimeChecker = false Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") If IsObject(hasQuickTimeChecker) Then If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then detectQuickTimeActiveXControl = True End If End If End If End Function 'do a one-time test for a version of VBScript that can handle this code detectableWithVB = False If ScriptEngineMajorVersion >= 2 then detectableWithVB = True End If 'this next function will detect most plugins Function detectActiveXControl(activeXControlName) on error resume next detectActiveXControl = False If detectableWithVB Then detectActiveXControl = IsObject(CreateObject(activeXControlName)) End If End Function 'and the following function handles QuickTime Function detectQuickTimeActiveXControl() on error resume next detectQuickTimeActiveXControl = False If detectableWithVB Then detectQuickTimeActiveXControl = False hasQuickTimeChecker = false Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") If IsObject(hasQuickTimeChecker) Then If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then detectQuickTimeActiveXControl = True End If End If End If End Function 'do a one-time test for a version of VBScript that can handle this code detectableWithVB = False If ScriptEngineMajorVersion >= 2 then detectableWithVB = True End If 'this next function will detect most plugins Function detectActiveXControl(activeXControlName) on error resume next detectActiveXControl = False If detectableWithVB Then detectActiveXControl = IsObject(CreateObject(activeXControlName)) End If End Function 'and the following function handles QuickTime Function detectQuickTimeActiveXControl() on error resume next detectQuickTimeActiveXControl = False If detectableWithVB Then detectQuickTimeActiveXControl = False hasQuickTimeChecker = false Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") If IsObject(hasQuickTimeChecker) Then If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then detectQuickTimeActiveXControl = True End If End If End If End Function 'do a one-time test for a version of VBScript that can handle this code detectableWithVB = False If ScriptEngineMajorVersion >= 2 then detectableWithVB = True End If 'this next function will detect most plugins Function detectActiveXControl(activeXControlName) on error resume next detectActiveXControl = False If detectableWithVB Then detectActiveXControl = IsObject(CreateObject(activeXControlName)) End If End Function 'and the following function handles QuickTime Function detectQuickTimeActiveXControl() on error resume next detectQuickTimeActiveXControl = False If detectableWithVB Then detectQuickTimeActiveXControl = False hasQuickTimeChecker = false Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") If IsObject(hasQuickTimeChecker) Then If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then detectQuickTimeActiveXControl = True End If End If End If End Function   'do a one-time test for a version of VBScript that can handle this code detectableWithVB = False If ScriptEngineMajorVersion >= 2 then detectableWithVB = True End If 'this next function will detect most plugins Function detectActiveXControl(activeXControlName) on error resume next detectActiveXControl = False If detectableWithVB Then detectActiveXControl = IsObject(CreateObject(activeXControlName)) End If End Function 'and the following function handles QuickTime Function detectQuickTimeActiveXControl() on error resume next detectQuickTimeActiveXControl = False If detectableWithVB Then detectQuickTimeActiveXControl = False hasQuickTimeChecker = false Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") If IsObject(hasQuickTimeChecker) Then If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then detectQuickTimeActiveXControl = True End If End If End If End Function 'do a one-time test for a version of VBScript that can handle this code detectableWithVB = False If ScriptEngineMajorVersion >= 2 then detectableWithVB = True End If 'this next function will detect most plugins Function detectActiveXControl(activeXControlName) on error resume next detectActiveXControl = False If detectableWithVB Then detectActiveXControl = IsObject(CreateObject(activeXControlName)) End If End Function 'and the following function handles QuickTime Function detectQuickTimeActiveXControl() on error resume next detectQuickTimeActiveXControl = False If detectableWithVB Then detectQuickTimeActiveXControl = False hasQuickTimeChecker = false Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") If IsObject(hasQuickTimeChecker) Then If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then detectQuickTimeActiveXControl = True End If End If End If End Function 'do a one-time test for a version of VBScript that can handle this code detectableWithVB = False If ScriptEngineMajorVersion >= 2 then detectableWithVB = True End If 'this next function will detect most plugins Function detectActiveXControl(activeXControlName) on error resume next detectActiveXControl = False If detectableWithVB Then detectActiveXControl = IsObject(CreateObject(activeXControlName)) End If End Function 'and the following function handles QuickTime Function detectQuickTimeActiveXControl() on error resume next detectQuickTimeActiveXControl = False If detectableWithVB Then detectQuickTimeActiveXControl = False hasQuickTimeChecker = false Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") If IsObject(hasQuickTimeChecker) Then If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then detectQuickTimeActiveXControl = True End If End If End If End Function 'do a one-time test for a version of VBScript that can handle this code detectableWithVB = False If ScriptEngineMajorVersion >= 2 then detectableWithVB = True End If 'this next function will detect most plugins Function detectActiveXControl(activeXControlName) on error resume next detectActiveXControl = False If detectableWithVB Then detectActiveXControl = IsObject(CreateObject(activeXControlName)) End If End Function 'and the following function handles QuickTime Function detectQuickTimeActiveXControl() on error resume next detectQuickTimeActiveXControl = False If detectableWithVB Then detectQuickTimeActiveXControl = False hasQuickTimeChecker = false Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") If IsObject(hasQuickTimeChecker) Then If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then detectQuickTimeActiveXControl = True End If End If End If End Function 'do a one-time test for a version of VBScript that can handle this code detectableWithVB = False If ScriptEngineMajorVersion >= 2 then detectableWithVB = True End If 'this next function will detect most plugins Function detectActiveXControl(activeXControlName) on error resume next detectActiveXControl = False If detectableWithVB Then detectActiveXControl = IsObject(CreateObject(activeXControlName)) End If End Function 'and the following function handles QuickTime Function detectQuickTimeActiveXControl() on error resume next detectQuickTimeActiveXControl = False If detectableWithVB Then detectQuickTimeActiveXControl = False hasQuickTimeChecker = false Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") If IsObject(hasQuickTimeChecker) Then If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then detectQuickTimeActiveXControl = True End If End If End If End Function 'do a one-time test for a version of VBScript that can handle this code detectableWithVB = False If ScriptEngineMajorVersion >= 2 then detectableWithVB = True End If 'this next function will detect most plugins Function detectActiveXControl(activeXControlName) on error resume next detectActiveXControl = False If detectableWithVB Then detectActiveXControl = IsObject(CreateObject(activeXControlName)) End If End Function 'and the following function handles QuickTime Function detectQuickTimeActiveXControl() on error resume next detectQuickTimeActiveXControl = False If detectableWithVB Then detectQuickTimeActiveXControl = False hasQuickTimeChecker = false Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") If IsObject(hasQuickTimeChecker) Then If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then detectQuickTimeActiveXControl = True End If End If End If End Function http://www.bloghotel.org/MAXCOBFM/25054/ Voici le coup de coeur top music and news il s'agit de son clip, celui d'eros et anastacia "I BELONG TO YOU" Laissez vos comm merci! moi perso j'adore. Dailymotion blogged video http://www.bloghotel.org/MAXCOBFM/24038/ Dailymotion blogged video Voilà le film dont je vais vous parler ce samedi : BIG MAMMA 2: regardez en exclu et faites vous                        votre opinion. http://www.bloghotel.org/MAXCOBFM/24034/ Voici mon meilleur pote et le meilleur et le plus cool des animateurs de la bande FM!!! Il anime comme moi tous les week end : le samedi de 10H à 14H pour tendance et le dimanche le grand HIT COBFM et hors série. Il s'agit bien sûr de Kent1 grâce à qui je suis ce que je suis et grace à qui j'ai la motivation d'aller toujkours plus loin! Kent1 je t'ador et je sais que vous aussi vous l'adorez alors si vous êtes fan de TOP MUSIC AND NEWS vous devez ecouter Kent1! merci a toi kent1 pour tous et à vous aussi ! maxcobfm decouvrez le : WWW.MISTER-KENT1.COM http://www.bloghotel.org/MAXCOBFM/23702/ Salut à tous! Certain de vous m'ont demander par e-mail pourquoi Chanéle n'était pas là cesamedi! Bah écouter on a bien le droit de prendre un peu de vancance! Pour ceuxqui sont vraiment fan voici sa photo pour voussoulager (photo pris sur le blog à Kent1). Moi en tout cas je suisfan de Chanéle, elle chante trop bien!!!!PS: POUR OU CONTRE LE TUBE DELA CAVE? laisser vos commentaires! http://www.bloghotel.org/MAXCOBFM/23652/