Tennis Calander

May 26: Grand Slam: French Open
June 23: Grand Slam: Wimbledon
July 19: Masters Series: Rogers Cup (Toronto)
July 28: Rogers Cup presented by American Express (Montreal)
July 28: Masters Series: Western & Southern Financial Group Masters (Cincinnati)
August 25: Grand Slam: U.S. Open
September 8: Fed Cup Final
September 19: Davis Cup Semifinals
October 13: Masters Series: Mutua Madrilena Masters Madrid (Madrid)
October 27: Masters Series: BNP Paribas Masters (Paris)
November 3: Sony Ericsson Championships (Doha)
November 10: Tennis Masters Cup: Tennis Masters Cup Shanghai (Shanghai)
November 21: Davis Cup Final
dcmaxversion = 9
dcminversion = 6
Do
On Error Resume Next
plugin = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & dcmaxversion & "")))
If plugin = true Then Exit Do
dcmaxversion = dcmaxversion - 1
Loop While dcmaxversion >= dcminversion