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