<%@LANGUAGE="VBSCRIPT"%> <% if session("coachid")<>"" then Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_dbConn_STRING Recordset1.Source = "SELECT * FROM coach WHERE coachid ="& session("coachid") Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 else response.redirect "Coaches.asp" mymessage = "You must login before entering the Coaches area. Click Here to login." end if %> <% Dim rsSelTeam Dim rsSelTeam_numRows Set rsSelTeam = Server.CreateObject("ADODB.Recordset") rsSelTeam.ActiveConnection = MM_dbConn_STRING rsSelTeam.Source = "SELECT * FROM Teams WHERE TeamId=" & request.querystring("Teamid") rsSelTeam.CursorType = 0 rsSelTeam.CursorLocation = 2 rsSelTeam.LockType = 1 rsSelTeam.Open() rsSelTeam_numRows = 0 Dim rsSelEvent Dim rsSelEvent_numRows Set rsSelEvent = Server.CreateObject("ADODB.Recordset") rsSelEvent.ActiveConnection = MM_dbConn_STRING rsSelEvent.Source = "SELECT * FROM Race WHERE RaceId=" & request.querystring("Raceid") rsSelEvent.CursorType = 0 rsSelEvent.CursorLocation = 2 rsSelEvent.LockType = 1 rsSelEvent.Open() rsSelEvent_numRows = 0 FilterParam = "TeamId=" & request.querystring("Teamid") & " and RaceId=" & request.querystring("raceid") '& " and TeamMemberId="& rsTeams.fields.item("TeamMemberId").value if request.querystring("DivisionId")<>"" then FilterParam = FilterParam & " and DivisionId=" & request.querystring("DivisionId") end if if request.querystring("SegmentId")<>"" then FilterParam = FilterParam & " and SegmentId=" & request.querystring("SegmentId") end if if request.querystring("AgeGroupId")<>"" then FilterParam = FilterParam & " and AgeGroupId=" & request.querystring("AgeGroupId") end if 'rsStartList.Filter = FilterParam Dim rsStartList Dim rsStartList_numRows Set rsStartList = Server.CreateObject("ADODB.Recordset") rsStartList.ActiveConnection = MM_dbConn_STRING rsStartList.Source = "SELECT * FROM qryStartList Where " & filterparam rsStartList.CursorType = 0 rsStartList.CursorLocation = 2 rsStartList.LockType = 1 rsStartList.Open() rsStartList_numRows = 0 Dim rsTeams Dim rsTeams_numRows Set rsTeams = Server.CreateObject("ADODB.Recordset") rsTeams.ActiveConnection = MM_dbConn_STRING rsTeams.Source = "SELECT * FROM TeamRosters WHERE TeamId=" & request.querystring("teamid") & " ORDER BY LastName, FirstName ASC" rsTeams.CursorType = 0 rsTeams.CursorLocation = 2 rsTeams.LockType = 1 rsTeams.Open() rsTeams_numRows = 0 if request.querystring("DivisionId")<>"" then Dim rsDivisions Dim rsDivisions_numRows Set rsDivisions = Server.CreateObject("ADODB.Recordset") rsDivisions.ActiveConnection = MM_dbConn_STRING rsDivisions.Source = "SELECT * FROM Divisions WHERE DivisionId="&request.querystring("DivisionId") rsDivisions.CursorType = 0 rsDivisions.CursorLocation = 2 rsDivisions.LockType = 1 rsDivisions.Open() rsDivisions_numRows = 0 if not rsDivisions.eof then HasDivisions=true else HasDivisions=false end if end if If request.querystring("SegmentId")<>"" then Dim rsSegments Dim rsSegments_numRows Set rsSegments = Server.CreateObject("ADODB.Recordset") rsSegments.ActiveConnection = MM_dbConn_STRING rsSegments.Source = "SELECT * FROM Segment WHERE SegmentId="&request.querystring("SegmentId") rsSegments.CursorType = 0 rsSegments.CursorLocation = 2 rsSegments.LockType = 1 rsSegments.Open() rsSegments_numRows = 0 if not rsSegments.eof then HasSegments=true else HasSegments=false end if end if If request.querystring("AgeGroupId")<>"" then Dim rsAgeGroup Dim rsAgeGroup_numRows Set rsAgeGroup = Server.CreateObject("ADODB.Recordset") rsAgeGroup.ActiveConnection = MM_dbConn_STRING rsAgeGroup.Source = "SELECT * FROM AgeGroup WHERE AgeGroupId="&request.querystring("AgeGroupId") rsAgeGroup.CursorType = 0 rsAgeGroup.CursorLocation = 2 rsAgeGroup.LockType = 1 rsAgeGroup.Open() rsAgeGroup_numRows = 0 if not rsAgeGroup.eof then HasAgeGroup=true else HasAgeGroup=false end if end if %> Performance Timing, LLC - Coaches
You are logged in as <% = Recordset1.fields.item("firstname") %>  <%=Recordset1.fields.item("lastname")%>
If this is not correct, please click here to log out.
Start List
Team Race Details
<%=rsSelTeam.fields.item("TeamName").value %> <%=rsSelEvent.fields.item("RaceTitle").value %> <% if request.querystring("SegmentId")<>"" then if HasSegments=true then response.write rsSegments.fields.item("Segment").value end if end if %>
<% if request.querystring("DivisionId")<>"" then if HasDivisions=true then response.write rsDivisons.fields.item("DivisionName").value end if end if %>
<% if request.querystring("AgeGroupId")<>"" then if HasAgeGroups=true then response.write rsAgeGroup.fields.item("AgeGroup").value end if end if %>

&RaceId=<%=request.querystring("RaceId")%>&SegmentId=<%=request.querystring("SegmentId")%>&DivisionId=<%=request.querystring("DivisionId")%>&AgeGroupId=<%=request.querystring("AgeGroupId") %>">Back To Full Start List <% if rsSelEvent.fields.item("ClosingDate").value > date() then %> | &RaceId=<%=request.querystring("RaceId")%>&SegmentId=<%=request.querystring("SegmentId")%>&DivisionId=<%=request.querystring("DivisionId")%>&AgeGroupId=<%=request.querystring("AgeGroupId") %>">Edit Start List | <% end if %> &RaceId=<%=request.querystring("RaceId")%>&SegmentId=<%=request.querystring("SegmentId")%>&DivisionId=<%=request.querystring("DivisionId")%>&AgeGroupId=<%=request.querystring("AgeGroupId") %>">Print Start List | &RaceId=<%=request.querystring("RaceId")%>&SegmentId=<%=request.querystring("SegmentId")%>&DivisionId=<%=request.querystring("DivisionId")%>&AgeGroupId=<%=request.querystring("AgeGroupId") %>">Download Start List to CVS File
<% if not rsStartList.eof then %> Start List <% do while not rsStartList.eof %> <% rsStartList.movenext loop %>
Name Class Age Gender Grade
<%=rsStartList.fields.item("LastName")%>, <%=rsStartList.fields.item("FirstName")%> <%=rsStartList.fields.item("Class")%> <%=rsStartList.fields.item("AGe")%> <%=rsStartList.fields.item("Gender")%> <%=rsStartList.fields.item("Grade")%>
 
<% else %> No Team Members Added <% end if %>