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: 	If yr = "" Then yr = season
0008: 	sortStr = Request.QueryString("sort")
0009: 	If sortStr = "" Then sortStr = "Rank"
0010: 	GroupName = Request.QueryString("group")
0011: 	Select Case sortStr
0012: 		Case "Pts"
0013: 			sortStr = sortStr & " DESC"
0014: 		Case "Round1"
0015: 			sortStr = sortStr & " DESC"
0016: 		Case "Sweet16"
0017: 			sortStr = sortStr & " DESC"
0018: 		Case "Final8"
0019: 			sortStr = sortStr & " DESC"
0020: 		Case "Final4"
0021: 			sortStr = sortStr & " DESC"
0022: 		Case "Final2"
0023: 			sortStr = sortStr & " DESC"
0024: 		Case "Final1"
0025: 			sortStr = sortStr & " DESC"
0026: 		Case "Champion"
0027: 			sortStr = sortStr & ", Rank"			
0028: 	End Select
0029: 
0030: 	user = Request.Cookies("user")	
0031: 	If user = "" Then Response.Redirect("login.asp?from=standingsmygroup.asp")
0032: 	
0033: 	yr = Request.QueryString("yr")
0034: 	If yr = "" Then yr = season
0035: 	
0036: 		
0037: 	If RegOpen = "YES" and Yr = Season Then
0038: 	   Yr = Yr - 1
0039: 	End If
0040: 	
0041: 	Set rsg = Server.CreateObject("ADODB.Recordset")
0042: 	sqlString = "SELECT * FROM mmEntries " & _
0043: 			"WHERE Season = " & yr & " " & _
0044: 			"AND EmailAddress = '" & user & "'"
0045: '	rsg.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0046: 	rsg.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0047:     
0048:    groupname1 = rsg("GroupName").Value
0049:    groupname2 = rsg("GroupName2").Value 
0050:    groupname3 = rsg("GroupName3").Value    
0051:    group = groupname1 
0052: 	paid = rsg("PaidEntries").Value
0053:     Entries = rsg("NumEntries").Value
0054:     Num2ndEntries = rsg("Num2ndEntries").Value
0055: 	paid2nd = rsg("Paid2ndEntries").Value
0056: 	firstname = rsg("FirstName").Value
0057: 	ShowStand = rsg("ShowStandings").Value
0058: 	MyRegNumber = rsg("RegNumber").Value
0059: 	rsg.Close
0060: 	set rsg = Nothing
0061: 
0062: 
0063:     If showstandingstounpaid <> "YES" Then
0064: 
0065: UnpaidEntries = Entries - Paid
0066: UnpaidEntries = UnpaidEntries + (num2ndEntries - Paid2nd)
0067: UnpaidEntries = CInt(UnpaidEntries)
0068:     
0069: 		If UnpaidEntries > 0 and ShowStand = False Then 
0070: 			Response.Redirect("notpaidyet.asp?name=" & firstname)
0071: 		Else
0072: 	'	Response.Write("paid=" & paid & " paid2nd=" & paid2nd & " ShowStand=" & ShowStand & " yr=" & Thisyr & " season=" & season & "YrDiff=" & YrDiff & "UndpaidEntries=" & UnpaidEntries)
0073: 		End If
0074: 
0075:     End If
0076: 		If GroupName <> "" Then
0077: 		  group = GroupName
0078: 	    End If
0079: 	
0080: ' 	Set rsSurvey = Server.CreateObject("ADODB.Recordset")
0081: ' 	sqlString = "SELECT season FROM mmSurvey WHERE EmailAddress = '" & user & "' "  & _
0082: ' 							"AND Season = " & season
0083: '         
0084: ' 	rsSurvey.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0085: 
0086: ' 	If rsSurvey.EOF Then
0087: ' 		rsSurvey.Close
0088: ' 		set rsSurvey = Nothing
0089: ' '		Response.Redirect("postsurvey.asp?from=standingsmygroup.asp")
0090: '     Else
0091: '     rsSurvey.Close
0092: ' 	set rsSurvey = Nothing
0093: ' 	End If
0094: 	
0095: 		Set rst = Server.CreateObject("ADODB.Recordset")
0096: 	sqlString = "SELECT COUNT(Season) as RecordCount FROM mmStandings " & _
0097: 			"WHERE Season = " & yr 
0098: 	rst.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0099: 	
0100: totpicks = CInt(rst("RecordCount").Value)
0101: '	totpicks = rst.RecordCount
0102:    	tenpct = totpicks / 10
0103: 
0104: 		rst.Close
0105: 		Set rst = Nothing
0106: 	
0107: 
0108: 		If groupname1 <> "DEFAULT"  Then
0109: 	group1 = groupname1
0110: 	End If 
0111: 	If groupname2 <> "DEFAULT"  Then
0112: 	group2 = groupname2
0113: 	End If 
0114: 	If groupname3 <> "DEFAULT"  Then
0115: 	group3 = groupname3
0116: 	End If 
0117: 
0118: 	Set rs = Server.CreateObject("ADODB.Recordset")
0119: 	sqlString = "SELECT * FROM mmStandings " & _
0120: 			"WHERE Season = " & yr & " " & _
0121: 			"AND ( GroupName = '" & group & "' "  &  _
0122: 			"OR GroupName2 = '" & group & "' "  &  _
0123: 			"OR GroupName3 = '" & group & "' )"  &  _
0124: 			"ORDER BY " & sortStr
0125: 			
0126: ' Response.Write(sqlstring)			
0127: '	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0128: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0129: '	Set rsSeasons = Server.CreateObject("ADODB.Recordset")
0130: '	sqlString = "SELECT DISTINCT Season FROM mmStandings " & _
0131: '			"ORDER BY Season DESC"
0132: '	rsSeasons.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0133: %>
0134: <html>
0135: 
0136: <head>
0137: <title>March Madness - Standings</title>
0138: <link href="mm.css" rel="stylesheet" type="text/css">
0139: <script language="JavaScript">
0140: 	
0141: 		function getData(form)	{
0142: 			var yr = form.SeasonYr.options[form.SeasonYr.selectedIndex].value
0143: 			if (yr != "")	{
0144: 				document.location.href = "standingsmygroup.asp?yr="+yr
0145: 			}
0146: 		}
0147: 		
0148: 	</script>
0149: </head>
0150: 
0151: <body bgcolor="#ffffff">
0152: 
0153: <table cellspacing="1" border="0" cellpadding="0" width="750"">
0154:   <tr>
0155:     <td width="3%" height="1"><img src="clear.gif" width="1" height="1"></td>
0156:     <td width="18%"><img src="clear.gif" width="1" height="1"></td>
0157:     <td width="18%"><img src="clear.gif" width="1" height="1"></td>
0158:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0159:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0160:     <td width="10%"><img src="clear.gif" width="1" height="1"></td>
0161:     <td width="24%"><img src="clear.gif" width="1" height="1"></td>
0162:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0163:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0164:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0165:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0166:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0167:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0168:   </tr>
0169:   <tr>
0170:     <td class="bigblue" colspan="14" height="30" align="center">Standings for Group: <%= Group %>
0171:     ( <% If Group1 <> "" Then %> <a
0172:     href="standingsmygroup.asp?sort=Rank&amp;Group=<%= Group1 %>"><%= Group1 %></a> <% End If %> <% If Group2 <> "" Then %> <a
0173:     href="standingsmygroup.asp?sort=Rank&amp;Group=<%= Group2 %>"><%= Group2 %></a> <% End If %> <% If Group3 <> "" Then %> <a
0174:     href="standingsmygroup.asp?sort=Rank&amp;Group=<%= Group3 %>"><%= Group3 %></a> <% End If %> )</tr>
0175: <tr>
0176: <td class="smalldark" colspan="6">(Sorted by descending Possible Points. Click a
0177:       column to change sort)</td><td class="smalldark" colspan="7" align="right">
0178: 	  Last updated @  <font color="red"><%= STANDINGSUPDATED %></font> (PDT)
0179: </td></tr>
0180:   </tr>
0181:   <tr bgcolor="#577fbe">
0182:     <td class="small" align="center"><a
0183:     href="standingsmygroup.asp?sort=Rank&amp;Group=<%= Group %>" class="smallUndl">RNK</a></td>
0184:     <td class="small" align="center"><a
0185:     href="standingsmygroup.asp?sort=Name&amp;Group=<%= Group %>" class="smallUndl">NAME</a></td>
0186:     <td class="small" align="center">FROM</td>
0187:     <td class="small" align="center"><a
0188:     href="standingsmygroup.asp?sort=Pts&amp;Group=<%= Group %>" class="smallUndl">PTS</a></td>
0189:     <td class="small" align="center">POSS<br>
0190:     PTS</td>
0191:     <td class="small" align="center"><a
0192:     href="standingsmygroup.asp?sort=Champion&amp;Group=<%= Group %>" class="smallUndl">CHAMPION</a></td>
0193:     <td class="small" align="center">RUNNER-UP/<br>
0194:     FINAL 4</td>
0195: <% If yr < 2004 Then %>
0196:     <td class="small" align="center">FINAL 4 RUNNER-UP</td>
0197: <% End If %>
0198:     <td class="small" align="center"><a
0199:     href="standingsmygroup.asp?sort=Round1&amp;Group=<%= Group %>" class="smallUndl">R1</a></td>
0200:     <td class="small" align="center"><a
0201:     href="standingsmygroup.asp?sort=Sweet16&amp;Group=<%= Group %>" class="smallUndl">S16</a></td>
0202:     <td class="small" align="center"><a
0203:     href="standingsmygroup.asp?sort=Final8&amp;Group=<%= Group %>" class="smallUndl">F8</a></td>
0204:     <td class="small" align="center"><a
0205:     href="standingsmygroup.asp?sort=Final4&amp;Group=<%= Group %>" class="smallUndl">F4</a></td>
0206:     <td class="small" align="center"><a
0207:     href="standingsmygroup.asp?sort=Final2&amp;Group=<%= Group %>" class="smallUndl">F2</a></td>
0208:     <td class="small" align="center"><a
0209:     href="standingsmygroup.asp?sort=Final1&amp;Group=<%= Group %>" class="smallUndl">F1</a></td>
0210:   </tr>
0211: <%	bgcolor = "#e8e8e8"
0212: 		Do Until rs.EOF
0213: 		   ranking = CInt(rs("Rank").Value)
0214: 		   IF ranking < tenpct then
0215: 		      bgcolor = "#BCF5A9"
0216: 		   Else
0217: 			If bgcolor = "#e8e8e8" Then
0218: 				bgcolor = "#ffffff"
0219: 			Else
0220: 				bgcolor = "#e8e8e8"
0221: 			End If	
0222: 			End If
0223: 			%>
0224:   <tr bgcolor="<%= bgcolor %>" height="18">
0225:     <td class="smalldark" align="center"><%= ranking %>
0226: </td>
0227: <% If yr < 2004 Then %>
0228:     <td class="smalldark" align="left"><%= rs("Name").Value %>
0229: </td>
0230: <% Else %>
0231:     <td class="smalldark" align="left"><a
0232:     href="displaypicks3.asp?year=<%= yr %>&amp;pick=<%= rs("PicksId").Value %>"
0233:     class="normUndl"><%= rs("Name").Value %></a></td>
0234: <% End If %>
0235:     <td class="smalldark" align="left"><%= rs("City").Value %>
0236: </td>
0237:     <td class="smalldark" align="center"><%= rs("Pts").Value %>
0238: </td>
0239:     <td class="smalldark" align="center"><%= rs("PossPts").Value %>
0240: </td>
0241:     <td class="smalldark" align="center"><%= rs("Champion").Value %>
0242: </td>
0243:     <td class="smalldark" align="left"><%= rs("RunnerUp").Value %>
0244: </td>
0245: <% If yr < 2004 Then %>
0246:     <td class="smalldark" align="left"><%= rs("F4RunnerUp").Value %>
0247: </td>
0248: <% End If %>
0249:     <td class="smalldark" align="center"><%= rs("Round1").Value %>
0250: </td>
0251:     <td class="smalldark" align="center"><%= rs("Sweet16").Value %>
0252: </td>
0253:     <td class="smalldark" align="center"><%= rs("Final8").Value %>
0254: </td>
0255:     <td class="smalldark" align="center"><%= rs("Final4").Value %>
0256: </td>
0257:     <td class="smalldark" align="center"><%= rs("Final2").Value %>
0258: </td>
0259:     <td class="smalldark" align="center"><%= rs("Final1").Value %>
0260: </td>
0261:   </tr>
0262: <%		rs.MoveNext
0263: 		Loop
0264: 		rs.Close
0265: 		Set rs = Nothing	%>
0266: </table>
0267: </body>
0268: </html>