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