Rally@Texas <%=Year(now()) %> Team Assignments

<%@ LANGUAGE="VBSCRIPT" %> <% option explicit %> Rally@Texas <%=Year(now()) %> Team Assignments - Team Order <% Dim objConn Dim objRcdSet Dim strSQL Dim MemberNumber Dim TeamNumber Dim TeamMemberCount Dim TeamCount Dim Boater Dim TeamCaptain IF Request("format")="rtf" THEN Response.ContentType = "application/rtf" END IF Sub PrintPageHeadings Response.Write ("

Rally@Texas "&Year(now())) Response.Write ("") Response.Write ("Team Assignments") Response.Write ("") Response.Write ("Team #") Response.Write ("Angler") End Sub ' Display table of team members Response.Write ("") PrintPageHeadings strSQL="SELECT PLastName, PFirstName, Handle, State, TeamNumber, Boater" strSQL=strSQL&" FROM Participants INNER JOIN EventDirectors ON Participants.EventID = EventDirectors.EventID" strSQL=strSQL&" WHERE (((Year([EventStartDate]))=Year(Now())))" strSQL=strSQL&" ORDER BY TeamNumber, Trim(Right([Participants]![PLastName],1));" Set objRcdSet = Server.CreateObject("ADODB.Recordset") objRcdSet.Open strSQL, objConn, adOpenKeyset, adLockReadOnly, adCmdText TeamNumber=1 TeamMemberCount=0 DO WHILE NOT objRcdSet.EOF IF objRcdSet("TeamNumber")<> TeamNumber THEN Response.Write ("") Response.Write ("") IF Len(objRcdSet("Handle"))>0 THEN Response.Write ("") objRcdSet.MoveNext LOOP Response.Write ("
Team #"&TeamNumber&" has "&TeamMemberCount&" members") TeamNumber=objRcdSet("TeamNumber") TeamMemberCount=0 TeamCaptain=False Response.Write ("
") PrintPageHeadings END IF IF objRcdSet("Boater") THEN Boater="Boater" ELSE Boater="Non-Boater" END IF TeamMemberCount=TeamMemberCount+1 ' Print team member detail Response.Write ("
"&objRcdSet("TeamNumber")&" "&objRcdSet("PLastName")&", "&objRcdSet("PFirstName")&" """&objRcdSet("Handle")&""" ("&objRcdSet("State")&") - "&Boater) ELSE Response.Write (" "&objRcdSet("PLastName")&", "&objRcdSet("PFirstName")&" ("&objRcdSet("State")&") - "&Boater) END IF ' Select first non-boater as team captain IF objRcdSet("Boater")=False and TeamCaptain=False THEN Response.Write (" Team Captain") TeamCaptain=True END IF Response.Write ("
Team #"&TeamNumber&" has "&TeamMemberCount&" members") Response.Write ("
") ' close & destroy objects objRcdSet.Close Set objRcdSet = Nothing objConn.Close Set objConn = Nothing %>

Team #"&TeamNumber&" has "&TeamMemberCount&" members") TeamNumber=objRcdSet("TeamNumber") TeamMemberCount=0 TeamCaptain=False Response.Write ("
") PrintPageHeadings END IF IF objRcdSet("Boater") THEN Boater="Boater" ELSE Boater="Non-Boater" END IF TeamMemberCount=TeamMemberCount+1 ' Print team member detail Response.Write ("
"&objRcdSet("TeamNumber")&"	"&objRcdSet("PLastName")&", "&objRcdSet("PFirstName")&" """&objRcdSet("Handle")&""" ("&objRcdSet("State")&") - "&Boater) ELSE Response.Write ("	"&objRcdSet("PLastName")&", "&objRcdSet("PFirstName")&" ("&objRcdSet("State")&") - "&Boater) END IF ' Select first non-boater as team captain IF objRcdSet("Boater")=False and TeamCaptain=False THEN Response.Write (" Team Captain") TeamCaptain=True END IF Response.Write ("
Team #"&TeamNumber&" has "&TeamMemberCount&" members") Response.Write ("