RESULTS - Race 4 - ZwaRtkops - 20 June 2009

<% cn.Open %> <% strSQLQuery = "SELECT * FROM points ORDER by race4 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("race4") <> 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("r4qb")%>

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

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

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

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

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

 
HEAT 1
<% cn.Open %> <% strSQLQuery = "SELECT * FROM points ORDER by r4h1 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("r4h1") <> 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("r4h1")%>
 
HEAT 2
<% cn.Open %> <% strSQLQuery = "SELECT * FROM points ORDER by r4h2 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("r4h2") <> 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("r4h2")%>