Count Lines in Pages
Contents of Page: roadstandings.asp
Number of Lines: 259
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: 
0063: 	Set rsSeasons = Server.CreateObject("ADODB.Recordset")
0064: 	sqlString = "SELECT DISTINCT Season FROM mmPicks " & _
0065: 	            "WHERE Season > 2005 " & _
0066: 		    	"ORDER BY Season DESC"
0067: 	rsSeasons.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0068: %>
0069: <html>
0070: 
0071: <head>
0072: <title>March Madness - Standings</title>
0073: <link href="mm.css" rel="stylesheet" type="text/css">
0074: <script language="JavaScript">
0075: 	
0076: 		function getData(form)	{
0077: 			var yr = form.SeasonYr.options[form.SeasonYr.selectedIndex].value
0078: 			if (yr != "")	{
0079: 				document.location.href = "roadstandings.asp?yr="+yr
0080: 			}
0081: 		}
0082: 		
0083: 	</script>
0084: </head>
0085: 
0086: <body bgcolor="#ffffff">
0087: 
0088: <table cellspacing="1" border="0" cellpadding="0" width="790" align="center">
0089:   <tr>
0090:     <td width="25" height="1"><img src="clear.gif" width="1" height="1"></td>
0091:     <td width="200"><img src="clear.gif" width="1" height="1"></td>
0092:     <td width="100"><img src="clear.gif" width="1" height="1"></td>
0093:     <td width="100"><img src="clear.gif" width="1" height="1"></td>
0094:     <td width="25"><img src="clear.gif" width="1" height="1"></td>
0095:     <td width="25"><img src="clear.gif" width="1" height="1"></td>
0096:     <td width="25"><img src="clear.gif" width="1" height="1"></td>
0097:     <td width="25"><img src="clear.gif" width="1" height="1"></td>
0098:     <td width="25"><img src="clear.gif" width="1" height="1"></td>
0099:     <td width="25"><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="125"><img src="clear.gif" width="1" height="1"></td>
0104:   </tr>
0105:   <tr>
0106:     <td colspan="14" height="35" align="center"><form method="post">
0107:       <p><b><font face="Arial" color="#577FBE">Road to Current Standings</font></b> <span
0108:       class="normbold">&nbsp;Season: </span><select size="1" name="SeasonYr"
0109:       onchange="getData(this.form)">
0110:         <option value selected>--select--</option>
0111: <%	Do Until rsSeasons.EOF
0112: 			If CInt(yr) = CInt(rsSeasons("Season").Value) Then	%>        <option value="<%= rsSeasons("Season").Value %>" selected><%= rsSeasons("Season").Value %></option>
0113: <%		Else	%>        <option value="<%= rsSeasons("Season").Value %>"><%= rsSeasons("Season").Value %></option>
0114: <%		End If
0115: 			rsSeasons.MoveNext
0116: 		Loop
0117: 		rsSeasons.Close
0118: 		Set rsSeasons = Nothing	%>      </select>&nbsp;</p>
0119:     </form>
0120:     </td>
0121:   </tr>
0122:   <tr bgcolor="#FED87B">
0123:     <td class="norm" align="center"><a href="roadstandings.asp?sort=CurrPos&amp;yr=<%= yr %>">Rank</a></td>
0124:     <td class="norm" align="center"><a
0125:     href="roadstandings.asp?sort=EntryName&amp;yr=<%= yr %>">Entry Name</a></td>
0126:     <td class="norm" align="center">Champion</td>
0127:     <td class="norm" align="center">Runner-Up</td>
0128:     <td class="norm" align="center">Pts</td>
0129:     <td class="norm" align="center">Poss</td>
0130:     <td class="norm" align="center"><a href="roadstandings.asp?sort=F32S&amp;yr=<%= yr %>">F32</a></td>
0131:     <td class="norm" align="center"><a href="roadstandings.asp?sort=F16S&amp;yr=<%= yr %>">F16</a></td>
0132:     <td class="norm" align="center"><a href="roadstandings.asp?sort=F8S&amp;yr=<%= yr %>">F8</a></td>
0133:     <td class="norm" align="center"><a href="roadstandings.asp?sort=F4S&amp;yr=<%= yr %>">F4</a></td>
0134:     <td class="norm" align="center"><a href="roadstandings.asp?sort=F2S&amp;yr=<%= yr %>">F2</a></td>
0135:     <td class="norm" align="center"><a href="roadstandings.asp?sort=F1S&amp;yr=<%= yr %>">F1</a></td>
0136:     <td class="norm" align="center"><a href="roadstandings.asp?sort=RCPoints&amp;yr=<%= yr %>">RCPts</a></td>
0137:   </tr>
0138: <%	bgcolor = "#e8e8e8"
0139: 
0140: 
0141: 	Set rs = Server.CreateObject("ADODB.Recordset")
0142: 	sqlString = "SELECT * FROM mmPicks " & _
0143: 			"WHERE Season = " & yr & " " & _
0144: 			"ORDER BY " & sortStr
0145: 			
0146: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0147: 
0148: 
0149: 
0150: 
0151: season = yr
0152: 		Do Until rs.EOF
0153: 		   ranking = rs("CurrPos").Value
0154: 			If bgcolor = "#e8e8e8" Then
0155: 				bgcolor = "#ffffff"
0156: 			Else
0157: 				bgcolor = "#e8e8e8"
0158: 			End If	
0159: 			P1 = rs("F1").Value
0160: 			If P1 <> rs("S1").Value Then
0161: 				P2 = rs("S1").Value
0162: 			Else
0163: 				P2 = rs("S2").Value
0164: 			End If			
0165: F32Pos = rs("F32S").Value 
0166: F16Pos = rs("F16S").Value 
0167: F8Pos = rs("F8S").Value 
0168: F4Pos = rs("F4S").Value 
0169: F2Pos = rs("F2S").Value 
0170: F1Pos = rs("F1S").Value 	
0171: RCPoints =  rs("RCPoints")
0172:  IF F16Pos > 0 Then
0173:     Diff = F32pos - F16Pos
0174:     SDiff = CStr(Diff)
0175:     If Diff > 0 Then
0176:        RCDetail = "+" & SDiff
0177:     Else
0178:        RCDetail = SDiff
0179:     End If
0180:  End If
0181:  IF F8Pos > 0 Then
0182:     Diff = F16pos - F8Pos
0183:     SDiff = CStr(Diff)
0184:     If Diff > 0 Then
0185:        RCDetail2 = RCDetail & "," & "+" & SDiff
0186:     Else
0187:        RCDetail2 = RCDetail & "," & SDiff
0188:     End If
0189:     RCDetail = RCDetail2
0190:  End If
0191:  IF F4Pos > 0 Then
0192:     Diff = F8pos - F4Pos
0193:     SDiff = CStr(Diff)
0194:     If Diff > 0 Then
0195:        RCDetail2 = RCDetail & "," & "+" & SDiff
0196:     Else
0197:        RCDetail2 = RCDetail & "," & SDiff
0198:     End If
0199:     RCDetail = RCDetail2
0200:   End If
0201:   IF F2Pos > 0 Then
0202:      Diff = F4pos - F2Pos
0203:      SDiff = CStr(Diff)
0204:      If Diff > 0 Then
0205:         RCDetail2 = RCDetail & "," & "+" & SDiff
0206:      Else
0207:         RCDetail2 = RCDetail & "," & SDiff
0208:      End If
0209:      RCDetail = RCDetail2
0210:   End If
0211:   IF F1Pos > 0 Then
0212:      Diff = F2pos - F1Pos
0213:      SDiff = CStr(Diff)
0214:      If Diff > 0 Then
0215:         RCDetail2 = RCDetail & "," & "+" & SDiff
0216:      Else
0217:         RCDetail2 = RCDetail & "," & SDiff
0218:      End If
0219:      RCDetail = RCDetail2
0220:   End If
0221: 
0222: 			%>
0223:   <tr bgcolor="<%= bgcolor %>">
0224:     <td class="smalldark" align="center"><%= ranking %>
0225: </td>
0226:     <td class="smalldark" align="left"><a
0227:     href="displaypicks3.asp?year=<%= yr %>&amp;pick=<%= rs("ID").Value %>" class="normUndl"><%= rs("EntryName").Value %></a></td>
0228:     <td class="smalldark" align="center"><%= displayTeam(P1) %>
0229: </td>
0230:     <td class="smalldark" align="center"><%= displayTeam(P2) %>
0231: </td>
0232:     <td class="smalldark" align="center"><%= rs("FPts").Value %>
0233: </td>
0234:     <td class="smalldark" align="center"><%= rs("Poss_Pts").Value %>
0235: </td>
0236:     <td class="smalldark" align="center"><%= F32Pos %>
0237: </td>
0238:     <td class="smalldark" align="center"><%= F16Pos %>
0239: </td>
0240:     <td class="smalldark" align="center"><%= F8Pos %>
0241: </td>
0242:     <td class="smalldark" align="center"><%= F4Pos %>
0243: </td>
0244:     <td class="smalldark" align="center"><%= F2Pos %>
0245: </td>
0246:     <td class="smalldark" align="center"><%= F1Pos %>
0247: </td>
0248:     <td class="smalldark" align="center"><%= RCPoints %>
0249: </td>
0250:     <td class="smalldark" align="left"><%= RCDetail %>
0251: </td>
0252:   </tr>
0253: <%		rs.MoveNext
0254: 		Loop
0255: 		rs.Close
0256: 		Set rs = Nothing	%>
0257: </table>
0258: </body>
0259: </html>