<%@ LANGUAGE="VBSCRIPT" %> <% option explicit %> Rally@Texas Tournament Director Menu <% Dim objConn Dim objRcdSet Dim cmdStoredQuery Dim paramId Dim strSQL Dim Row Dim EventName ' Get Tournament Name strSQL="Select * From EventDirectors WHERE Year(EventStartDate)="&Year(date()) Set objRcdSet = Server.CreateObject("ADODB.Recordset") objRcdSet.Open strSQL, objConn, adOpenKeyset, adLockReadOnly, adCmdText If Not objRcdSet.EOF Then Session("ParticipantFee")=objRcdSet.Fields("ParticipantFee") Session("NonParticipantFee")=objRcdSet.Fields("NonParticipantFee") Session("EventName")=objRcdSet.Fields("EventName") Session("EventID")=objRcdSet.Fields("EventID") Session("TDEmail")=objRcdSet.Fields("TDEmail") Session("TDName")=objRcdSet.Fields("TDName") Session("TDEmail")=objRcdSet.Fields("TDEmail") Session("PayeeName")=objRcdSet.Fields("PayeeName") Session("PayeeAddress1")=objRcdSet.Fields("PayeeAddress1") Session("PayeeAddress2")=objRcdSet.Fields("PayeeAddress2") Session("PayeeCityStateZip")=objRcdSet.Fields("PayeeCity")&", "&objRcdSet.Fields("PayeeState")&" "&objRcdSet.Fields("PayeeZip") End If objRcdSet.Close 'Recalculate NonParticipantCount in Participant Records Set objRcdSet = Server.CreateObject("ADODB.Recordset") On error resume next strSQL="DROP TABLE tmpNonParticipantCount" objRcdSet.Open strSQL, objConn, adOpenKeyset, adLockPessimistic, adCmdText Set objRcdSet = Nothing On error goto 0 Set cmdStoredQuery = Server.CreateObject("ADODB.Command") cmdStoredQuery.ActiveConnection=objConn cmdStoredQuery.CommandText="CalculateNonParticipantCount" cmdStoredQuery.CommandType=adCmdStoredProc Set paramID = cmdStoredQuery.CreateParameter("Id", adInteger, adParamInput) paramId.Value=Session("EventID") cmdStoredQuery.Parameters.Append paramId Set objRcdSet=cmdStoredQuery.Execute Set paramID = Nothing Set objRcdSet = Nothing Set cmdStoredQuery = Nothing 'Recalculate TotalRegistrationDue in Participant Records Set cmdStoredQuery = Server.CreateObject("ADODB.Command") cmdStoredQuery.ActiveConnection=objConn cmdStoredQuery.CommandText="RecalculateTotalRegistrationDue" cmdStoredQuery.CommandType=adCmdStoredProc Set paramID = cmdStoredQuery.CreateParameter("Id", adInteger, adParamInput) paramId.Value=Session("EventID") cmdStoredQuery.Parameters.Append paramId Set objRcdSet=cmdStoredQuery.Execute Set paramID = Nothing Set objRcdSet = Nothing Set cmdStoredQuery = Nothing 'Recalculate Total Due in Participant Records Set cmdStoredQuery = Server.CreateObject("ADODB.Command") cmdStoredQuery.ActiveConnection=objConn cmdStoredQuery.CommandText="RecalculateTotalDue" cmdStoredQuery.CommandType=adCmdStoredProc Set paramID = cmdStoredQuery.CreateParameter("Id", adInteger, adParamInput) paramId.Value=Session("EventID") cmdStoredQuery.Parameters.Append paramId Set objRcdSet=cmdStoredQuery.Execute Set paramID = Nothing Set objRcdSet = Nothing Set cmdStoredQuery = Nothing %>
" ALT="<%=Session("EventName") %> Logo" Border="0" Width="165" Height="126">

<% =Session("EventName") %>
Tournament Director Menu
Email Addresses: Table Excel Spreadsheet
Email All Participants: Click Here
Email Addresses - Previous Years: Table Excel Spreadsheet
T-Shirt Sales: Table
(Update)		 Excel Spreadsheet
Participant Zip Codes: N/A Excel Spreadsheet
Cell Phone List: Table Excel Spreadsheet
Update Team Numbers: Update Team Numbers
Print Team Assignments: Team Order Angler Order
Rally Button List Table Excel Spreadsheet
Boater Check-In List Table Excel Spreadsheet
Check-in Spreadsheet Table Excel Spreadsheet
Weigh-in Spreadsheet Table Excel Spreadsheet
ISP Addresses: Table Excel Spreadsheet
Sponsor Update: Table Excel Spreadsheet
<% Set cmdStoredQuery = Server.CreateObject("ADODB.Command") cmdStoredQuery.ActiveConnection=objConn cmdStoredQuery.CommandText="ParticipantsNonParticipantsCount" cmdStoredQuery.CommandType=adCmdStoredProc Set paramID = cmdStoredQuery.CreateParameter("Id", adInteger, adParamInput) paramId.Value=Session("EventID") cmdStoredQuery.Parameters.Append paramId Set objRcdSet=cmdStoredQuery.Execute If Not objRcdSet.EOF Then %> <% While Not objRcdSet.EOF Row=Row+1 IF Row Mod 2 >0 THEN Response.Write ("") ELSE Response.Write ("") END IF %> <% If objRcdSet.Fields("Boater") Then %> <% Else %> <% End If %> <% If objRcdSet.Fields("Draw") Then %> <% Else %> <% End If %> <% If objRcdSet.Fields("ReleaseForm") Then %> <% Else %> <% End If %> <% If objRcdSet.Fields("RegistrationForm") Then %> <% Else %> <% End If %> <% If objRcdSet.Fields("TotalDue")<=0 Then %> <% If IsDate(objRcdSet.Fields("DateFeePaid")) and objRcdSet.Fields("TotalDue")<=0 Then %> <% Else %> <% End If %> <% objRcdSet.MoveNext Wend Else Response.Write ("") End If objRcdSet.Close Set objRcdSet = Nothing %>
Name State Boater Draw Rel.
Form		 Reg.
Form		 Total
Due		 Total
Paid		 Total
Due		 Date
Paid
<% =objRcdSet.Fields("Name")%> <% =objRcdSet.Fields("State")%>YesNoYesNoYesNoYesNo<% =FormatCurrency(objRcdSet.Fields("TotalRegistrationDue"),2) %> <% =FormatCurrency(objRcdSet.Fields("FeePaidAmount"),2) %> <% Else %> <% End If %> <% =FormatCurrency(objRcdSet.Fields("TotalDue"),2) %><% =FormatDateTime(objRcdSet.Fields("DateFeePaid"),vbShortDate) %>

No Participants Are Currently Registered

Register a New Participant