Count Lines in Pages
Contents of Page: roadstandings.aspo
Number of Lines: 253
Last Modified: 8/22/2018 1:33:14 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: 	yr = Request.QueryString("yr")
0007: 	If yr = "" Then yr = season
0008: 	If startmakepicks = "YES" Then
0009: 	user = Request.Cookies("user")
0010: 	If user = "" and startmakepicks = "YES" Then Response.Redirect("login.asp?from=roadstandings.asp")
0011:  
0012:   	Set rsg = Server.CreateObject("ADODB.Recordset")
0013: 	sqlString = "SELECT * FROM mmEntries " & _
0014: 			"WHERE Season = " & yr & " " & _
0015: 			"AND EmailAddress = '" & user & "'"
0016: 	rsg.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0017:     
0018:     If rsg.EOF Then
0019: '     
0020:     Else	
0021: 	paid = rsg("PaidEntries").Value
0022: 	firstname = rsg("FirstName").Value
0023: 	ShowStand = rsg("ShowStandings").Value
0024: 	
0025: 	rsg.Close
0026: 	set rsg = Nothing
0027: 	End if
0028:  YrDiff = season - yr
0029:     If YrDiff <> 0 Then
0030:     ShowStand = True
0031:     Else
0032:     ShowStand = False
0033:     End If	
0034: 
0035: 	If paid < 1 and ShowStand = False Then Response.Redirect("notpaidyet.asp?name=" & firstname)
0036: 	
0037: '	Set rsSurvey = Server.CreateObject("ADODB.Recordset")
0038: '	sqlString = "SELECT season FROM mmSurvey WHERE EmailAddress = '" & user & "' "  & _
0039: '							"AND Season = " & season
0040:         
0041: '	rsSurvey.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0042: 
0043: '	If rsSurvey.EOF Then
0044: '		rsSurvey.Close
0045: '		set rsSurvey = Nothing
0046: '		Response.Redirect("postsurvey.asp?from=standings.asp")
0047: '    Else
0048: '    rsSurvey.Close
0049: '	set rsSurvey = Nothing
0050: '	End If
0051:  
0052: 
0053: 
0054:    
0055:     End If
0056: 	
0057: 	sortStr = Request.QueryString("sort")
0058: 	If sortStr = "" Then sortStr = "CurrPos"
0059: 	If sortStr = "RCPoints" Then sortStr = sortStr & " DESC"
0060: 	
0061:    sortStr = sortStr 
0062: 	Set rs = Server.CreateObject("ADODB.Recordset")
0063: 	sqlString = "SELECT * FROM mmPicks " & _
0064: 			"WHERE Season = " & yr & " " & _
0065: 			"ORDER BY " & sortStr
0066: 			
0067: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0068: 
0069: 	Set rsSeasons = Server.CreateObject("ADODB.Recordset")
0070: 	sqlString = "SELECT DISTINCT Season FROM mmPicks " & _
0071: 	            "WHERE Season > 2005 " & _
0072: 		    	"ORDER BY Season DESC"
0073: 	rsSeasons.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0074: %>
0075: <html>
0076: 
0077: <head>
0078: <title>March Madness - Standings</title>
0079: <link href="mm.css" rel="stylesheet" type="text/css">
0080: <script language="JavaScript">
0081: 	
0082: 		function getData(form)	{
0083: 			var yr = form.SeasonYr.options[form.SeasonYr.selectedIndex].value
0084: 			if (yr != "")	{
0085: 				document.location.href = "roadstandings.asp?yr="+yr
0086: 			}
0087: 		}
0088: 		
0089: 	</script>
0090: </head>
0091: 
0092: <body bgcolor="#ffffff">
0093: 
0094: <table cellspacing="1" border="0" cellpadding="0" width="790" align="center">
0095:   <tr>
0096:     <td width="25" height="1"><img src="clear.gif" width="1" height="1"></td>
0097:     <td width="200"><img src="clear.gif" width="1" height="1"></td>
0098:     <td width="100"><img src="clear.gif" width="1" height="1"></td>
0099:     <td width="100"><img src="clear.gif" width="1" height="1"></td>
0100:     <td width="25"><img src="clear.gif" width="1" height="1"></td>
0101:     <td width="25"><img src="clear.gif" width="1" height="1"></td>
0102:     <td width="25"><img src="clear.gif" width="1" height="1"></td>
0103:     <td width="25"><img src="clear.gif" width="1" height="1"></td>
0104:     <td width="25"><img src="clear.gif" width="1" height="1"></td>
0105:     <td width="25"><img src="clear.gif" width="1" height="1"></td>
0106:     <td width="25"><img src="clear.gif" width="1" height="1"></td>
0107:     <td width="25"><img src="clear.gif" width="1" height="1"></td>
0108:     <td width="25"><img src="clear.gif" width="1" height="1"></td>
0109:     <td width="125"><img src="clear.gif" width="1" height="1"></td>
0110:   </tr>
0111:   <tr>
0112:     <td colspan="14" height="35" align="center"><form method="post">
0113:       <p><b><font face="Arial" color="#577FBE">Road to Current Standings</font></b> <span
0114:       class="normbold">&nbsp;Season: </span><select size="1" name="SeasonYr"
0115:       onchange="getData(this.form)">
0116:         <option value selected>--select--</option>
0117: <%	Do Until rsSeasons.EOF
0118: 			If CInt(yr) = CInt(rsSeasons("Season").Value) Then	%>        <option value="<%= rsSeasons("Season").Value %>" selected><%= rsSeasons("Season").Value %></option>
0119: <%		Else	%>        <option value="<%= rsSeasons("Season").Value %>"><%= rsSeasons("Season").Value %></option>
0120: <%		End If
0121: 			rsSeasons.MoveNext
0122: 		Loop
0123: 		rsSeasons.Close
0124: 		Set rsSeasons = Nothing	%>      </select>&nbsp;</p>
0125:     </form>
0126:     </td>
0127:   </tr>
0128:   <tr bgcolor="#FED87B">
0129:     <td class="norm" align="center"><a href="roadstandings.asp?sort=CurrPos&amp;yr=<%= yr %>">Rank</a></td>
0130:     <td class="norm" align="center"><a
0131:     href="roadstandings.asp?sort=EntryName&amp;yr=<%= yr %>">Entry Name</a></td>
0132:     <td class="norm" align="center">Champion</td>
0133:     <td class="norm" align="center">Runner-Up</td>
0134:     <td class="norm" align="center">Pts</td>
0135:     <td class="norm" align="center">Poss</td>
0136:     <td class="norm" align="center"><a href="roadstandings.asp?sort=F32S&amp;yr=<%= yr %>">F32</a></td>
0137:     <td class="norm" align="center"><a href="roadstandings.asp?sort=F16S&amp;yr=<%= yr %>">F16</a></td>
0138:     <td class="norm" align="center"><a href="roadstandings.asp?sort=F8S&amp;yr=<%= yr %>">F8</a></td>
0139:     <td class="norm" align="center"><a href="roadstandings.asp?sort=F4S&amp;yr=<%= yr %>">F4</a></td>
0140:     <td class="norm" align="center"><a href="roadstandings.asp?sort=F2S&amp;yr=<%= yr %>">F2</a></td>
0141:     <td class="norm" align="center"><a href="roadstandings.asp?sort=F1S&amp;yr=<%= yr %>">F1</a></td>
0142:     <td class="norm" align="center"><a href="roadstandings.asp?sort=RCPoints&amp;yr=<%= yr %>">RCPts</a></td>
0143:   </tr>
0144: <%	bgcolor = "#e8e8e8"
0145: season = yr
0146: 		Do Until rs.EOF
0147: 		   ranking = rs("CurrPos").Value
0148: 			If bgcolor = "#e8e8e8" Then
0149: 				bgcolor = "#ffffff"
0150: 			Else
0151: 				bgcolor = "#e8e8e8"
0152: 			End If	
0153: 			P1 = rs("F1").Value
0154: 			If P1 <> rs("S1").Value Then
0155: 				P2 = rs("S1").Value
0156: 			Else
0157: 				P2 = rs("S2").Value
0158: 			End If			
0159: F32Pos = rs("F32S").Value 
0160: F16Pos = rs("F16S").Value 
0161: F8Pos = rs("F8S").Value 
0162: F4Pos = rs("F4S").Value 
0163: F2Pos = rs("F2S").Value 
0164: F1Pos = rs("F1S").Value 	
0165: RCPoints =  rs("RCPoints")
0166:  IF F16Pos > 0 Then
0167:     Diff = F32pos - F16Pos
0168:     SDiff = CStr(Diff)
0169:     If Diff > 0 Then
0170:        RCDetail = "+" & SDiff
0171:     Else
0172:        RCDetail = SDiff
0173:     End If
0174:  End If
0175:  IF F8Pos > 0 Then
0176:     Diff = F16pos - F8Pos
0177:     SDiff = CStr(Diff)
0178:     If Diff > 0 Then
0179:        RCDetail2 = RCDetail & "," & "+" & SDiff
0180:     Else
0181:        RCDetail2 = RCDetail & "," & SDiff
0182:     End If
0183:     RCDetail = RCDetail2
0184:  End If
0185:  IF F4Pos > 0 Then
0186:     Diff = F8pos - F4Pos
0187:     SDiff = CStr(Diff)
0188:     If Diff > 0 Then
0189:        RCDetail2 = RCDetail & "," & "+" & SDiff
0190:     Else
0191:        RCDetail2 = RCDetail & "," & SDiff
0192:     End If
0193:     RCDetail = RCDetail2
0194:   End If
0195:   IF F2Pos > 0 Then
0196:      Diff = F4pos - F2Pos
0197:      SDiff = CStr(Diff)
0198:      If Diff > 0 Then
0199:         RCDetail2 = RCDetail & "," & "+" & SDiff
0200:      Else
0201:         RCDetail2 = RCDetail & "," & SDiff
0202:      End If
0203:      RCDetail = RCDetail2
0204:   End If
0205:   IF F1Pos > 0 Then
0206:      Diff = F2pos - F1Pos
0207:      SDiff = CStr(Diff)
0208:      If Diff > 0 Then
0209:         RCDetail2 = RCDetail & "," & "+" & SDiff
0210:      Else
0211:         RCDetail2 = RCDetail & "," & SDiff
0212:      End If
0213:      RCDetail = RCDetail2
0214:   End If
0215: 
0216: 			%>
0217:   <tr bgcolor="<%= bgcolor %>">
0218:     <td class="smalldark" align="center"><%= ranking %>
0219: </td>
0220:     <td class="smalldark" align="left"><a
0221:     href="displaypicks3.asp?year=<%= yr %>&amp;pick=<%= rs("ID").Value %>" class="normUndl"><%= rs("EntryName").Value %></a></td>
0222:     <td class="smalldark" align="center"><%= displayTeam(P1) %>
0223: </td>
0224:     <td class="smalldark" align="center"><%= displayTeam(P2) %>
0225: </td>
0226:     <td class="smalldark" align="center"><%= rs("FPts").Value %>
0227: </td>
0228:     <td class="smalldark" align="center"><%= rs("Poss_Pts").Value %>
0229: </td>
0230:     <td class="smalldark" align="center"><%= F32Pos %>
0231: </td>
0232:     <td class="smalldark" align="center"><%= F16Pos %>
0233: </td>
0234:     <td class="smalldark" align="center"><%= F8Pos %>
0235: </td>
0236:     <td class="smalldark" align="center"><%= F4Pos %>
0237: </td>
0238:     <td class="smalldark" align="center"><%= F2Pos %>
0239: </td>
0240:     <td class="smalldark" align="center"><%= F1Pos %>
0241: </td>
0242:     <td class="smalldark" align="center"><%= RCPoints %>
0243: </td>
0244:     <td class="smalldark" align="left"><%= RCDetail %>
0245: </td>
0246:   </tr>
0247: <%		rs.MoveNext
0248: 		Loop
0249: 		rs.Close
0250: 		Set rs = Nothing	%>
0251: </table>
0252: </body>
0253: </html>