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