Count Lines in Pages
Contents of Page: mystandings.asp
Number of Lines: 204
Last Modified: 4/21/2025 2:53:19 PM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: 	yr = Request.QueryString("yr")
0008: 	GroupName = Request.QueryString("group")
0009: 	If yr = "" Then yr = season
0010: 	sortStr = Request.QueryString("sort")
0011: 	If sortStr = "" Then sortStr = "Rank"
0012: 	Select Case sortStr
0013: 		Case "Pts,Round1,Sweet16,Final8,Final4,Final2,Final1"
0014: 			sortStr = sortStr & " DESC"
0015: 		Case "Champion"
0016: 			sortStr = sortStr & ", Rank"			
0017: 	End Select
0018: 
0019: 	user = Request.Cookies("user")	
0020: 	If user = "" Then Response.Redirect("login.asp?from=standingsmygroup.asp")
0021: 	
0022: 	yr = Request.QueryString("yr")
0023: 	If yr = "" Then yr = season
0024: 	
0025: 	Set rsg = Server.CreateObject("ADODB.Recordset")
0026: 	sqlString = "SELECT * FROM mmEntries " & _
0027: 			"WHERE Season = " & yr & " " & _
0028: 			"AND EmailAddress = '" & user & "'"
0029: 	rsg.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0030: 	
0031:     
0032:    group = rsg("GroupName").Value
0033:    
0034:    groupname1 = rsg("GroupName").Value
0035:    groupname2 = rsg("GroupName2").Value
0036:    groupname3 = rsg("GroupName3").Value 
0037:      
0038:    	paid = rsg("PaidEntries").Value
0039: 	firstname = rsg("FirstName").Value
0040: 	
0041: 		If GroupName <> "" Then
0042: 		  group = GroupName
0043: 	    End If
0044: 	
0045: 	rsg.Close
0046: 	set rsg = Nothing
0047: 	
0048: If groupname1 <> "DEFAULT"  Then
0049: 	group1 = groupname1
0050: 	End If 
0051: 	If groupname2 <> "DEFAULT"  Then
0052: 	group2 = groupname2
0053: 	End If 
0054: 	If groupname3 <> "DEFAULT"  Then
0055: 	group3 = groupname3
0056: 	End If 	
0057: 
0058: '	If paid < 1 Then Response.Redirect("notpaidyet.asp?name=" & firstname)
0059: 
0060: 	Set rsSurvey = Server.CreateObject("ADODB.Recordset")
0061: 	sqlString = "SELECT season FROM mmSurvey WHERE EmailAddress = '" & user & "' "  & _
0062: 							"AND Season = " & season
0063:         
0064: 	rsSurvey.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0065: 
0066: 	If rsSurvey.EOF Then
0067: 		rsSurvey.Close
0068: 		set rsSurvey = Nothing
0069: '		Response.Redirect("postsurvey.asp?from=standingsmygroup.asp")
0070:     Else
0071:     rsSurvey.Close
0072: 	set rsSurvey = Nothing
0073: 	End If
0074: 
0075: 
0076: 	Set rs = Server.CreateObject("ADODB.Recordset")
0077: 	sqlString = "SELECT * FROM mmStandings " & _
0078: 			"WHERE Season = " & yr & " " & _
0079: 			"AND ( GroupName = '" & group & "' "  &  _
0080:             "OR GroupName2 = '" & group & "' " &  _			
0081: 			"OR GroupName3 = '" & group & "' )"  &  _
0082: 			"ORDER BY " & sortStr
0083: 			
0084: '	Response.Write(sqlString)
0085: 				
0086: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0087: 	
0088: '	Response.Write(sqlString)
0089: 
0090: '	Set rsSeasons = Server.CreateObject("ADODB.Recordset")
0091: '	sqlString = "SELECT DISTINCT Season FROM mmStandings " & _
0092: '			"ORDER BY Season DESC"
0093: '	rsSeasons.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0094: %>
0095: 
0096: <html>
0097: 
0098: <head>
0099: 	<title>March Madness - Standings</title>
0100: 	<link href="mm.css" rel="stylesheet" type="text/css">
0101: 
0102: 	<script language="JavaScript">
0103: 	
0104: 		function getData(form)	{
0105: 			var yr = form.SeasonYr.options[form.SeasonYr.selectedIndex].value
0106: 			if (yr != "")	{
0107: 				document.location.href = "standingsmygroup.asp?yr="+yr
0108: 			}
0109: 		}
0110: 		
0111: 	</script>
0112: 
0113: </head>
0114: 
0115: <body bgcolor="#ffffff">
0116: 
0117: <table cellspacing="1" border="0" cellpadding="0" width="95%" align="center">
0118:   <tr>
0119: 		<td width="25" height="1"><img src="images/clear.gif" width="1" height="1"></td>
0120: 		<td width="110"><img src="images/clear.gif" width="1" height="1"></td>
0121: 		<td width="140"><img src="images/clear.gif" width="1" height="1"></td>
0122: 		<td width="30"><img src="images/clear.gif" width="1" height="1"></td>
0123: 		<td width="30"><img src="images/clear.gif" width="1" height="1"></td>
0124: 		<td width="60"><img src="images/clear.gif" width="1" height="1"></td>
0125: 		<td width="150"><img src="images/clear.gif" width="1" height="1"></td>
0126: <% If yr < 2004 Then %>			
0127: 		<td width="200"><img src="images/clear.gif" width="1" height="1"></td>
0128: <% End If %>			
0129: 		<td width="25"><img src="images/clear.gif" width="1" height="1"></td>
0130: 		<td width="25"><img src="images/clear.gif" width="1" height="1"></td>
0131: 		<td width="25"><img src="images/clear.gif" width="1" height="1"></td>
0132: 		<td width="25"><img src="images/clear.gif" width="1" height="1"></td>
0133: 		<td width="25"><img src="images/clear.gif" width="1" height="1"></td>
0134: 		<td width="25"><img src="images/clear.gif" width="1" height="1"></td>
0135:   </tr>
0136: 	<tr>
0137: 		<td class="bigblue" colspan="14" height="30" align="left">
0138: 			Standings for group: <%= Group %>  ( <% If Group1 <> "" Then %> <a
0139:     href="Whoisinmygroup.asp?Group=<%= Group1 %>"><%= Group1 %></a> <% End If %> <% If Group2 <> "" Then %> <a
0140:     href="Whoisinmygroup.asp?Group=<%= Group2 %>"><%= Group2 %></a> <% End If %> <% If Group3 <> "" Then %> <a
0141:     href="Whoisinmygroup.asp?Group=<%= Group3 %>"><%= Group3 %></a> <% End If %><br>
0142: 			<span class="smalldark">(Standings are sorted by descending Possible Points. Click a column to change sort)</span>
0143: 		</td>
0144: 	</tr>
0145: 	<tr bgcolor="#577fbe">
0146: 		<td class="small" align="center"><a href="standingsmygroup.asp?sort=Rank" class="smallUndl">RNK</a></td>
0147: 		<td class="small" align="center"><a href="standingsmygroup.asp?sort=Name" class="smallUndl">NAME</a></td>
0148: 		<td class="small" align="center">FROM</td>
0149: 		<td class="small" align="center"><a href="standingsmygroup.asp?sort=Pts" class="smallUndl">PTS</a></td>
0150: 		<td class="small" align="center">POSS<br>PTS</td>
0151: 		<td class="small" align="center"><a href="standingsmygroup.asp?sort=Champion" class="smallUndl">CHAMPION</a></td>
0152: 		<td class="small" align="center">RUNNER-UP/<br>FINAL 4</td>
0153: <% If yr < 2004 Then %>		
0154: 		<td class="small" align="center">FINAL 4 RUNNER-UP</td>
0155: <% End If %>		
0156: 		<td class="small" align="center"><a href="standingsmygroup.asp?sort=Round1" class="smallUndl">R1</a></td>
0157: 		<td class="small" align="center"><a href="standingsmygroup.asp?sort=Sweet16" class="smallUndl">S16</a></td>
0158: 		<td class="small" align="center"><a href="standingsmygroup.asp?sort=Final8" class="smallUndl">F8</a></td>
0159: 		<td class="small" align="center"><a href="standingsmygroup.asp?sort=Final4" class="smallUndl">F4</a></td>
0160: 		<td class="small" align="center"><a href="standingsmygroup.asp?sort=Final2" class="smallUndl">F2</a></td>
0161: 		<td class="small" align="center"><a href="standingsmygroup.asp?sort=Final1" class="smallUndl">F1</a></td>
0162: 	</tr>
0163: <%	bgcolor = "#e8e8e8"
0164: 		Do Until rs.EOF
0165: 		   ranking = rs("Rank").Value
0166: 		   IF ranking < 25 then
0167: 		      bgcolor = "#FED87B"
0168: 		   Else
0169: 			If bgcolor = "#e8e8e8" Then
0170: 				bgcolor = "#ffffff"
0171: 			Else
0172: 				bgcolor = "#e8e8e8"
0173: 			End If	
0174: 			End If
0175: 			%>
0176: 	<tr bgcolor="<%= bgcolor %>">
0177: 		<td class="smalldark" align="center"><%= ranking %></td>
0178: <% If yr < 2004 Then %>		
0179: 		<td class="smalldark" align="left"><%= rs("Name").Value %></td>
0180: <% Else %>		
0181: 				<td class="smalldark" align="left"><a href="displaypicks3.asp?year=<%= yr %>&pick=<%= rs("PicksId").Value %>" class="normUndl"><%= rs("Name").Value %></a></td>
0182: <% End If %>				
0183: 		<td class="smalldark" align="left"><%= rs("City").Value %></td>
0184: 		<td class="smalldark" align="center"><%= rs("Pts").Value %></td>
0185: 		<td class="smalldark" align="center"><%= rs("PossPts").Value %></td>
0186: 		<td class="smalldark" align="center"><%= rs("Champion").Value %></td>
0187: 		<td class="smalldark" align="left"><%= rs("RunnerUp").Value %></td>
0188: <% If yr < 2004 Then %>			
0189: 		<td class="smalldark" align="left"><%= rs("F4RunnerUp").Value %></td>
0190: <% End If %>			
0191: 		<td class="smalldark" align="center"><%= rs("Round1").Value %></td>
0192: 		<td class="smalldark" align="center"><%= rs("Sweet16").Value %></td>
0193: 		<td class="smalldark" align="center"><%= rs("Final8").Value %></td>
0194: 		<td class="smalldark" align="center"><%= rs("Final4").Value %></td>
0195: 		<td class="smalldark" align="center"><%= rs("Final2").Value %></td>
0196: 		<td class="smalldark" align="center"><%= rs("Final1").Value %></td>
0197: 	</tr>
0198: <%		rs.MoveNext
0199: 		Loop
0200: 		rs.Close
0201: 		Set rs = Nothing	%>
0202: </table>
0203: </body>
0204: </html>