<% ' Pick a tip between 1 and 70 to display in the page Randomize TipNumber = Int(Rnd*70) ' Open the file with the 70 tips in it Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set Instream = FileObject.OpenTextFile (Server.MapPath ("/") & "\anecdotas.txt", 1, FALSE, FALSE) ' Skip the tips before the tip you want to display in the page For i = 1 to TipNumber -1 InStream.SkipLine() Next ' Assign the variable TipOfTheDay to the tip randomly selected above Anecdotas = Instream.ReadLine %>
 

Gustavo Kuerten
Principal ] Arriba ] Sydney 2000 ] Inés Arrondo ] Barrichello ] Básquetbol ] Orlando Vásquez ] Anier García ] Gimnasia ] Iván Pedroso ] Soraya Jiménez ] [ Gustavo Kuerten ] Mazzacane ] Alcalá y Almazán ]

Sydney 2000: Gustavo Kuerten (Brasil)

See Also: VMaxPuzzlePro

Gustavo Kuerten en un saque de Brasil frente a Ivan Ljubicic de Croatia, el 23 de septiembre de 2000 durante el match individual en NSW Tenis Centro durante los Juegos Olímpicos Sydney 2000 . Kuerten derrotó a Ljubicic 7-6 (2), 6-3. AFP FOTOGRAFIA de AFP GERARD JULIEN 

Material compilado y supervisado por
Nidia Cobiella (NidiaCobiella@Educar.Org)