0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/ReturnPageSet.inc" -->	
0005: <%
0006: 	yr = Request.QueryString("yr")
0007: 	RegNumber = Request.QueryString("RegNumber")
0008: 	MyChampion = Request.QueryString("Champion")
0009: 	ShowTop5 = Request.QueryString("Top5")
0010: 	ShowTop10 = Request.QueryString("Top10")
0011: 	NoHead = Request.QueryString("NoHead")	
0012: 	MaxToShow = 0
0013: 
0014: 	TotalMobileEntries = 0
0015: 
0016: 	If ShowTop5 = "Y" Then
0017: 	MaxToShow = 5
0018: 	End If
0019: 
0020: 	If yr = "" Then yr = season
0021: If yr < Season Then
0022: Future = "Y"
0023: NextYr = yr + 1
0024: End IF
0025: 
0026: LastYr = Yr - 1
0027: 
0028: MaxYearToShow = season - 10
0029: 
0030: 	If startmakepicks = "YES" Then
0031: 	user = Request.Cookies("user")
0032: 	If user = "" and startmakepicks = "YES" Then Response.Redirect("my4registerinfo1_m.asp?from=standings_m.asp")
0033:  
0034:   	Set rsg = Server.CreateObject("ADODB.Recordset")
0035: 	sqlString = "SELECT * FROM mmEntries " & _
0036: 			"WHERE Season = " & yr & " " & _
0037: 			"AND EmailAddress = '" & user & "'"
0038: '	rsg.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0039:     rsg.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText	  
0040: 	
0041:     YrDiff = season - yr
0042:     If YrDiff <> 0 Then
0043:     ShowStand = True
0044:     Else
0045:     ShowStand = False
0046:     End If
0047:     	
0048: 	If rsg.EOF Then
0049: '
0050:     Else	
0051: 	paid = rsg("PaidEntries").Value
0052:     Entries = rsg("NumEntries").Value
0053:     Num2ndEntries = rsg("Num2ndEntries").Value
0054: 	paid2nd = rsg("Paid2ndEntries").Value
0055: 	firstname = rsg("FirstName").Value
0056: 	ShowStand = rsg("ShowStandings").Value
0057: 	MyRegNumber = rsg("RegNumber").Value
0058: 	
0059: 	rsg.Close
0060: 	set rsg = Nothing
0061:     End If
0062:     If showstandingstounpaid <> "YES" Then
0063: 
0064: UnpaidEntries = Entries - Paid
0065: UnpaidEntries = UnpaidEntries + (num2ndEntries - Paid2nd)
0066: UnpaidEntries = CInt(UnpaidEntries)
0067:     
0068: 		If UnpaidEntries > 0 and ShowStand = False Then 
0069: 			Response.Redirect("notpaidyet.asp?name=" & firstname)
0070: 		Else
0071: 	'	Response.Write("paid=" & paid & " paid2nd=" & paid2nd & " ShowStand=" & ShowStand & " yr=" & Thisyr & " season=" & season & "YrDiff=" & YrDiff & "UndpaidEntries=" & UnpaidEntries)
0072: 		End If
0073: 	End If
0074: '	Set rsSurvey = Server.CreateObject("ADODB.Recordset")
0075: '	sqlString = "SELECT season FROM mmSurvey WHERE EmailAddress = '" & user & "' "  & _
0076: '							"AND Season = " & season
0077:         
0078: '	rsSurvey.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0079: 
0080: '	If rsSurvey.EOF Then
0081: '		rsSurvey.Close
0082: '		set rsSurvey = Nothing
0083: '		Response.Redirect("postsurvey.asp?from=standings.asp")
0084: '    Else
0085: '    rsSurvey.Close
0086: '	set rsSurvey = Nothing
0087: '	End If
0088:  
0089: 
0090: 
0091:    
0092:     End If
0093: 	
0094: 	sortStr = Request.QueryString("sort")
0095: 	If sortStr = "" Then sortStr = "Rank"
0096: 	Select Case sortStr
0097: 	Case "Pts"
0098: 			sortStr = sortStr & " DESC, Rank"
0099: 		Case "Final8"
0100: 			sortStr = sortStr & " DESC, Rank"
0101: Case "Round1"
0102: 			sortStr = sortStr & " DESC, Rank"
0103: Case "Sweet16"
0104: 			sortStr = sortStr & " DESC, Rank"
0105: 
0106: 		Case "Final4"
0107: 			sortStr = sortStr & " DESC, Rank"
0108: 		Case "Final2"
0109: 			sortStr = sortStr & " DESC, Rank"
0110: 		Case "Final1"
0111: 			sortStr = sortStr & " DESC, Rank"			
0112: 		Case "Champion"
0113: 			sortStr = sortStr & ", Rank"	
0114: 		Case "F4"
0115: 			sortStr = "Final4 DESC, Champion, RunnerUp, Rank"	
0116: 	End Select
0117: 
0118: 	If MyChampion <> "" Then
0119: 	   AddSel = " AND Champion = '" & MyChampion & "' "
0120:     End If
0121: 
0122: 
0123: 
0124: 			Set rst = Server.CreateObject("ADODB.Recordset")
0125: 	sqlString = "SELECT COUNT(Season) as RecordCount FROM mmStandings " & _
0126: 			"WHERE Season = " & yr 
0127: 	rst.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0128: 	
0129: totpicks = CInt(rst("RecordCount").Value)
0130: 
0131: 
0132: 
0133: 	Set rs = Server.CreateObject("ADODB.Recordset")
0134: 
0135: 
0136: 	sqlString = "SELECT * FROM mmStandings " & _
0137: 			"WHERE Season = " & yr & " " & _
0138: 			AddSel & _
0139: 			"ORDER BY " & sortStr
0140: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0141: 	
0142: 		
0143: '	totpicks = rs.RecordCount
0144:    	tenpct = CInt(totpicks / 10)
0145: 
0146: 	If ShowTop10 = "Y" Then
0147: 	   MaxToShow = tenpct
0148: 	End If
0149: 
0150: 
0151:    	
0152: 
0153: 	Set rsSeasons = Server.CreateObject("ADODB.Recordset")
0154: 	sqlString = "SELECT DISTINCT Season FROM mmStandings " & _
0155: 			"ORDER BY Season DESC"
0156: 	rsSeasons.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0157: %>
0158: <html>
0159: 
0160: <head>
0161: <meta name="viewport" content="width=device-width">
0162: <title>March Madness - Standings</title>
0163: <link href="mm.css" rel="stylesheet" type="text/css">
0164: <link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">	
0165: <script language="JavaScript">
0166: 	
0167: 		function getData(form)	{
0168: 			var yr = form.SeasonYr.options[form.SeasonYr.selectedIndex].value
0169: 			if (yr != "")	{
0170: 				document.location.href = "standings.asp?yr="+yr
0171: 			}
0172: 		}
0173: 		
0174: 	</script>
0175: </head>
0176: 
0177: <body bgcolor="#ffffff">
0178: 
0179: <table cellspacing="1" border="0" cellpadding="0" width="100%" align="center">
0180: 
0181: <tr>
0182: <td align="left" width="30%"><button class="button-10" onclick="window.open('biggestloserstandings_m.asp?yr=<%= yr %>&RegNumber=<%= RegNumber %>','mobilemain');"><small>Biggest Loser</big></button></td>
0183: <td align="center" width="30%"><button class="button-10" onclick="window.open('standings2nd_m.asp?yr=<%= yr %>&RegNumber=<%= RegNumber %>','mobilemain');"><small>Sweet 16</big></button></td>
0184: <td align="right" width="40%"><button class="button-10" onclick="window.open('mystandings_m.asp?yr=<%= yr %>&RegNumber=<%= RegNumber %>','mobilemain');"><small>My Picks & Top 5</big></button></td>
0185: </tr>
0186: 
0187:  </table>
0188: 
0189: <table cellspacing="2" border="0" cellpadding="0" width="100%" align="center">
0190:  
0191:     <tr><td class="smalldark" colspan="3" valign="bottom">
0192: <% If yr = Season Then %>	  
0193: 	  Last updated @  <font color="red"><%= STANDINGSUPDATED %></font> (PDT)
0194: <% End If %>
0195: </td>
0196:  <td class="norm"  align="right" colspan="8"><big><big><% If LastYr >= MaxYearToShow Then %><a href="standings_m.asp?yr=<%= LastYr %>&RegNumber=<%= RegNumber %>"><<</a><% End If %> |<b> <%= Yr %></b>
0197: 
0198:  | <a href="standings_m.asp?yr=<%= NextYr %>&RegNumber=<%= RegNumber %>">>></a> 
0199: 
0200:   </big></td> 
0201: </tr>
0202:  </table>
0203: <table cellspacing="2" border="0" cellpadding="0" width="100%" align="center">
0204:   <tr bgcolor="#33ccff">
0205:     <td width="5%" class="small" align="center"><a href="standings_m.asp?yr=<%= yr %>&sort=Rank" class="smallUndl">RNK</a></td>
0206:     <td width="40%" class="small" align="center"><a href="standings_m.asp?yr=<%= yr %>&sort=Name" class="smallUndl">NAME</a></td>
0207: 	<td width="5%" class="small" align="center">PTS</td>	
0208:     <td width="5%" class="small" align="center">POSS<br>PTS</td>
0209: 
0210:     <td width="25%" class="small" align="center"><a href="standings_m.asp?yr=<%= yr %>&sort=Champion" class="smallUndl">CHAMPION</a></td>
0211:     <td width="25%" class="small" align="center">RUNNER-UP<br>
0212:   </tr>
0213: <%	bgcolor = "#e8e8e8"
0214: 		Do Until rs.EOF
0215: 
0216: ' "#FED87B"
0217: 	ThisRegNumber = rs("RegNumber").Value
0218: '		TextEmailAddress = rs("TextEmailAddress").Value
0219:           		UsedMobile = rs("UsedMobile").Value
0220: 		   ranking = rs("Rank").Value
0221: 		   IF ranking =< tenpct then
0222: 		      bgcolor = "#BCF5A9"
0223: 		   Else
0224: 			If bgcolor = "#e8e8e8" Then
0225: 				bgcolor = "#ffffff"
0226: 			Else
0227: 				bgcolor = "#e8e8e8"
0228: 			End If	
0229: 			End If
0230: 			If RegNumber = "" And ThisRegNumber = MyRegNumber Then
0231: 			 bgcolor = "#F5A9D0"
0232: 			End If
0233: 
0234: 			F4 = rs("RunnerUp").Value
0235: 			RunnerUp = Split(F4,"/")
0236: 
0237: If UsedMobile = "Y" And User = "jt@folga.org" Then
0238: cell_color = "#6699ff"
0239: TotalMobileEntries = TotalMobileEntries + 1
0240: Else
0241: cell_color = bgcolor
0242: End IF
0243: 
0244: If RegNumber = "" Or ( RegNumber = ThisRegNumber OR ranking <= MaxtoShow ) Then
0245: 			%>
0246:   <tr bgcolor="<%= bgcolor %>" height="18">
0247: 
0248:     <td class="smalldark" align="center" bgcolor="<%= cell_color %>"><%= ranking %>
0249: 
0250: </td>
0251:     <td class="smalldark" align="left"><a
0252:     href="displaypicks3.asp?year=<%= yr %>&amp;pick=<%= rs("PicksId").Value %>"
0253:     class="normUndl"><%= rs("Name").Value %></a></td>
0254: </td>
0255:     <td class="smalldark" align="center"><%= rs("Pts").Value %>
0256: </td>
0257:     <td class="smalldark" align="center"><%= rs("PossPts").Value %>
0258: </td>
0259:     <td class="smalldark" align="center">
0260: <% If MyRegNumber = ThisRegNumber Then %>
0261: <a href="standings_m.asp?sort=Champion&RegNumber=<%= RegNumber %>&Top5=<%= ShowTop5 %>&Top10=<%= ShowTop10 %>&Champion=<%= rs("Champion").Value %>"><%= rs("Champion").Value %></a>
0262: <% Else %>
0263: <%= rs("Champion").Value %>
0264: <% End If %>
0265: </td>
0266:     <td class="smalldark" align="center"><%= RunnerUp(0)  %>
0267: </td>
0268: 
0269:   </tr>
0270: <%		
0271: 		End If
0272: 		rs.MoveNext
0273: 		Loop
0274: 		rs.Close
0275: 		Set rs = Nothing	
0276: 		
0277: 		
0278: If TotalMobileEntries > 0 Then
0279: 
0280: %>
0281: 
0282: <tr><td class="norm" colspan="10">Total Mobile Picks: <b><%= TotalMobileEntries %></td></tr>
0283: 		
0284: 		
0285: <% End If %>
0286: 
0287: </table>
0288: </body>
0289: </html>