<% 'https://images.ccbill.com/jpost/cvv2.swf Response.Expires = -1440 If Session("OMLogLevel") = "" Then Response.Redirect "Login.asp" Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "Provider=SQLOLEDB.1;User Id=sa;pwd=ntsisports;Initial Catalog=SheddPark;Data Source=sportsdb" Conn.Open %>
<% Response.Write "
" Response.Write "" Response.Write "" Set RecRegions = Server.CreateObject("ADODB.Recordset") RecRegions.Open "Select * From Regions Where OrgManagerID=" & Session("OMOrgManagerID") & " Order By Region,RegionAbbr",Conn If Not RecRegions.EOF Then Reg = True Response.Write "   " Response.Write "" Response.Write "" End If Response.Write "
" Response.Write "
" 'Conn.Execute "Update Lookupleagues set active='F' Where leagueid=3440 or omleagueid=3440" Set RecLeagues = Server.CreateObject("ADODB.Recordset") RecLeagues.Open "Select Count(*) As 'Count' From LookupLeagues Where Active<>'F' And OrgID=" & Session("OMOrgID"),Conn LeagueCount = RecLeagues("Count") If LeagueCount > 0 Then LeagueCount = 5 Dim arrLeague ReDim arrLeague(LeagueCount) arrLeague(1) = 1 arrLeague(2) = 2 arrLeague(3) = 3 arrLeague(4) = 4 arrLeague(5) = 5 RecLeagues.Close RecLeagues.Open "Select League,LeagueID From LookupLeagues Where Active<>'F' And OrgID=" & Session("OMOrgID") & " Order By MinAge,MaxAge,LeagueID",Conn Do Until RecLeagues.EOF c = c + 1 arrLeague(c) = RecLeagues("LeagueID") RecLeagues.MoveNext Loop Dim arrGroup GroupCount = 0 For n=LeagueCount To 1 Step-1 GroupCount = GroupCount + (n * (n-1))/2 Next If 2 > 2 Then GroupCount = GroupCount + 1 End If Response.Write "Groupcount - " & GroupCount & "
" ReDim arrGroup(GroupCount) ' For i=1 To LeagueCount4913 ' If arrGroup(1) <> "" Then ' arrGroup(1) = arrGroup(1) & "***" & arrLeague(i) ' Else ' arrGroup(1) = arrLeague(i) ' End If ' Next CurGroupCount = 0 Dim arrL For i=LeagueCount To 2 Step-1 ReDim arrL(i) For j=1 To i arrL(j) = j Next DoneIter = False Do Until DoneIter=True q = q + 1 if q>500 Then Response.Write "Q" Response.end end if CurGroupCount = CurGroupCount + 1 For k=1 To i 'Response.Write k & "-" & arrL(k) & "
" If arrGroup(CurGroupCount) <> "" Then arrGroup(CurGroupCount) = arrGroup(CurGroupCount) & "***" & arrLeague(arrL(k)) Else arrGroup(CurGroupCount) = arrLeague(CurGroupCount) End If Next 'Response.Write arrGroup(Curgroupcount) For h=i To 1 If arrL(h) + 1 <= LeagueCount Then arrL(h) = arrL(h) + 1 Exit For End If If h = 1 Then DoneIter = True End If Next Loop Next End If %>