0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/ReturnPageSet.inc" -->	
0005: <%
0006: EmailAddr = Request.QueryString("Email")
0007: If EmailAddr = "" Then
0008: user = Request.Cookies("user")	
0009: Else
0010: User = EmailAddr
0011: End If
0012: 	If user = "" Then Response.Redirect("login.asp?from=standingsmybuddies.asp")
0013: 
0014: 	yr = Request.QueryString("yr")
0015: 	If yr = "" Then yr = season
0016: 	
0017: 			GroupNo = Request.QueryString("GroupNo")
0018: 		
0019: 		If GroupNo = "" Then GroupNo = 1
0020: 	
0021: 	sortStr = Request.QueryString("sort")
0022: 	If sortStr = "" Then sortStr = "Rank"
0023: 
0024: 	Select Case sortStr
0025: 		Case "Pts"
0026: 			sortStr = sortStr & " DESC"
0027: 		Case "Round1"
0028: 			sortStr = sortStr & " DESC"
0029: 		Case "Sweet16"
0030: 			sortStr = sortStr & " DESC"
0031: 		Case "Final8"
0032: 			sortStr = sortStr & " DESC"
0033: 		Case "Final4"
0034: 			sortStr = sortStr & " DESC"
0035: 		Case "Final2"
0036: 			sortStr = sortStr & " DESC"
0037: 		Case "Final1"
0038: 			sortStr = sortStr & " DESC"
0039: 		Case "Champion"
0040: 			sortStr = sortStr & ", Rank"			
0041: 	End Select
0042: 
0043: 
0044: 	yr = Request.QueryString("yr")
0045: 	If yr = "" Then yr = season
0046: 	
0047: 	LastYr = Yr - 1
0048: 	NextYr = Yr + 1
0049: 	
0050: 	Set rsg = Server.CreateObject("ADODB.Recordset")
0051: 	sqlString = "SELECT * FROM mmEntries " & _
0052: 			"WHERE Season = " & season & " " & _
0053: 			"AND EmailAddress = '" & user & "'"
0054: '	rsg.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0055: 	rsg.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0056:     
0057: 		BuddiesFieldName = "MyBuddies" & GroupNo
0058: 	
0059:    MyBuddies = rsg(BuddiesFieldName).Value
0060:    MyRegNumber = rsg("RegNumber").Value
0061:    
0062:    If MyBuddies = "" or IsNull(MyBuddies) = True or MyBuddies = "," Then	
0063: MyBuddies = "Group # " & GroupNo & "|" & MyRegNumber & "|"
0064: End If
0065: 
0066: ' Response.Write("<br>MyBuddies=" & MyBuddies)
0067:    
0068:    If MyBuddies <> "" Then
0069: 
0070:    
0071:    BuddyIDS = Split(MyBuddies,"|")
0072:    
0073:       
0074:    ThisGroupName = BuddyIDS(0)
0075:    
0076:    Done = ""
0077:    Loc = 0
0078:    Selection = "AND ( RegNumber = '" & MyRegNumber & "' "
0079:    
0080:    Do Until Done = "X"
0081:       Loc = Loc + 1
0082:    BuddyID = Trim(BuddyIDS(Loc))
0083:    If BuddyID = "" Then
0084:    Done = "X"
0085:    Else
0086: 
0087:    Selection = Selection & " OR Regnumber = '" & BuddyID & "' "
0088:   
0089:    End If
0090: 
0091:    Loop
0092:    
0093:       Selection = Selection & " )"
0094: 	  
0095:     Else
0096:    
0097:     Selection = "AND RegNumber = '" & MyRegNumber & "' "
0098:    
0099:    End If
0100: 
0101:     
0102:    group = groupname1 
0103: 	paid = rsg("PaidEntries").Value
0104:     Entries = rsg("NumEntries").Value
0105:     Num2ndEntries = rsg("Num2ndEntries").Value
0106: 	paid2nd = rsg("Paid2ndEntries").Value
0107: 	firstname = rsg("FirstName").Value
0108: 	ShowStand = rsg("ShowStandings").Value
0109: 	MyRegNumber = rsg("RegNumber").Value
0110: 		
0111: MyBuddies1 = rsg("MyBuddies1").Value
0112: MyBuddies2 = rsg("MyBuddies2").Value
0113: MyBuddies3 = rsg("MyBuddies3").Value
0114: 
0115: If MyBuddies1 = "" or IsNull(MyBuddies1) = True Then	
0116: MyBuddies1 = "Group #1|" & MyRegNumber & "|"
0117: End If
0118: If MyBuddies1 = "" or IsNull(MyBuddies2) = True Then
0119: MyBuddies2 = "Group #2|" & MyRegNumber & "|"
0120: End If
0121: If MyBuddies3 = "" or IsNull(MyBuddies3) = True Then
0122: MyBuddies3 = "Group #1|" & MyRegNumber & "|"
0123: End If
0124: 	
0125: 	rsg.Close
0126: 	set rsg = Nothing
0127: 
0128: 
0129:     If showstandingstounpaid <> "YES" Then
0130: 
0131: UnpaidEntries = Entries - Paid
0132: UnpaidEntries = UnpaidEntries + (num2ndEntries - Paid2nd)
0133: UnpaidEntries = CInt(UnpaidEntries)
0134:     
0135: 		If UnpaidEntries > 0 and ShowStand = False Then 
0136: 			Response.Redirect("notpaidyet.asp?name=" & firstname)
0137: 		Else
0138: 	'	Response.Write("paid=" & paid & " paid2nd=" & paid2nd & " ShowStand=" & ShowStand & " yr=" & Thisyr & " season=" & season & "YrDiff=" & YrDiff & "UndpaidEntries=" & UnpaidEntries)
0139: 		End If
0140: 
0141:     End If
0142: 		If GroupName <> "" Then
0143: 		  group = GroupName
0144: 	    End If
0145: 
0146: 	
0147: 		Set rst = Server.CreateObject("ADODB.Recordset")
0148: 	sqlString = "SELECT COUNT(Season) as RecordCount FROM mmStandings " & _
0149: 			"WHERE Season = " & yr 
0150: 	rst.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0151: 	
0152: totpicks = CInt(rst("RecordCount").Value)
0153: '	totpicks = rst.RecordCount
0154:    	tenpct = totpicks / 10
0155: 
0156: 		rst.Close
0157: 		Set rst = Nothing
0158: 
0159: 
0160: 			
0161: 				Set rs = Server.CreateObject("ADODB.Recordset")
0162: 	sqlString = "SELECT * FROM mmStandings " & _
0163: 			"WHERE Season = " & yr & " " & _
0164: 	
0165: 	        Selection & _
0166: 			"ORDER BY " & sortStr
0167: 
0168: '			Response.Write(sqlstring & "<br>")	
0169: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0170: 	
0171: 
0172: 
0173: %>
0174: <html>
0175: 
0176: <head>
0177: <title>March Madness - My Group Standings</title>
0178: <link href="mm.css" rel="stylesheet" type="text/css">
0179: 	<link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">
0180: <script language="JavaScript">
0181: 	
0182: 		function getData(form)	{
0183: 			var yr = form.SeasonYr.options[form.SeasonYr.selectedIndex].value
0184: 			if (yr != "")	{
0185: 				document.location.href = "standingsmygroup.asp?yr="+yr
0186: 			}
0187: 		}
0188: 		
0189: 	</script>
0190: </head>
0191: 
0192: <body bgcolor="#ffffff">
0193: 
0194: <table cellspacing="1" border="0" cellpadding="0" width="900"">
0195: <tr>
0196: <td class="norm"  align="right" colspan="14"><big><big><% If LastYr >= MaxYearToShow Then %><a href="standingsmybuddies.asp?yr=<%= LastYr %>"><<</a><% End If %> |<b> <%= Yr %></b>
0197:  | <a href="standingsmybuddies.asp?yr=<%= NextYr %>&RegNumber=<%= RegNumber %>&Desktop=<%= Desktop %>">>></a> 
0198:   <tr>
0199:  <tr>
0200:     <td class="bigblue" colspan="5" height="30" >Standings for Group: <font color="red"><%= ThisGroupName %></td>
0201: 	    <td class="norm" colspan="10" height="30" align="right">
0202:      <% If MyBuddies1 <> "" Then %> <small><a
0203:     href="standingsmybuddies.asp?yr=<%= yr %>&sort=Rank&GroupNo=1" class="button-40">Group 1</a> 
0204: 		<% End If %>
0205: 		<% If MyBuddies2 <> "" Then %> <a
0206:     href="standingsmybuddies.asp?yr=<%= yr %>&sort=Rank&GroupNo=2" class="button-40">Group 2</a> 
0207: 		<% End If %>
0208: 		<% If MyBuddies3 <> "" Then %> <a
0209:     href="standingsmybuddies.asp?yr=<%= yr %>&sort=Rank&GroupNo=3" class="button-40">Group 3</a> 
0210: 		<% End If %>
0211:  </tr>
0212: 
0213:     <td width="3%" height="1"><img src="clear.gif" width="1" height="1"></td>
0214:     <td width="13%"><img src="clear.gif" width="1" height="1"></td>
0215:     <td width="16%"><img src="clear.gif" width="1" height="1"></td>
0216:     <td width="10%"><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="10%"><img src="clear.gif" width="1" height="1"></td>
0220:     <td width="18%"><img src="clear.gif" width="1" height="1"></td>	
0221:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0222:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0223:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0224:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0225:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0226:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0227:   </tr>
0228:  
0229: <td class="smalldark" colspan="6">(Sorted by descending Possible Points. Click a
0230:       column to change sort)</td><td class="smalldark" colspan="8" align="right">
0231: 	  Last updated @  <font color="red"><%= STANDINGSUPDATED %></font> (PDT)
0232: </td></tr>
0233:   </tr>
0234:   <tr bgcolor="#577fbe">
0235:     <td class="small" align="center"><a
0236:     href="standingsmybuddies.asp?yr=<%= yr %>&sort=Rank&amp;GroupNo=<%= GroupNo %>" class="smallUndl">RNK</a></td>
0237: 	<td class="small" align="center"><a
0238:     href="standingsmybuddies.asp?yr=<%= yr %>&sort=RealName&amp;GroupNo=<%= GroupNo %>" class="smallUndl">FullName</a>
0239: 
0240: 		    <td class="norm" align="center"><a
0241:     href="standingsmybuddies.asp?yr=<%= yr %>&sort=Name&amp;GroupNo=<%= GroupNo %>" class="smallUndl">Entry Name</a></td>
0242:     <td class="small" align="center">FROM</td>
0243: 
0244:     <td class="small" align="center"><a
0245:     href="standingsmybuddies.asp?yr=<%= yr %>&sort=Pts&amp;GroupNo=<%= GroupNo %>" class="smallUndl">PTS</a></td>
0246:     <td class="small" align="center">POSS<br>
0247:     PTS</td>
0248:     <td class="small" align="center"><a
0249:     href="standingsmybuddies.asp?yr=<%= yr %>&sort=Champion&amp;GroupNo=<%= GroupNo %>" class="smallUndl">CHAMPION</a></td>
0250:     <td class="small" align="center">RUNNER-UP/<br>
0251:     FINAL 4</td>
0252: <% If yr < 2004 Then %>
0253:     <td class="small" align="center">FINAL 4 RUNNER-UP</td>
0254: <% End If %>
0255:     <td class="small" align="center"><a
0256:     href="standingsmybuddies.asp?yr=<%= yr %>&sort=Round1&amp;GroupNo=<%= GroupNo %>" class="smallUndl">R1</a></td>
0257:     <td class="small" align="center"><a
0258:     href="standingsmybuddies.asp?yr=<%= yr %>&sort=Sweet16&amp;GroupNo=<%= GroupNo %>" class="smallUndl">S16</a></td>
0259:     <td class="small" align="center"><a
0260:     href="standingsmybuddies.asp?yr=<%= yr %>&sort=Final8&amp;GroupNo=<%= GroupNo %>" class="smallUndl">F8</a></td>
0261:     <td class="small" align="center"><a
0262:     href="standingsmybuddies.asp?yr=<%= yr %>&sort=Final4&amp;GroupNo=<%= GroupNo %>" class="smallUndl">F4</a></td>
0263:     <td class="small" align="center"><a
0264:     href="standingsmybuddies.asp?yr=<%= yr %>&sort=Final2&amp;GroupNo=<%= GroupNo %>" class="smallUndl">F2</a></td>
0265:     <td class="small" align="center"><a
0266:     href="standingsmybuddies.asp?yr=<%= yr %>&sort=Final1&amp;GroupNo=<%= GroupNo %>" class="smallUndl">F1</a></td>
0267:   </tr>
0268: <%	bgcolor = "#e8e8e8"
0269: 		Do Until rs.EOF
0270: 		   ranking = CInt(rs("Rank").Value)
0271: 		   IF ranking < tenpct then
0272: 		      bgcolor = "#BCF5A9"
0273: 		   Else
0274: 			If bgcolor = "#e8e8e8" Then
0275: 				bgcolor = "#ffffff"
0276: 			Else
0277: 				bgcolor = "#e8e8e8"
0278: 			End If	
0279: 			End If
0280: 			
0281: 			FullName = rs("RealName").Value 
0282: 
0283: 			%>
0284:   <tr bgcolor="<%= bgcolor %>" height="18">
0285:     <td class="smalldark" align="center"><%= ranking %>
0286: </td>
0287: 
0288:     <td class="norm" align="left"><%= FullName %>
0289: </td>
0290: 
0291:     <td class="smalldark" align="left"><a
0292:     href="displaypicks3.asp?year=<%= yr %>&amp;pick=<%= rs("PicksId").Value %>"
0293:     class="normUndl"><%= rs("Name").Value %></a></td>
0294: 
0295:     <td class="smalldark" align="left"><%= rs("City").Value %>
0296: </td>
0297:     <td class="smalldark" align="center"><%= rs("Pts").Value %>
0298: </td>
0299:     <td class="smalldark" align="center"><%= rs("PossPts").Value %>
0300: </td>
0301:     <td class="smalldark" align="center"><%= rs("Champion").Value %>
0302: </td>
0303:     <td class="smalldark" align="left"><%= rs("RunnerUp").Value %>
0304: </td>
0305: <% If yr < 2004 Then %>
0306:     <td class="smalldark" align="left"><%= rs("F4RunnerUp").Value %>
0307: </td>
0308: <% End If %>
0309:     <td class="smalldark" align="center"><%= rs("Round1").Value %>
0310: </td>
0311:     <td class="smalldark" align="center"><%= rs("Sweet16").Value %>
0312: </td>
0313:     <td class="smalldark" align="center"><%= rs("Final8").Value %>
0314: </td>
0315:     <td class="smalldark" align="center"><%= rs("Final4").Value %>
0316: </td>
0317:     <td class="smalldark" align="center"><%= rs("Final2").Value %>
0318: </td>
0319:     <td class="smalldark" align="center"><%= rs("Final1").Value %>
0320: </td>
0321:   </tr>
0322: <%		rs.MoveNext
0323: 		Loop
0324: 		rs.Close
0325: 		Set rs = Nothing	%>
0326: </table>
0327: 
0328: <table cellspacing="1" border="0" cellpadding="0" width="300">
0329: <tr><td class="norm">
0330: <br><br><br><br>
0331: <a href="mmpickmybuddies.asp?Columns=4" class="button-40">Review/Change Groups</a>&nbsp;&nbsp;	  
0332: </td>
0333: </tr>
0334: </table>
0335: </body>
0336: </html>