<% Response.Expires = -1440 On Error goto 0 Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "Provider=SQLOLEDB.1;User Id=sa;pwd=ntsisports;Initial Catalog=SheddPark;Data Source=sportsdb" Conn.CommandTimeout=100 Conn.Open If Request("ScreenHeight") <> "" Then Session("ScreenHeight") = Request("ScreenHeight") End If If Request("Hash") <> "True" Then Set RecFirstGame = Server.CreateObject("ADODB.Recordset") If Request("selTeam") <> "-1" And Request("selTeam") <> "" Then strHTeamFilter = " And (G.TeamAID=" & Request("selTeam") & " Or G.TeamBID=" & Request("selTeam") & ") " Else If Request("selLeague") <> "-1" And Request("selLeague") <> "" Then strHTeamFilter = " And G.LeagueID=" & Request("selLeague") 'strHTables = ",LookupLeagues L,TeamNames T" Else If Request("selSeason") <> "-1" Then If Request("SelSeason") <> "" Then strHSeason = Request("SelSeason") Else Set RecHDefSeason = Server.CreateObject("ADODB.Recordset") RecHDefSeason.Open "Select * From DefSeason Where OrgID=" & Session("OrgID"),Conn If Not RecHDefSeason.EOF Then strHSeason = RecHDefSeason("SeasonID") Else Set RecHSeasons = Server.CreateObject("ADODB.Recordset") RecHSeasons.Open "Select * From Seasons Where OrgID=" & Session("OrgID") & " Order By SeasonType desc,BeginMonth,BeginDay,EndMonth,EndDay",Conn If Not RecHSeasons.EOF Then strHSeason = RecHSeasons("SeasonID") Else StopCodeNoSeasons = True End If End If End If strHTeamFilter = " And S.SeasonID=L.SeasonID And L.LeagueID=G.LeagueID And S.SeasonID=" & strHSeason strHTables = ",Seasons S,LookupLeagues L" Else strHTeamFilter = "" End If End If End If If Request("SelArea") = "-1" Or Request("SelArea") = "" Then strAreaHFilter = " And G.AreaID=" & Request("SelArea") End If If StopCodeNoSeasons <> True Then RecFirstGame.Open "Select G.GameID From Games G" & strHTables & " Where G.Date>='" & Date & "' And G.OrgID=" & Session("OrgID") & strHAreaFilter & strHTeamFilter & " Order By G.Date,G.Time,G.GameID",Conn If Not RecFirstGame.EOF Then Response.Redirect "Schedule.asp?Hash=True&StartDate=" & Request("StartDate") & "&EndDate=" & Request("EndDate") & "&selSeason=" & Request("selSeason") & "&selLeague=" & Request("selLeague") & "&selDivision=" & Request("selDivision") & "&selTeam=" & Request("selTeam") & "&SelYear=" & Request("SelYear") & "&SelArea=" & Request("SelArea") & "&rdoGameSummary=" & Request("rdoGameSummary") & "&PageDisplay=" & Request("PageDisplay") & "&Filler=#" & RecFirstGame("GameID") Else 'Response.Write RecFirstGame.Source End If End If End If If Session("EmailScoreLinks") = "" Then Set objEmailLinks = New EmailScoreLinks objEmailLinks.EmailLinks Session("EmailScoreLinks") = "True" End If Set RecOMOrg = Server.CreateObject("ADODB.Recordset") RecOMOrg.Open "Select OrgManagerID From ParkInfo Where OrgID=" & Session("OrgID"),Conn Set RecSeason = Server.CreateObject("ADODB.Recordset") Set RecLinkScheduleOptions = Server.CreateObject("ADODB.Recordset") RecLinkScheduleOptions.Open "Select * From LinkScheduleOptions Where OrgID=" & Session("OrgID"),Conn Set RecTeam = Server.CreateObject("ADODB.Recordset") Set RecAdults = Server.CreateObject("ADODB.Recordset") Set RecLeague = Server.CreateObject("ADODB.Recordset") Set RecCurSeason = Server.CreateObject("ADODB.Recordset") RecCurSeason.Open "Select * From DefSeason Where OrgID=" & Session("OrgID"),Conn Response.Write "
" Response.Write "" If Request("selLeague") <> "" Then Set RecDivisions = Server.CreateObject("ADODB.Recordset") RecDivisions.Open "Select * From Divisions Where LeagueID=" & Request("selLeague") & " And OrgID=" & Session("OrgID") & " Order By DivisionName",Conn If Not RecDivisions.EOF Then HasDivisions = True Else HasDivisions = False End If Else HasDivisions = False End If If HasDivisions = False Then Response.Write "                       " Else Response.Write "         " End If Response.Write "" If HasDivisions = False Then Response.Write "                       " Response.Write "" Else Response.Write "         " Response.Write "" Response.Write "         " End If Response.Write "" 'Response.Write "
" If SeasonBeginMonth > Month(Date) Or (SeasonBeginMonth = Month(Date) And SeasonBeginDay > Day(Date)) Then NextYear = True Else CurrentYear = True End If If Request("SelYear") <> "" And Request("SelYear") <> "-1" Then strSelYear = Request("SelYear") Else If OverlappingSeason <> True Then strSelYear = Year(Date) Else If SeasonBeginMonth-2 > Month(Date) Or (SeasonBeginMonth-2 = Month(Date) And SeasonBeginDay > Day(Date)) Then strSelYear = Year(Date) Else strSelYear = Year(Date) + 1 End If End If End If Response.Write "
 " If HasDivisions = False Then Response.Write "                                    " Else Response.Write "                                                       " End If Response.Write "
