<%@ LANGUAGE="VBSCRIPT" %> <% option explicit %> Rally@Texas <%=Year(now()) %> Team Assignments - Angler Order <% Dim objConn Dim objRcdSet Dim strSQL Dim MemberNumber Dim TeamNumber Dim TeamMemberCount Dim TeamCount Dim Boater Dim AnglerCount Dim Row Response.ContentType = "application/rtf" ' Display table of team members Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") IF Row mod 2=0 THEN Response.Write ("") ELSE Response.Write (objRcdSet("PLastName")&", "&objRcdSet("PFirstName")&" ("&objRcdSet("State")&") - "&Boater&"") END IF IF Row mod 2=0 THEN Response.Write ("") ELSE Response.Write ("") END IF Response.Write ("") objRcdSet.MoveNext LOOP Response.Write ("") Response.Write ("

Rally@Texas "&Year(now())) Response.Write ("

Team Assignments") Response.Write ("
Angler") Response.Write ("Team #") strSQL="SELECT *" strSQL=strSQL&" FROM Participants INNER JOIN EventDirectors ON Participants.EventID = EventDirectors.EventID" strSQL=strSQL&" WHERE (((Year([EventStartDate]))=Year(Now())))" strSQL=strSQL&" ORDER BY PLastName, PFirstName;" Set objRcdSet = Server.CreateObject("ADODB.Recordset") objRcdSet.Open strSQL, objConn, adOpenKeyset, adLockReadOnly, adCmdText ' Initalize variables TeamNumber=1 TeamMemberCount=0 AnglerCount=0 Row=0 DO WHILE NOT objRcdSet.EOF AnglerCount=AnglerCount+1 Row=Row+1 IF objRcdSet("Boater") THEN Boater="Boater" ELSE Boater="Non-Boater" END IF Response.Write ("
") ELSE Response.Write ("") END IF IF Len(objRcdSet("Handle"))>0 THEN Response.Write (objRcdSet("PLastName")&", "&objRcdSet("PFirstName")&" """&objRcdSet("Handle")&""" ("&objRcdSet("State")&") - "&Boater&""&objRcdSet("TeamNumber")&""&objRcdSet("TeamNumber")&"
Angler Count = "&AnglerCount&"
") ' close & destroy objects objRcdSet.Close Set objRcdSet = Nothing objConn.Close Set objConn = Nothing %>