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