" If IsDate(Request("StartDate")) Then StartDate = Request("StartDate") Else If SeasonBeginMonth <> "" Then If strSelYear = "" Then StartDate = SeasonBeginMonth & "/" & SeasonBeginDay & "/" & Year(Date) Else StartDate = SeasonBeginMonth & "/" & SeasonBeginDay & "/" & strSelYear End If If OverlappingSeason = True And (NextYear = True Or CurrentYear = True) Then StartDate = DateAdd("yyyy",-1,StartDate) End If Else If strSelYear = "" Then StartDate = DateAdd("d",-7,Date) Else StartDate = DateAdd("d",-7,Month(Date) & "/" & Day(Date) & "/" & strSelYear) End If End If End If If IsDate(Request("EndDate")) Then EndDate = Request("EndDate") Else If SeasonEndMonth <> "" Then If strSelYear = "" Then EndDate = SeasonEndMonth & "/" & SeasonEndDay & "/" & Year(Date) Else EndDate = SeasonEndMonth & "/" & SeasonEndDay & "/" & strSelYear End If ' If OverlappingSeason = True And CurrentYear = True Then ' EndDate = DateAdd("yyyy",1,EndDate) ' End If Else If strSelYear = "" Then EndDate = DateAdd("d",7,Date) Else EndDate = DateAdd("d",7,Month(Date) & "/" & Day(Date) & "/" & strSelYear) End If End If End If If RecLinkScheduleOptions("ShowCoachInfo") = "T" Then Set RecTeamJobName = Server.CreateObject("ADODB.Recordset") RecTeamJobName.Open "Select Top 1 JP.Position,JP.PositionID From JobType JT, JobPositions JP Where JT.Type='T' And JT.JobTypeID=JP.JobTypeID And JP.OrgID=" & Session("OrgID") & " Order By JP.PositionOrder",Conn If Not RecTeamJobName.EOF Then TeamJobName = UCase(Left(RecTeamJobName("Position"),1)) & LCase(Mid(RecTeamJobName("Position"),2)) Else TeamJobName = "Team Management" End If strTeamATMNameSelect = ",(Select Top 1 LTrim(RTrim(F.FirstName+' '+F.LastName)) From Family F,JobType JT, JobPositions JP, JobAssignment JA Where JA.P1P2<>'P2' And JT.Type='T' And JT.JobTypeID=JP.JobTypeID And F.OrgID=G.OrgID And JA.PositionID=JP.PositionID And JA.AdultID=F.FamilyID And JA.Status<>'D' And JP.PositionOrder=1 And JA.InfoID=G.TeamAID) As 'TeamATMName'" strTeamBTMNameSelect = ",(Select Top 1 LTrim(RTrim(F.FirstName+' '+F.LastName)) From Family F,JobType JT, JobPositions JP, JobAssignment JA Where JA.P1P2<>'P2' And JT.Type='T' And JT.JobTypeID=JP.JobTypeID And F.OrgID=G.OrgID2 And JA.PositionID=JP.PositionID And JA.AdultID=F.FamilyID And JA.Status<>'D' And JP.PositionOrder=1 And JA.InfoID=G.TeamBID) As 'TeamBTMName'" strTeamATMSpouseNameSelect = ",(Select Top 1 LTrim(RTrim(F.SpouseFirstName+' '+F.SpouseLastName)) From Family F,JobType JT, JobPositions JP, JobAssignment JA Where JA.P1P2='P2' And JT.Type='T' And JT.JobTypeID=JP.JobTypeID And F.OrgID=G.OrgID And JA.PositionID=JP.PositionID And JA.AdultID=F.FamilyID And JA.Status<>'D' And JP.PositionOrder=1 And JA.InfoID=G.TeamAID) As 'TeamATMSpouseName'" strTeamBTMSpouseNameSelect = ",(Select Top 1 LTrim(RTrim(F.SpouseFirstName+' '+F.SpouseLastName)) From Family F,JobType JT, JobPositions JP, JobAssignment JA Where JA.P1P2='P2' And JT.Type='T' And JT.JobTypeID=JP.JobTypeID And F.OrgID=G.OrgID2 And JA.PositionID=JP.PositionID And JA.AdultID=F.FamilyID And JA.Status<>'D' And JP.PositionOrder=1 And JA.InfoID=G.TeamBID) As 'TeamBTMSpouseName'" strTeamATMNameSelect2 = ",'' As 'TeamATMName'" strTeamBTMNameSelect2 = ",'' As 'TeamBTMName'" strTeamATMSpouseNameSelect2 = ",'' As 'TeamATMSpouseName'" strTeamBTMSpouseNameSelect2 = ",'' As 'TeamBTMSpouseName'" If RecLinkScheduleOptions("ShowCoachEmail") = "T" Then strTeamATMEmail1Select = ",(Select Top 1 F.Email From Family F,JobType JT, JobPositions JP, JobAssignment JA Where JT.Type='T' And JT.JobTypeID=JP.JobTypeID And F.OrgID=G.OrgID And JA.PositionID=JP.PositionID And JA.AdultID=F.FamilyID And JA.Status<>'D' And JP.PositionOrder=1 And JA.InfoID=G.TeamAID) As 'TeamATMEmail1'" strTeamATMEmail2Select = ",(Select Top 1 F.Email2 From Family F,JobType JT, JobPositions JP, JobAssignment JA Where JT.Type='T' And JT.JobTypeID=JP.JobTypeID And F.OrgID=G.OrgID And JA.PositionID=JP.PositionID And JA.AdultID=F.FamilyID And JA.Status<>'D' And JP.PositionOrder=1 And JA.InfoID=G.TeamAID) As 'TeamATMEmail2'" strTeamBTMEmail1Select = ",(Select Top 1 F.Email From Family F,JobType JT, JobPositions JP, JobAssignment JA Where JT.Type='T' And JT.JobTypeID=JP.JobTypeID And F.OrgID=G.OrgID2 And JA.PositionID=JP.PositionID And JA.AdultID=F.FamilyID And JA.Status<>'D' And JP.PositionOrder=1 And JA.InfoID=G.TeamBID) As 'TeamBTMEmail1'" strTeamBTMEmail2Select = ",(Select Top 1 F.Email2 From Family F,JobType JT, JobPositions JP, JobAssignment JA Where JT.Type='T' And JT.JobTypeID=JP.JobTypeID And F.OrgID=G.OrgID2 And JA.PositionID=JP.PositionID And JA.AdultID=F.FamilyID And JA.Status<>'D' And JP.PositionOrder=1 And JA.InfoID=G.TeamBID) As 'TeamBTMEmail2'" strTeamATMEmail1Select2 = ",'' As 'TeamATMEmail1'" strTeamATMEmail2Select2 = ",'' As 'TeamATMEmail2'" strTeamBTMEmail1Select2 = ",'' As 'TeamBTMEmail1'" strTeamBTMEmail2Select2 = ",'' As 'TeamBTMEmail2'" End If If RecLinkScheduleOptions("ShowCoachPhone") = "T" Then strTeamATMHomeNoSelect = ",(Select Top 1 F.phHome From Family F,JobType JT, JobPositions JP, JobAssignment JA Where JT.Type='T' And JT.JobTypeID=JP.JobTypeID And F.OrgID=G.OrgID And JA.PositionID=JP.PositionID And JA.AdultID=F.FamilyID And JA.Status<>'D' And JP.PositionOrder=1 And JA.InfoID=G.TeamAID) As 'TeamATMHomeNo'" strTeamATMWorkNoSelect = ",(Select Top 1 F.phBusiness From Family F,JobType JT, JobPositions JP, JobAssignment JA Where JT.Type='T' And JT.JobTypeID=JP.JobTypeID And F.OrgID=G.OrgID And JA.PositionID=JP.PositionID And JA.AdultID=F.FamilyID And JA.Status<>'D' And JP.PositionOrder=1 And JA.InfoID=G.TeamAID) As 'TeamATMWorkNo'" strTeamATMCellNoSelect = ",(Select Top 1 F.phCell From Family F,JobType JT, JobPositions JP, JobAssignment JA Where JT.Type='T' And JT.JobTypeID=JP.JobTypeID And F.OrgID=G.OrgID And JA.PositionID=JP.PositionID And JA.AdultID=F.FamilyID And JA.Status<>'D' And JP.PositionOrder=1 And JA.InfoID=G.TeamAID) As 'TeamATMCellNo'" strTeamBTMHomeNoSelect = ",(Select Top 1 F.phHome From Family F,JobType JT, JobPositions JP, JobAssignment JA Where JT.Type='T' And JT.JobTypeID=JP.JobTypeID And F.OrgID=G.OrgID2 And JA.PositionID=JP.PositionID And JA.AdultID=F.FamilyID And JA.Status<>'D' And JP.PositionOrder=1 And JA.InfoID=G.TeamBID) As 'TeamBTMHomeNo'" strTeamBTMWorkNoSelect = ",(Select Top 1 F.phBusiness From Family F,JobType JT, JobPositions JP, JobAssignment JA Where JT.Type='T' And JT.JobTypeID=JP.JobTypeID And F.OrgID=G.OrgID2 And JA.PositionID=JP.PositionID And JA.AdultID=F.FamilyID And JA.Status<>'D' And JP.PositionOrder=1 And JA.InfoID=G.TeamBID) As 'TeamBTMWorkNo'" strTeamBTMCellNoSelect = ",(Select Top 1 F.phCell From Family F,JobType JT, JobPositions JP, JobAssignment JA Where JT.Type='T' And JT.JobTypeID=JP.JobTypeID And F.OrgID=G.OrgID2 And JA.PositionID=JP.PositionID And JA.AdultID=F.FamilyID And JA.Status<>'D' And JP.PositionOrder=1 And JA.InfoID=G.TeamBID) As 'TeamBTMCellNo'" strTeamATMHomeNoSelect2 = ",'' As 'TeamATMHomeNo'" strTeamATMWorkNoSelect2 = ",'' As 'TeamATMWorkNo'" strTeamATMCellNoSelect2 = ",'' As 'TeamATMCellNo'" strTeamBTMHomeNoSelect2 = ",'' As 'TeamBTMHomeNo'" strTeamBTMWorkNoSelect2 = ",'' As 'TeamBTMWorkNo'" strTeamBTMCellNoSelect2 = ",'' As 'TeamBTMCellNo'" End If strMouseEffects = " onmouseover=this.style.color='#D1E5F3'; onmouseout=this.style.color='white'" End If Response.Write "
" Response.Write "" 'If RecLinkScheduleOptions("ShowCoachInfo") = "T" Then ' If Request("rdoCoachInfo") = "T" Then ' Response.Write "" ' Else ' Response.Write "" ' End If ' Response.Write "" 'Else ' Response.Write " " 'End If If Session("OrgManagerID") = "" Then Response.Write "" Else Response.Write "" End If If Session("OrgManagerID") = "" Then Response.Write "" Else Response.Write "" Response.Write "                                " End If Response.Write "      " Response.Write "" Response.Write "" Response.Write "  TO  " Response.Write "" Response.Write "" Response.Write "" If Request("rdoGameSummary") = "T" Then Response.Write "" Else Response.Write "" End If Response.Write "" Response.Write "          " Response.Write "" Response.Write "
" If Session("LogLevel") = "Admin" Or Session("LogLevel") = "Org" Or Session("LogLevel") = "NTSI" Then Response.Write "
" If Session("OrgManagerID") = "" Then Response.Write "" Else ' Response.Write "" End If Response.Write "
" Response.Write "
" End If Response.Write "
" Set RecTeam = Server.CreateObject("ADODB.Recordset") Set RecTeam2 = Server.CreateObject("ADODB.Recordset") Set RecGames = Server.CreateObject("ADODB.Recordset") strDateFilter = " And Date>='" & StartDate & "' And Date<='" & EndDate & "' " If SeasonID = "" Or CStr(SeasonID) = "-1" Then strSeasonFilter = "" Else If Request("selLeague") = "-1" Or Request("selLeague") = "" Then strSeasonFilter = " And ((Select Top 1 SeasonID From LookupLeagues Where LeagueID=G.LeagueID)=" & SeasonID & " Or (Select count(S.SeasonID) From Seasons S,LookupLeagues L,TeamLeague TL Where S.SeasonID=L.SeasonID And L.LeagueID=TL.LeagueID And (TL.TeamID=G.TeamAID Or TL.TeamID=G.TeamBID) And S.SeasonID=" & SeasonID & ") > 0) " Else strSeasonFilter = "" End If End If If Request("selLeague") = "" Or Request("selLeague") = "-1" Then strLeagueFilter = "" Else strSeasonFilter = "" strLeagueFilter = " And (G.LeagueID=" & Request("selLeague") & " Or (Select count(*) From TeamLeague Where (TeamID=G.TeamAID Or TeamID=G.TeamBID) And LeagueID=" & Request("selLeague") & ") > 0) " End If If Request("selDivision") = "" Or Request("selDivision") = "-1" Then strDivisionFilter = "" Else strDivisionFilter = " And ((Select Top 1 DivisionID From TeamNames Where TeamID=G.TeamAID)=" & Request("selDivision") & " Or (Select Top 1 DivisionID From TeamNames Where TeamID=G.TeamBID)=" & Request("selDivision") & ") " End If If Request("selTeam") = "-1" Or Request("selTeam") = "" Then strTeamFilter = "" Else strSeasonFilter = "" strLeagueFilter = "" strTeamFilter = " And (G.TeamAID=" & Request("selTeam") & " Or G.TeamBID=" & Request("selTeam") & ")" End If If Request("SelArea") = "-1" Or Request("SelArea") = "" Then strAreaFilter = "" Else strAreaFilter = " And AreaID=" & Request("SelArea") End If If RecOMOrg("OrgManagerID") <> "-1" Then strAreaOrg = ",(Select P.NameAbbr From Areas A,ParkInfo P Where A.OrgID=P.OrgID And A.AreaID=G.AreaID) As 'AreaOrgName'" End If strArea = ",(Select Area From Areas Where AreaID=G.AreaID) As 'AreaName'" strTeamAName = ",(Select Top 1 TeamName From TeamNames Where TeamID=G.TeamAID And G.TeamAID>0) As 'TeamAName'" strTeamAName2 = ",(Select Top 1 TeamName From TeamNames Where TeamID=G.TeamAID And G.TeamAID>0) As 'TeamAName2'" strTeamBName = ",(Select Top 1 TeamName From TeamNames Where TeamID=G.TeamBID And G.TeamBID>0) As 'TeamBName'" strTeamBName2 = ",(Select Top 1 TeamName From TeamNames Where TeamID=G.TeamBID And G.TeamBID>0) As 'TeamBName2'" If RecOMOrg("OrgManagerID") <> "-1" Then strTeamAOrgName = ",(Select Top 1 P.NameAbbr From TeamNames T,ParkInfo P Where P.OrgID=T.OrgID And T.TeamID=G.TeamAID) As 'TeamAOrgName'" strTeamBOrgName = ",(Select Top 1 P.NameAbbr From TeamNames T,ParkInfo P Where P.OrgID=T.OrgID And T.TeamID=G.TeamBID) As 'TeamBOrgName'" strTeamADivName = ",(Select Top 1 D.DivisionAbbr From TeamNames T,Divisions D Where D.DivisionID=T.DivisionID And T.TeamID=G.TeamAID) As 'TeamADivName'" strTeamBDivName = ",(Select Top 1 D.DivisionAbbr From TeamNames T,Divisions D Where D.DivisionID=T.DivisionID And T.TeamID=G.TeamBID) As 'TeamBDivName'" End If ' strLeagueName = ",(Select Top 1 League From LookupLeagues L,TeamLeague TL Where (TL.TeamID=G.TeamAID Or TL.TeamID=G.TeamBID) And TL.LeagueID=L.LeagueID And L.OrgID=" & Session("OrgID") & ") As 'LeagueName' " ' strLeagueScorable = ",(Select Top 1 Scorable From LookupLeagues Where LeagueID=G.LeagueID And OrgID=" & Session("OrgID") & ") As 'LeagueScorable' " strLeagueName = ",(Select Top 1 League From LookupLeagues Where LeagueID=G.LeagueID) As 'LeagueName',(Select Top 1 LeagueAbbr From LookupLeagues Where LeagueID=G.LeagueID) As 'LeagueNameAbbr' " strLeagueScorable = ",(Select Top 1 Scorable From LookupLeagues Where LeagueID=G.LeagueID) As 'LeagueScorable' " strUDTeamAName2 = ",(Select Top 1 Replace(Replace(GameName+G.T1GameWL+'-***-','W-***-',' Winner'),'L-***-',' Loser') From Games GM Where GM.GameID=G.T1GameID) As 'TeamAName2'" strUDTeamAName = ",(Select Top 1 TeamName From TeamNames Where TeamID=G.TeamAID And G.TeamAID>0) As 'TeamAName'" strUDTeamBName2 = ",(Select Top 1 Replace(Replace(GameName+G.T2GameWL+'-***-','W-***-',' Winner'),'L-***-',' Loser') From Games GM Where GM.GameID=G.T2GameID) As 'TeamBName2'" strUDTeamBName = ",(Select Top 1 TeamName From TeamNames Where TeamID=G.TeamBID) As 'TeamBName'" If Request("SelLeague") <> "" And Request("SelLeague") <> "-1" Then strUDTeamFilter = " And (G.TeamAID=-2 Or G.TeamBID=-2) And (G.LeagueID=" & Request("SelLeague") & " Or G.LeagueID2=" & Request("SelLeague") & ")" Else If SeasonID <> "" And SeasonID <> "-1" Then strUDTeamFilter = " And (G.TeamAID=-2 Or G.TeamBID=-2) And ((Select Top 1 SeasonID From LookupLeagues Where LeagueID=G.LeagueID)=" & SeasonID & " Or (Select Top 1 SeasonID From LookupLeagues Where LeagueID=G.LeagueID2)=" & SeasonID & ")" Else strUDTeamFilter = " And (G.TeamAID=-2 Or G.TeamBID=-2) " End If End If strUDLeagueName = ",(Select Top 1 League From LookupLeagues Where LeagueID=G.LeagueID And OrgID=" & Session("OrgID") & ") As 'LeagueName',(Select Top 1 LeagueAbbr From LookupLeagues Where LeagueID=G.LeagueID And OrgID=" & Session("OrgID") & ") As 'LeagueNameAbbr' " strUDLeagueScorable = ",(Select Top 1 Scorable From LookupLeagues Where LeagueID=G.LeagueID And OrgID=" & Session("OrgID") & ") As 'LeagueScorable' " If strTeamFilter <> "" Then strSelectUndetermined = "Select Distinct G.*" & strArea & strAreaOrg & strUDTeamAName & strTeamAOrgName & strTeamADivName & strUDTeamAName2 & strUDTeamBName & strTeamBOrgName & strTeamBDivName & strUDTeamBName2 & strUDLeagueName & strUDLeagueScorable & strTeamATMNameSelect2 & strTeamATMSpouseNameSelect2 & strTeamATMHomeNoSelect2 & strTeamATMWorkNoSelect2 & strTeamATMCellNoSelect2 & strTeamATMEmail1Select2 & strTeamATMEmail2Select2 & strTeamBTMNameSelect2 & strTeamBTMSpouseNameSelect2 & strTeamBTMHomeNoSelect2 & strTeamBTMWorkNoSelect2 & strTeamBTMCellNoSelect2 & strTeamBTMEmail1Select2 & strTeamBTMEmail2Select2 & " From Games G Where (G.TeamAID=-2 Or G.TeamBID=-2) And (G.TeamAID=" & Request("SelTeam") & " Or G.TeamBID=" & Request("SelTeam") & ") And (G.OrgID=" & Session("OrgID") & " Or G.OrgID2=" & Session("OrgID") & ")" & strDateFilter & strAreaFilter strSelectUndeterminedGNCount = "Select count(G.GameID) As 'GameNames' From Games G Where (G.TeamAID=-2 Or G.TeamBID=-2) And (G.TeamAID=" & Request("SelTeam") & " Or G.TeamBID=" & Request("SelTeam") & ") And (G.OrgID=" & Session("OrgID") & " Or G.OrgID2=" & Session("OrgID") & ")" & strDateFilter & strAreaFilter Else strSelectUndetermined = "Select Distinct G.*" & strArea & strAreaOrg & strUDTeamAName & strTeamAOrgName & strTeamADivName & strUDTeamAName2 & strUDTeamBName & strTeamBOrgName & strTeamBDivName & strUDTeamBName2 & strUDLeagueName & strUDLeagueScorable & strTeamATMNameSelect2 & strTeamATMSpouseNameSelect2 & strTeamATMHomeNoSelect2 & strTeamATMWorkNoSelect2 & strTeamATMCellNoSelect2 & strTeamATMEmail1Select2 & strTeamATMEmail2Select2 & strTeamBTMNameSelect2 & strTeamBTMSpouseNameSelect2 & strTeamBTMHomeNoSelect2 & strTeamBTMWorkNoSelect2 & strTeamBTMCellNoSelect2 & strTeamBTMEmail1Select2 & strTeamBTMEmail2Select2 & " From Games G Where (Select Top 1 Replace(Replace(GameName+G.T1GameWL+'-***-','W-***-',' Winner'),'L-***-',' Loser') From Games GM Where (GM.GameID=G.T1GameID Or GM.GameID=G.T2GameID))<>'' And (G.OrgID=" & Session("OrgID") & " Or G.OrgID2=" & Session("OrgID") & ")" & strDateFilter & strUDSeasonFilter & strUDTeamFilter & strAreaFilter strSelectUndeterminedGNCount = "Select count(G.GameID) As 'GameNames' From Games G Where (Select Top 1 Replace(Replace(GameName+G.T1GameWL+'-***-','W-***-',' Winner'),'L-***-',' Loser') From Games GM Where (GM.GameID=G.T1GameID Or GM.GameID=G.T2GameID))<>'' And (G.OrgID=" & Session("OrgID") & " Or G.OrgID2=" & Session("OrgID") & ")" & strDateFilter & strUDSeasonFilter & strUDTeamFilter & strAreaFilter End If Response.Write "" RecGames.Open "Select count(G.GameID) As 'Count' From Games G Where (G.OrgID=" & Session("OrgID") & " Or G.OrgID2=" & Session("OrgID") & ")" & strDateFilter & strSeasonFilter & strLeagueFilter & strDivisionFilter & strTeamFilter & strAreaFilter & " And (G.TeamAID<>-2 And G.TeamBID<>-2)",Conn GameCount = RecGames("Count") RecGames.Close RecGames.Open strSelectUndeterminedGNCount,Conn GameCount = GameCount + RecGames("GameNames") RecGames.Close If GameCount <> 1 Then GamesCount = GameCount & " Games" Else GamesCount = GameCount & " Game" End If If Request("PageDisplay") <> "Games" Then Response.Write "
 " Response.Write "" Response.Write "
