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