<% Dim objConn Dim strConn Set objConn = Server.CreateObject("ADODB.Connection") ' Response.Write Server.MapPath("/fpdb/WCST2002TEAM.MDB") ' ObjConn.Open "Data Source=" & Server.MapPath("/fpdb/WCST2002TEAM.mdb") & ";Provider=Microsoft.Jet.OLEDB.3.51;" ' ObjConn.Open "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=D:\inetpub\wwwroot\003026\xe10frsy2\fpdb\WCST2002TEAM.mdb" ' ObjConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\inetpub\wwwroot\003026\xe10frsy2\fpdb\WCST2002TEAM.MDB" ' ObjConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\inetpub\wwwroot\003026\xe10frsy2\fpdb\WCST2002TEAM.mdb" ObjConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/WCST2002TEAM.mdb") ' strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/WCST-TM2002.mdb") & "" ' strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\fpdb\WCST2002TEAM.mdb") ' Response.Write "
" & strConn ' ObjConn.Open strConn ' ObjConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("\fpdb\WCST2002TEAM.mdb") ' ObjConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("/fpdb/WCST-TM2002.mdb") %> WCST Stingrays Meet Results

 

2002 WCST Stingrays Swimmer Statistics

Please select a swimmer to view results...

Select Swimmers Name: <% dim oRScl Dim strSQL strSQL = "SELECT DISTINCT ATHLETE.ATHLETE, ATHLETE.LAST, ATHLETE.FIRST, ATHLETE.INITIAL " & _ "FROM ATHLETE INNER JOIN RESULT ON ATHLETE.ATHLETE = RESULT.ATHLETE " & _ "ORDER BY LAST, FIRST, INITIAL;" set oRScl=server.createobject("ADODB.recordset") oRScl.Open strSQL, objConn oRScl.movefirst %>

  

If you think a time is missing, please contact the statistician Jeff VandeWege at WCST-Statistician@walnutcountry.com .  It is possible that a time was not recorded correctly or that they were disqualified.  In either case, they end up with 0 for a time.  Zero's are omitted from these statistics.