" Else Response.Write "
 " Response.Write "" Response.Write "
" 'Response.Flush Set RecLeagueName = Server.CreateObject("ADODB.Recordset") If Request("League") <> "" Then RecLeagueName.Open "Select * From LookupLeagues Where LeagueID=" & Request("League") & " And OrgID=" & Session("OrgID"),Conn If RecLeagueName.EOF Then strLeague = "" Else strLeague = RecLeagueName("League") End If End If If Session("Browser") <> "Netscape" Then If Session("LogLevel") = "Admin" Or Session("LogLevel") = "Org" Or Session("LogLevel") = "NTSI" Then Response.Write "
" Else Response.Write "
" End If End If Response.Write "
" Response.Write "" If RecLinkScheduleOptions("ShowCoachInfo") = "T" Then Response.Write "" End If Response.Write "" Response.Write "" Response.Write "" Set RecGameNames = Server.CreateObject("ADODB.Recordset") RecGameNames.Open "Select count(G.GameID) As 'GameNames' From Games G Where GameName<>'' And (G.OrgID=" & Session("OrgID") & " Or G.OrgID2=" & Session("OrgID") & ")" & strDateFilter & strSeasonFilter & strLeagueFilter & strDivisionFilter & strTeamFilter & strAreaFilter & " And (G.TeamAID<>-2 And G.TeamBID<>-2) Union " & strSelectUndeterminedGNCount,Conn Do Until RecGameNames.EOF If RecGameNames("GameNames") > 0 Then GameNames = True End If RecGameNames.MoveNext Loop If GameNames = True Then Response.Write "" End If If SeasonHomeAway = "T" Then Response.Write "" Response.Write "" Else If SeasonHomeAway = "F" Then Response.Write "" Response.Write "" Else Set RecHomeAway = Server.CreateObject("ADODB.Recordset") RecHomeAway.Open "Select * From Seasons Where SeasonType='S' And HomeAway='F' And OrgID=" & Session("OrgID"),Conn If RecHomeAway.EOF Then Response.Write "" Response.Write "" Else Response.Write "" Response.Write "" End If End If End If Response.Write "" Response.Write "" If Session("LogLevel") = "NTSI" And Session("E") = "E" Then ' Response.Write "Select G.*" & strArea & strAreaOrg & strTeamAName & strTeamAOrgName & strTeamADivName & strUDTeamAName2 & strTeamBName & strTeamBOrgName & strTeamBDivName & strUDTeamBName2 & strLeagueName & strLeagueScorable & strTeamATMNameSelect & strTeamATMSpouseNameSelect & strTeamATMHomeNoSelect & strTeamATMWorkNoSelect & strTeamATMCellNoSelect & strTeamATMEmail1Select & strTeamATMEmail2Select & strTeamBTMNameSelect & strTeamBTMSpouseNameSelect & strTeamBTMHomeNoSelect & strTeamBTMWorkNoSelect & strTeamBTMCellNoSelect & strTeamBTMEmail1Select & strTeamBTMEmail2Select & " From Games G Where (G.OrgID=" & Session("OrgID") & " Or G.OrgID2=" & Session("OrgID") & ")" & strDateFilter & strSeasonFilter & strLeagueFilter & strDivisionFilter & strTeamFilter & strAreaFilter & " And (G.TeamAID<>-2 And G.TeamBID<>-2) Union " & strSelectUndetermined & " Order By Date,Time,GameID" ' Response.End End If RecGames.Open "Select G.*" & strArea & strAreaOrg & strTeamAName & strTeamAOrgName & strTeamADivName & strUDTeamAName2 & strTeamBName & strTeamBOrgName & strTeamBDivName & strUDTeamBName2 & strLeagueName & strLeagueScorable & strTeamATMNameSelect & strTeamATMSpouseNameSelect & strTeamATMHomeNoSelect & strTeamATMWorkNoSelect & strTeamATMCellNoSelect & strTeamATMEmail1Select & strTeamATMEmail2Select & strTeamBTMNameSelect & strTeamBTMSpouseNameSelect & strTeamBTMHomeNoSelect & strTeamBTMWorkNoSelect & strTeamBTMCellNoSelect & strTeamBTMEmail1Select & strTeamBTMEmail2Select & " From Games G Where (G.OrgID=" & Session("OrgID") & " Or G.OrgID2=" & Session("OrgID") & ")" & strDateFilter & strSeasonFilter & strLeagueFilter & strDivisionFilter & strTeamFilter & strAreaFilter & " And (G.TeamAID<>-2 And G.TeamBID<>-2) Union " & strSelectUndetermined & " Order By Date,Time,GameID",Conn Do Until RecGames.EOF If Not IsNull(RecGames("LeagueName")) Then If RecGames("TeamAScore") = -1 Or RecGames("TeamBScore") = -1 Then strColor = "green" strTitle = "Add Score" Else strColor = "red" strTitle = "Edit Score" End If If DateDiff("d",RecGames("Date"),Date) > 0 Then strTextColor = "purple" Else strTextColor = "black" End If ScoreIncluded = False If Not IsNull(RecGames("TeamAName")) Then If Not IsNull(RecGames("TeamAName2")) Then If RecGames("TeamAScore") <> -1 And RecGames("TeamBScore") <> -1 Then strTeam = RecGames("TeamAName") & " - " & Replace(RecGames("TeamAScore"),-2,"F") & "
" & RecGames("TeamAName2") ScoreIncluded = True Else strTeam = RecGames("TeamAName") & "
" & RecGames("TeamAName2") End If Else strTeam = RecGames("TeamAName") End If Else strTeam = RecGames("TeamAName2") End If If RecOMOrg("OrgManagerID") <> "-1" Then If Not IsNull(RecGames("TeamADivName")) Then strTeam = RecGames("TeamAOrgName") & "-" & RecGames("TeamADivName") & " " & strTeam Else strTeam = RecGames("TeamAOrgName") & "-" & strTeam End If End If If Not IsNull(RecGames("TeamBName")) Then If Not IsNull(RecGames("TeamBName2")) Then If RecGames("TeamAScore") <> -1 And RecGames("TeamBScore") <> -1 Then strTeam2 = RecGames("TeamBName") & " - " & Replace(RecGames("TeamBScore"),-2,"F") & "
" & RecGames("TeamBName2") ScoreIncluded = True Else strTeam2 = RecGames("TeamBName") & "
" & RecGames("TeamBName2") End If Else strTeam2 = RecGames("TeamBName") End If Else strTeam2 = RecGames("TeamBName2") End If If RecOMOrg("OrgManagerID") <> "-1" Then If Not IsNull(RecGames("TeamBDivName")) Then strTeam2 = RecGames("TeamBOrgName") & "-" & RecGames("TeamBDivName") & " " & strTeam2 Else strTeam2 = RecGames("TeamBOrgName") & "-" & strTeam2 End If End If If RecGames("TeamAScore") <> -1 And RecGames("TeamBScore") <> -1 And ScoreIncluded <> True Then strTeam = strTeam & " - " & Replace(RecGames("TeamAScore"),-2,"F") strTeam2 = strTeam2 & " - " & Replace(RecGames("TeamBScore"),-2,"F") End If If RecGames("GameType") = -4 Then strGameType = "Reserved" End If If RecGames("GameType") = -3 Then strGameType = "Open Time Slot" End If If RecGames("GameType") = -2 Then strGameType = "Cancelled Game" End If If RecGames("GameType") = -1 Then strGameType = "Practice" End If If RecGames("GameType") = 0 Then strGameType = "Scrimmage" End If If RecGames("GameType") = 1 Then strGameType = "Season Game" End If If RecGames("GameType") = 2 Then strGameType = "Playoff Game" End If strGameType = strGameType & " - #" & RecGames("GameID") strTime = Replace(Replace(Replace(Replace(Trim(Replace(RecGames("Time"),"1/1/1900","")),":00 A"," A"),":00 P"," P"),":00 a"," a"),":00 p"," p") Response.Write "" If RecLinkScheduleOptions("ShowCoachInfo") = "T" Then If Request("rdoCoachInfo") <> "T" Then Response.Write "" Else Response.Write "" End If End If Response.Write "" strDuration = FormatTime(RecGames("Duration")) Response.Write "" If Len(RecGames("LeagueName")) > 15 Then strLeagueName = RecGames("LeagueNameAbbr") Else strLeagueName = RecGames("LeagueName") End If Response.Write "" If GameNames = True Then Response.Write "" End If If Session("LogLevel") <> "User" And Session("LogLevel") <> "" Then Response.Write "" Response.Write "" Else Response.Write "" Response.Write "" End If If RecGames("LeagueScorable") <> "N" Then strDisplay = "inline" Else strDisplay = "none" End If If RecOMOrg("OrgManagerID") = "-1" Then strAreaName = RecGames("AreaName") Else strAreaName = RecGames("AreaOrgName") & " - " & RecGames("AreaName") End If Response.Write "" Response.Write "" If Session("LogLevel") <> "" Then ' If RecGames("TeamBScore") = -1 Then If Session("LogLevel") <> "User" Then If RecOMOrg("OrgManagerID") = -1 Or (RecGames("Status") <> "OMAS" And RecGames("Status") <> "OM") Then Response.Write "" Else Set RecOrgManager = Server.CreateObject("ADODB.Recordset") RecOrgManager.Open "Select NameAbbr From ParkInfo Where OrgType='OM' And OrgID=" & Session("OrgManagerID"),Conn Response.Write "" End If Else ' Response.Write "" End If ' Else ' Response.Write "" ' End If If (RecGames("GameType") <> -1 And RecGames("GameType") <> -3 And RecGames("GameType") <> -4) And DateDiff("d",Date(),RecGames("Date")) <=0 Then If RecGames("TeamAScore") = -1 Or Session("LogLevel") <> "User" Then If RecGames("TeamAID") <> -2 Then Response.Write "" Else Response.Write "" End If Else Response.Write "" End If Else If RecGames("GameType") = -1 Then Response.Write "" Else If RecGames("GameType") < 0 Then Response.Write "" Else Response.Write "" End If End If End If End If If RecLinkScheduleOptions("ShowCoachInfo") = "T" Then If Request("rdoCoachInfo") <> "T" Then Response.Write "" Else Response.Write "" End If Response.Write "" If RecLinkScheduleOptions("ShowCoachEmail") = "T" Then If Trim(RecGames("TeamATMEmail1")) <> "" Then If Trim(RecGames("TeamATMEmail2")) <> "" Then strCoachAEmail = "" & Trim(RecGames("TeamATMEmail1")) & "   " & Trim(RecGames("TeamATMEmail2")) & "" Else strCoachAEmail = "" & Trim(RecGames("TeamATMEmail1")) & "" End If Else If Trim(RecGames("TeamATMEmail2")) <> "" Then strCoachAEmail = "" & Trim(RecGames("TeamATMEmail2")) & "" Else strCoachAEmail = "" End If End If If strCoachAEmail <> "" Then strCoachAEmail = "  " & strCoachAEmail & "" If Trim(RecGames("TeamBTMEmail1")) <> "" Then If Trim(RecGames("TeamBTMEmail2")) <> "" Then strCoachBEmail = "" & Trim(RecGames("TeamBTMEmail1")) & "   " & Trim(RecGames("TeamBTMEmail2")) & "" Else strCoachBEmail = "" & Trim(RecGames("TeamBTMEmail1")) & "" End If Else If Trim(RecGames("TeamBTMEmail2")) <> "" Then strCoachBEmail = "" & Trim(RecGames("TeamBTMEmail2")) & "" Else strCoachBEmail = "" End If End If If strCoachBEmail <> "" Then strCoachBEmail = "  " & strCoachBEmail & "" End If If RecLinkScheduleOptions("ShowCoachPhone") = "T" Then strCoachAPhone = "" If Trim(RecGames("TeamATMHomeNo")) <> "" Then strCoachAPhone = "(H)" & Trim(RecGames("TeamATMHomeNo")) End If If Trim(RecGames("TeamATMWorkNo")) <> "" Then If strCoachAPhone <> "" Then strCoachAPhone = strCoachAPhone & " " strCoachAPhone = strCoachAPhone & "(W)" & Trim(RecGames("TeamATMWorkNo")) End If If Trim(RecGames("TeamATMCellNo")) <> "" Then If strCoachAPhone <> "" Then strCoachAPhone = strCoachAPhone & " " strCoachAPhone = strCoachAPhone & "(C)" & Trim(RecGames("TeamATMCellNo")) End If If strCoachAPhone <> "" Then strCoachAPhone = "  " & strCoachAPhone & "" strCoachBPhone = "" If Trim(RecGames("TeamBTMHomeNo")) <> "" Then strCoachBPhone = "(H)" & Trim(RecGames("TeamBTMHomeNo")) End If If Trim(RecGames("TeamBTMWorkNo")) <> "" Then If strCoachBPhone <> "" Then strCoachBPhone = strCoachBPhone & " " strCoachBPhone = strCoachBPhone & "(W)" & Trim(RecGames("TeamBTMWorkNo")) End If If Trim(RecGames("TeamBTMCellNo")) <> "" Then If strCoachBPhone <> "" Then strCoachBPhone = strCoachBPhone & " " strCoachBPhone = strCoachBPhone & "(C)" & Trim(RecGames("TeamBTMCellNo")) End If If strCoachBPhone <> "" Then strCoachBPhone = "  " & strCoachBPhone & "" End If If RecGames("TeamATMName") <> "" And RecGames("TeamATMSpouseName") <> "" Then strTeamATMName = RecGames("TeamATMName") & ", " & RecGames("TeamATMSpouseName") ElseIf RecGames("TeamATMName") <> "" Then strTeamATMName = RecGames("TeamATMName") Else strTeamATMName = RecGames("TeamATMSpouseName") End If If RecGames("TeamBTMName") <> "" And RecGames("TeamBTMSpouseName") <> "" Then strTeamBTMName = RecGames("TeamBTMName") & ", " & RecGames("TeamBTMSpouseName") ElseIf RecGames("TeamBTMName") <> "" Then strTeamBTMName = RecGames("TeamBTMName") Else strTeamBTMName = RecGames("TeamBTMSpouseName") End If Response.Write "" End If If Trim(RecGames("GameDescription")) <> "" Then Response.Write "" End If If Request("rdoGameSummary") = "" Then If Trim(RecGames("GameSummary")) <> "" Then Response.Write "" End If Else If Trim(RecGames("GameSummary")) <> "" Then Response.Write "" End If End If ' Response.Write "" End If RecGames.MoveNext Loop Response.Write "
 
" Response.Write "" & RecGames("Date") & "" Response.Write "
 " Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
    " Response.Write "
   " Response.Write "
" If Len(RecGames("GameDescription")) > 200 Then strGameDescription = Left(Trim(Replace(Replace(Replace(Replace(RecGames("GameDescription"),"
",""),"
",""),"
",""),"
","")),200) & "..." Else strGameDescription = Trim(Replace(Replace(Replace(Replace(RecGames("GameDescription"),"
",""),"
",""),"
",""),"
","")) End If Response.Write "" Response.Write "
" If Len(RecGames("GameSummary")) > 200 Then strGameSummary = Left(Trim(Replace(Replace(Replace(Replace(RecGames("GameSummary"),"
",""),"
",""),"
",""),"
","")),200) & "..." Else strGameSummary = Trim(Replace(Replace(Replace(Replace(RecGames("GameSummary"),"
",""),"
",""),"
",""),"
","")) End If Response.Write "" Response.Write "
" Response.Write "
" Response.Write "
" End If If Session("Browser") <> "Netscape" Then Response.Write "
" End If Response.Write "" %>