2014 Series <%=Request("Date")%> Lap Times

Registration/Timing/Scoring services provided by:

Expert: Pro/Expert Men 29- Men 30-39 Men 40-49 Men 50+ Women   Sport: Men 17- Men 18-29 Men 30-39 Men 40-49 Men 50+ Wmn 39- Wmn 40+   Beginner: Jr Men 13- Men 14-17 Men 18-29 Men 30-39 Men 40-49 Men 50+ Jr Wmn 13- Wmn 14-39 Wmn 40+ SS/Open: SS Exp SS Spt Clydes Tandem Open 60+ 1st Time

<% dim strClass set myConn=Server.CreateObject("ADODB.Connection") myConn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("/database/RacesPC.mdb") Set myRS = Server.CreateObject("ADODB.RecordSet") mySQL = "SELECT r.RacePosition, r.RaceBib, r.FirstName, r.LastName, r.ClassName, r.ClassID, l.Lap1, l.Lap2, l.Lap3, l.Lap4, r.TotalTime, r.AvgTime " mySQL = mySQL & "FROM RaceResults AS r INNER JOIN RFIDLaps AS l ON r.ID = l.RegResultsID " mySQL = mySQL & "WHERE r.RaceID=" & Request("Race") & " ORDER BY r.ClassID, r.RacePosition" myRS.Open mySQL, myConn, adOpenStatic, adLockReadOnly If NOT myRS.EOF Then dim myArray() dim iCount, sDNF iCount = 0 myBackgroundColor = "#FFFFFF" Do While NOT myRS.EOF if myRS("ClassName") <> strClass then 'Check myArray for data if iCount <> 0 then for each sDNF in myArray 'Response.Write "" Response.Write "" Response.Write "" if Split(sDNF, "|")(3) <> "empty" then Response.Write "" else Response.Write "" end if if Split(sDNF, "|")(4) <> "empty" then Response.Write "" else Response.Write "" end if if Split(sDNF, "|")(5) <> "empty" then Response.Write "" else Response.Write "" end if if Split(sDNF, "|")(6) <> "empty" then Response.Write "" else Response.Write "" end if if Split(sDNF, "|")(7) <> "empty" then Response.Write "" else Response.Write "" end if if Split(sDNF, "|")(8) <> "empty" then Response.Write "" else Response.Write "" end if if myBackgroundColor = "#CCCCCC" then myBackgroundColor = "#FFFFFF" else myBackgroundColor = "#CCCCCC" end if next iCount = 0 end if Response.Write "" Response.Write "" 'Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" end if if myRS("RacePosition") <> "-1" then 'Response.Write "" Response.Write "" Response.Write "" if myRS("Lap1") <> "empty" then Response.Write "" else Response.Write "" end if if myRS("Lap2") <> "empty" then Response.Write "" else Response.Write "" end if if myRS("Lap3") <> "empty" then Response.Write "" else Response.Write "" end if if myRS("Lap4") <> "empty" then Response.Write "" else Response.Write "" end if if myRS("TotalTime") <> "empty" then Response.Write "" else Response.Write "" end if if myRS("AvgTime") <> "empty" then Response.Write "" else Response.Write "" end if if myBackgroundColor = "#CCCCCC" then myBackgroundColor = "#FFFFFF" else myBackgroundColor = "#CCCCCC" end if else Redim Preserve myArray(iCount) myArray(iCount) = "DNF" & "|" & myRS("RaceBib") & "|" & myRS("FirstName") & " " & myRS("LastName") & "|" & myRS("Lap1") & "|" & myRS("Lap2") & "|" & myRS("Lap3") & "|" & myRS("Lap4") & "|" & myRS("TotalTime") & "|" & myRS("AvgTime") iCount = iCount + 1 end if strClass = myRS("ClassName") myRS.MoveNext Loop end if myRS.Close myConn.Close Set myRS = Nothing Set myConn = Nothing %> View Race Series Points Standings " & Split(sDNF, "|")(0) & " " & Split(sDNF, "|")(1) & " " & Split(sDNF, "|")(2) & " " & RndSecs(Split(sDNF, "|")(3)) & " - " & RndSecs(Split(sDNF, "|")(4)) & " - " & RndSecs(Split(sDNF, "|")(5)) & " - " & RndSecs(Split(sDNF, "|")(6)) & " - " & RndSecs(Split(sDNF, "|")(7)) & " - " & RndSecs(Split(sDNF, "|")(8)) & " - " & myRS("ClassName") & " Top Pos Bib Name Lap 1 Lap 2 Lap 3 Lap 4 Total Time Avg Lap " & myRS("RacePosition") & " " & myRS("RaceBib") & " " & myRS("FirstName") & " " & myRS("LastName") & " " & RndSecs(myRS("Lap1")) & " - " & RndSecs(myRS("Lap2")) & " - " & RndSecs(myRS("Lap3")) & " - " & RndSecs(myRS("Lap4")) & " - " & RndSecs(myRS("TotalTime")) & " - " & RndSecs(myRS("AvgTime")) & " -