<%@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) function getSeedValue(tblName,FieldName,theid) StrSQL = "SELECT "&FieldName&" FROM "&tblName&" WHERE seed LIKE '"&theid&"'" set rsdata = objConn.Execute(StrSQL) getSeedValue = rsdata(FieldName) end function function getSchedule(theid,thefield) SQL = "SELECT * FROM Schedule WHERE theID LIKE '"&theid&"'" set rsdata = objconn.execute(SQL) getSchedule = rsdata(thefield) end function %> Welcome to the AEGON Masters Tennis 2009

Home venue Tournament Players Schedule Hospitality Tickets Press Register

click here to register

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

 <%rsdata.movenext loop%>



Schedule and Results

Please note: The 2010 order of play will be announced just before the event. The 2009 order of play and results can be seen below:
The order of play is subject to change at any time.

<%for i = 1 to 11%> <%next%>
DATE
SESSION
ORDER OF PLAY
<%=getSchedule(i,"thedate")%> <%=getSchedule(i,"thesession")%>
<%=getSchedule(i,"MatchA")%>
<%=getSchedule(i,"MatchB")%>
<%=getSchedule(i,"MatchC")%>

2009 RESULTS
 <%'if 1 = 2 then%>
GROUP A
  <%=getSeedValue("seeds","playername","1")%> <%=getSeedValue("seeds","playername","5")%> <%=getSeedValue("seeds","playername","9")%> <%=getSeedValue("seeds","playername","13")%>
<%=getSeedValue("seeds","playername","1")%>   <%=getSeedValue("seeds","Match1","1")%> <%=getSeedValue("seeds","Match2","1")%> <%=getSeedValue("seeds","Match3","1")%>
<%=getSeedValue("seeds","playername","5")%> <%=getSeedValue("seeds","Match1","5")%>   <%=getSeedValue("seeds","Match2","5")%> <%=getSeedValue("seeds","Match3","5")%>
<%=getSeedValue("seeds","playername","9")%> <%=getSeedValue("seeds","Match1","9")%> <%=getSeedValue("seeds","Match2","9")%>   <%=getSeedValue("seeds","Match3","9")%>
<%=getSeedValue("seeds","playername","13")%> <%=getSeedValue("seeds","Match1","13")%>  <%=getSeedValue("seeds","Match2","13")%>  <%=getSeedValue("seeds","Match3","13")%>   

GROUP B
  <%=getSeedValue("seeds","playername","2")%> <%=getSeedValue("seeds","playername","6")%> <%=getSeedValue("seeds","playername","10")%> <%=getSeedValue("seeds","playername","14")%>
<%=getSeedValue("seeds","playername","2")%>   <%=getSeedValue("seeds","Match1","2")%> <%=getSeedValue("seeds","Match2","2")%> <%=getSeedValue("seeds","Match3","2")%>
<%=getSeedValue("seeds","playername","6")%> <%=getSeedValue("seeds","Match1","6")%>   <%=getSeedValue("seeds","Match2","6")%> <%=getSeedValue("seeds","Match3","6")%>
<%=getSeedValue("seeds","playername","10")%> <%=getSeedValue("seeds","Match1","10")%> <%=getSeedValue("seeds","Match2","10")%>   <%=getSeedValue("seeds","Match3","10")%>
<%=getSeedValue("seeds","playername","14")%> <%=getSeedValue("seeds","Match1","14")%> <%=getSeedValue("seeds","Match2","14")%> <%=getSeedValue("seeds","Match3","14")%>  

<%QSQL = "SELECT * FROM RESULTS INNER JOIN Stages ON Results.stage LIKE stages.theid WHERE stage LIKE '1'" set rsdataQ = objconn.execute(QSQL) if rsdataQ("viewBOL") = "1" then%> <% Do while not rsdataQ.eof %> <% rsdataq.movenext loop %>
QUARTER FINALS
<%=rsdataQ("player1")%> <%=rsdataQ("results")%>
<%=rsdataQ("player2")%>
<%end if%>
<%QSQL = "SELECT * FROM RESULTS INNER JOIN Stages ON Results.stage LIKE stages.theid WHERE stage LIKE '2'" set rsdataQ = objconn.execute(QSQL) if rsdataQ("viewBOL") = "1" then%> <% Do while not rsdataQ.eof %> <% rsdataq.movenext loop %>
SEMI FINALS
<%=rsdataQ("player1")%> <%=rsdataQ("results")%>
<%=rsdataQ("player2")%>
<%end if%>
<%QSQL = "SELECT * FROM RESULTS INNER JOIN Stages ON Results.stage LIKE stages.theid WHERE stage LIKE '3'" set rsdataQ = objconn.execute(QSQL) if rsdataQ("viewBOL") = "1" then%> <% Do while not rsdataQ.eof %> <% rsdataq.movenext loop %>
FINALS
<%=rsdataQ("player1")%> <%=rsdataQ("results")%>
<%=rsdataQ("player2")%>

<%end if%>

<%QSQL = "SELECT * FROM RESULTS INNER JOIN Stages ON Results.stage LIKE stages.theid WHERE stage LIKE '4'" set rsdataQ = objconn.execute(QSQL) if rsdataQ("viewBOL") = "1" then%>

<% Do while not rsdataQ.eof %> <% rsdataq.movenext loop %>
DOUBLES FRIDAY
<%=rsdataQ("player1")%> <%=rsdataQ("results")%>
<%=rsdataQ("player2")%>

<%end if%>

<%QSQL = "SELECT * FROM RESULTS INNER JOIN Stages ON Results.stage LIKE stages.theid WHERE stage LIKE '5'" set rsdataQ = objconn.execute(QSQL) if rsdataQ("viewBOL") = "1" then%>

<% Do while not rsdataQ.eof %> <% rsdataq.movenext loop %>
DOUBLES SATURDAY
<%=rsdataQ("player1")%> <%=rsdataQ("results")%>
<%=rsdataQ("player2")%>

<%end if%>

<%QSQL = "SELECT * FROM RESULTS INNER JOIN Stages ON Results.stage LIKE stages.theid WHERE stage LIKE '6'" set rsdataQ = objconn.execute(QSQL) if rsdataQ("viewBOL") = "1" then%>

<% Do while not rsdataQ.eof %> <% rsdataq.movenext loop %>
DOUBLES FINALS
<%=rsdataQ("player1")%> <%=rsdataQ("results")%>
<%=rsdataQ("player2")%>
<%'end if%>

 

 

<%end if%>

 

 
 

Quintus Logo

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