RESULTS - Race 6 - PORT ELIZABETH - 1 AUGUST 2009

<% cn.Open %> <% strSQLQuery = "SELECT * FROM points ORDER by race6 DESC, carno ASC" %> <% Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQLQuery, cn,3 ,3 %> <% pos =1 %> <% do while not rs.EOF if rs.Fields("race6") <> 0 then %> <% pos = pos + 1 %> <% end if rs.MoveNext loop %> <%rs.Close%> <%cn.Close%>
Position Driver Kart # Q Bonus Heat 1 Heat 1 Bonus Heat 2 Heat 2 Bonus Total

<%=(pos)%>

 <%=rs.fields("name")%>

<%=rs.Fields("carno")%>

<%=rs.Fields("r6qb")%>

<%=rs.Fields("r6h1")%>

<%=rs.Fields("r6h1b")%>

<%=rs.Fields("r6h2")%>

<%=rs.Fields("r6h2b")%>

<%=Round(rs.Fields("race6"),0)%>

 
HEAT 1
<% cn.Open %> <% strSQLQuery = "SELECT * FROM points ORDER by r6h1 DESC, carno ASC" %> <% Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQLQuery, cn,3 ,3 %> <% pos =1 %> <% do while not rs.EOF %> <% if pos < 11 then if rs.Fields("r6h1") <> 0 then %> <% pos = pos + 1 %> <% end if end if rs.MoveNext loop %> <%rs.Close%> <%cn.Close%>
Position Driver Kart # Points

<%=(pos)%>

 <%=rs.fields("name")%> <%=rs.Fields("carno")%> <%=rs.Fields("r6h1")%>
 
HEAT 2
<% cn.Open %> <% strSQLQuery = "SELECT * FROM points ORDER by r6h2 DESC, carno ASC" %> <% Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQLQuery, cn,3 ,3 %> <% pos =1 %> <% do while not rs.EOF %> <% if pos < 11 then if rs.Fields("r6h2") <> 0 then %> <% pos = pos + 1 %> <% end if end if rs.MoveNext loop %> <%rs.Close%> <%cn.Close%>
Position Driver Kart # Points

<%=(pos)%>

 <%=rs.fields("name")%> <%=rs.Fields("carno")%> <%=rs.Fields("r6h2")%>