<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if request.QueryString("order") = "" then theorder ="res_total" else theorder = request.QueryString("order") %> <% Dim vid vid = request.querystring("id") %> <% Dim resultsrs Dim resultsrs_numRows Set resultsrs = Server.CreateObject("ADODB.Recordset") resultsrs.ActiveConnection = MM_outrage_STRING resultsrs.Source = "SELECT fix_date, id FROM teamoutrageous.fixtures WHERE id ='" + Replace(vid, "'", "''") + "'" resultsrs.CursorType = 0 resultsrs.CursorLocation = 2 resultsrs.LockType = 1 resultsrs.Open() resultsrs_numRows = 0 %> <% Dim fullrs Dim fullrs_numRows Set fullrs = Server.CreateObject("ADODB.Recordset") fullrs.ActiveConnection = MM_outrage_STRING fullrs.Source = "SELECT * FROM teamoutrageous.results WHERE res_fix_id = '" + Replace(vid, "'", "''") + "' ORDER BY " & theorder fullrs.CursorType = 0 fullrs.CursorLocation = 2 fullrs.LockType = 1 fullrs.Open() fullrs_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 fullrs_numRows = fullrs_numRows + Repeat1__numRows %> Team Outrageous - Race Results - <%= DoDateTime((resultsrs.Fields.Item("fix_date").Value), 1, 1033) %>

Race Results - <%= DoDateTime((resultsrs.Fields.Item("fix_date").Value), 1, 1033) %>

Return to Archive <% if fullrs("res_aqua") = "yes" then %> <% While ((Repeat1__numRows <> 0) AND (NOT fullrs.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 fullrs.MoveNext() Wend %>

	Name	Team	">Swim	">Run	">Total	Category Position
<% = Repeat1__index + 1%>	<%=(fullrs.Fields.Item("res_name").Value)%>	<%=(fullrs.Fields.Item("res_team").Value)%>	<%=(fullrs.Fields.Item("res_swim").Value)%>	<%=(fullrs.Fields.Item("res_run").Value)%>	<%=(fullrs.Fields.Item("res_total").Value)%>	<%=(fullrs.Fields.Item("res_catpos").Value)%>

<% else %> <% While ((Repeat1__numRows <> 0) AND (NOT fullrs.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 fullrs.MoveNext() Wend %>

	Name	Team	">Swim	">Bike	">Run	">Total	Category Position
<% = Repeat1__index + 1%>	<%=(fullrs.Fields.Item("res_name").Value)%>	<%=(fullrs.Fields.Item("res_team").Value)%>	<%=(fullrs.Fields.Item("res_swim").Value)%>	<%=(fullrs.Fields.Item("res_bike").Value)%>	<%=(fullrs.Fields.Item("res_run").Value)%>	<%=(fullrs.Fields.Item("res_total").Value)%>	<%=(fullrs.Fields.Item("res_catpos").Value)%>

<% end if %> <% resultsrs.Close() Set resultsrs = Nothing %> <% fullrs.Close() Set fullrs = Nothing %>