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