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