Set nw = WScript.CreateObject("WScript.Network") Set ie = CreateObject("internetexplorer.application") ie.Navigate ("http://www.boursorama.com") 'dates jr=array("dimanche","lundi","mardi","mercredi","jeudi","vendredi","samedi") ms=array("janvier","février","mars","avril","mai","juin","juillet","août","septembre","octobre","novembre","décembre") jourlong= jr(weekday(now)-1) & " " & day(now) & " " & ms(month(now)-1) & " " & year(now) & " - " & right("0" & hour(now),2) & ":" & right("0" & minute(now),2) noo=now-9/24/60 jourcourt=right("0" & day(noo),2) & "/" & right("0" & month(noo),2) & "/" & right("0" & year(noo),2) & " " & right("0" & hour(noo),2) & ":" & right("0" & minute(noo),2) txt="" '*********************************************** txt=txt & "" txt=txt & "Boursorama - Actualités économiques et financières" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "
" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "
" txt=txt & "" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "
" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "
" txt=txt & "
" txt=txt & jourlong txt=txt & "
" txt=txt & " 		" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "
" txt=txt & " " txt=txt & "" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "" txt=txt & "
  Client / Membre :
  Mot de passe :   
" txt=txt & "
" txt=txt & "
" txt=txt & "" txt=txt & "
" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "" txt=txt & "" txt=txt & " " txt=txt & "" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "
" txt=txt & " " txt=txt & " " txt=txt & "" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "" txt=txt & "" txt=txt & " " txt=txt & "
Cotations
" txt=txt & "Indices / Futures
" txt=txt & "Palmarès
" txt=txt & "Cours de A à Z
" txt=txt & "Indicateurs
" txt=txt & "Devises / Taux
" txt=txt & "Warrants
" txt=txt & "Trackers
" txt=txt & "Obligations
" txt=txt & "Sicav et Fcp
" txt=txt & "International " txt=txt & "
Informations
" txt=txt & "Actualités
" txt=txt & "Calendrier
" txt=txt & "Introductions
" txt=txt & "Votre invité
" txt=txt & "Rapports annuels
" txt=txt & "LCI Live
" txt=txt & "
Analyses
" txt=txt & "Conseils
" txt=txt & "Analyse tech.
" txt=txt & "Sectorama
" txt=txt & "L""""oeil des pros
" txt=txt & "Focus
" txt=txt & "Consensus" txt=txt & "
Découverte
" txt=txt & "Guides
" txt=txt & "Aide
" txt=txt & "Contactez-nous
" txt=txt & "
" txt=txt & "		" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "
" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "
" txt=txt & "" txt=txt & "
" txt=txt & " " txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "
Actualités économiques et financières
" txt=txt & "" txt=txt & "
AccueilActu MarchésActu SociétésActu Taux et DevisesActu GénéralesCalendrier
" txt=txt & "" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "
 
" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "
" txt=txt & " AWP le " & jourcourt txt=txt & "" txt=txt & "
" txt=txt & "
" txt=txt & "" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "" txt=txt & "
" txt=txt & "" nom=nw.username if nom="" then nom="Zaza" nom=Ucase(left(nom,1)) & right(nom,len(nom)-1) txt=txt & "Actualités : " & nom & " a été élu personnalité de l'année par les abonnés de Boursorama" txt=txt & "" txt=txt & "  
" txt=txt & "" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "
" txt=txt & "" txt=txt & "" txt=txt & "
" txt=txt & "" txt=txt & "
" txt=txt & "" txt=txt & "" txt=txt & "

L'élection par les abonnés de Boursorama de la personnalité de l'année a donné lieu a d'intenses débats.

Contrairement aux premières estimations de l'institut de sondage de Boursorama, c'est finalement un utilisateur régulier et fidèle qui a été choisi.
Son nom a été tiré au sort parmi les 20 000 abonnés les plus fidèles de Boursorama." txt=txt & "
" txt=txt & "C'est le nom de " & nom & "" txt=txt & " qui est finalement sorti des urnes et recevra les honneurs de la tribune de Boursorama." txt=txt & "" txt=txt & "
" txt=txt & "" txt=txt & "" txt=txt & "

" txt=txt & "AWP
© 2003 AWP. Tous droits de reproduction et de représentation réservés.
Toutes les informations reproduites dans cette rubrique (dépêches, photos, logos) sont protégées par des droits de propriété intellectuelle détenus par l'AWP. Par conséquent, aucune de ces informations ne peut être reproduite, modifiée, transmise, rediffusée, traduite, vendue, exploitée commercialement ou réutilisée de quelque manière que ce soit sans l'accord préalable écrit de l'AWP.
" txt=txt & "" txt=txt & "" txt=txt & "

" txt=txt & "
" txt=txt & "
" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "
Rechercher une valeur
" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "
Code, symbole ou libelléCatégoriePays 
" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "
" txt=txt & "
" txt=txt & "
" txt=txt & " " txt=txt & "


" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "
 " txt=txt & " " txt=txt & " Copyright © 1998-2003 BOURSORAMA - Contactez-nous
" txt=txt & " Cours différés d""""au moins 15 mn (Paris, Nasdaq, Francfort, Londres, Milan, Madrid,
Bruxelles, Amsterdam, Toronto)," txt=txt & " 20 mn (NYSE) ou 30 mn (Zürich).
Indices Paris, Bruxelles, Amsterdam, Francfort en temps réel.
" txt=txt & " Source Comstock, Fininfo et Standard & Poor""""s Fund Service.
Contrat d""""utilisation du service BOURSORAMA - Consultez notre avertissement légal.
" txt=txt & " Retrouvez Boursorama par téléphone 24h/24 au 0892 69 24 24 (0,34 E/mn)
et sur Minitel 3615 BOURSORAMA (0,196 E/mn)
" txt=txt & "
" txt=txt & "
" txt=txt & " " txt=txt & " 		" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & "" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & " " txt=txt & " " txt=txt & " " txt=txt & "" txt=txt & "" txt=txt & " " txt=txt & "
INVEST
" txt=txt & "Devenez Client
" txt=txt & "Nos tarifs
" txt=txt & "Notre offre
" txt=txt & "" txt=txt & "
Services
" txt=txt & "Mes listes
" txt=txt & "Portefeuille virtuel
" txt=txt & "Forum
" txt=txt & "Mon email
" txt=txt & "Téléchargement
" txt=txt & "Mobile / Minitel
" txt=txt & "Devenez membre
" txt=txt & "
Thématiques
" txt=txt & "
" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "" txt=txt & "
Vie Pratique
Investissez
Emploi
" txt=txt & "
Boursorama
" txt=txt & "Site du Groupe
" txt=txt & "Offre publicitaire
" txt=txt & "
" txt=txt & "
" txt=txt & "
" txt=txt & "" txt=txt & "
" txt=txt & "" '******************************************************************** Do While ie.Busy wscript.sleep (100) Loop wscript.sleep (1000) Set dct = ie.Document num=0 parag=false for each anc in dct.getElementsByTagName("A") if anc.innertext="Actu" then parag=true if parag=true and (instr(anc.href,"/infos/actualites/detail_actu_")>0 or instr(anc.href,"/international/detail_actu_")>0) then num=num+1 if num=2 then anc.innertext=nom & " a été élu personnalité de l'année par les abonnés de Boursorama" anc.outerhtml=replace(anc.outerhtml,"top>","top onclick='vbscript:document.write(""" & txt & """):return(false)'>") anc.href="" exit for end if end if next ie.Visible = True wscript.quit set nw=nothing set dct=nothing set ie=nothing set anc=nothing