Welcome to the AEGON Masters Tennis 2009

<%@language="VBscript"%> <% theDataBaseNameNews = Server.MapPath("/dbase/db.mdb") theConnectionStringNews = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & theDataBaseNameNews & ";" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open theConnectionStringNews SQL = "SELECT * FROM NEWS ORDER BY OrderID ASC" set rsdata = objconn.execute(SQL)%> Welcome to the AEGON Masters Tennis 2009



	<%do while not rsdata.eof%> <%=rsdata("thetitle")%> <%=rsdata("BodyText")%>... ">click here <%rsdata.movenext loop%>

The Players

Congratulations to 2010 Champion Pat Rafter, who won the 2009 AEGON Masters Tennis on his debut at the event, defeating Stefan Edberg in the final.

The AEGON Masters Tennis is proud to bring you some of the greatest legends of the game. Below is a selection of players who are confirmed to play in this year’s event at the Royal Albert Hall. Click on their photographs to see a full profile.

Players who have been confirmed to play in the singles tournament will be marked with an “S”, and players who have been confirmed to participate in the doubles tournament will be marked with a “D”.

<% Function FieldToArray(tablename,fieldtoGet,OrderBy,thefilter) SQL = "SELECT "&fieldtoGET&" FROM "&tablename& " " & thefilter & " " & OrderBy Set objRs = Server.CreateObject("ADODB.Recordset") objRs.Open SQL, objConn Do while not objrs.eof strFields = strFields & objrs(fieldtoGet) objrs.movenext if not objrs.eof then strFields = strFields & "," end if loop ArrFields = split(strFields,",") FieldToArray = ArrFields End Function Function ArraytoSelect(theArray,selectName,matchValue,allValue) strSelect = "" ArraytoSelect = strSelect end function function LookupPlayer(theid) SQL = "SELECT * FROM profile WHERE orderid LIKE '"&theid&"'" set rsdata = objconn.execute(SQL) LookupPlayer = rsdata("playername") end function 'lets get the total number of players we have in the system strSQL = "Select * FROM Profile order BY orderid ASC" set rsProfile = objconn.execute(strSQL) c = 1 ArrPlayers = FieldToArray("Profile","PlayerName","ORDER BY theid","") %>

Please click on a player below to see their full profile.

<%do while not rsProfile.eof%> <%if c mod 3 = 1 then%> <%end if%> <%if c mod 3 = 0 then%> <%end if%> <% c = c + 1 rsProfile.movenext loop%>

" width="100" height="100" border="0">
<%=rsProfile("Playername")%> <%=rsProfile("QandD")%>
<%=rsProfile("strapline")%>

McCormack House
Burlington Lane
Chiswick
London W4 2TH
Tel: 020 8233 5854
Fax: 020 8233 5801

Home • Venue • Tournament • Players • Schedule • Hospitality • Tickets • Press • Register • Admin
Privacy • Terms and Conditions

IMG (UK) Ltd > Registered in England & Wales No. 3794887
Reg. Office: McCormack House, Burlington Lane, Chiswick, London W4 2TH