Count Lines in Pages
Contents of Page: standingswif.asp
Number of Lines: 194
Last Modified: 8/22/2018 1:33:20 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <%
0005: 	PickID = Request.QueryString("PickID")
0006: 	
0007:  
0008:   	Set rsm = Server.CreateObject("ADODB.Recordset")
0009: 	sqlString = "SELECT * FROM mmPicks " & _
0010: 			"WHERE ID = " & PickID
0011: 
0012:     rsm.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText	  
0013:     Season = rsm("Season").Value
0014:     MyF1 = rsm("F1").Value
0015:     MyS1 = rsm("S1").Value
0016:     MyS2 = rsm("S2").Value
0017:     MyA13 = rsm("A13").Value
0018:     MyA14 = rsm("A14").Value
0019:     MyA15 = rsm("A15").Value
0020:     MyB13 = rsm("B13").Value
0021:     MyB14 = rsm("B14").Value
0022:     MyB15 = rsm("B15").Value
0023:     MyC13 = rsm("C13").Value
0024:     MyC14 = rsm("C14").Value
0025:     MyC15 = rsm("C15").Value
0026:     MyD13 = rsm("D13").Value
0027:     MyD14 = rsm("D14").Value
0028:     MyD15 = rsm("D15").Value
0029: 	MyPPts = rsm("Poss_Pts").Value
0030: 
0031: 	Set rs = Server.CreateObject("ADODB.Recordset")
0032: 		sqlString = "SELECT * FROM mmPicks " & _
0033: 		            "WHERE F1 = '" & MyF1 & "' " & _
0034: 					"AND Poss_Pts >= '" & MyPPts & "' " & _
0035: 					"AND Season = " & Season & " " & _
0036: 					"ORDER BY Poss_Pts DESC"
0037: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0038: %>
0039: <html>
0040: 
0041: <head>
0042: <title>March Madness - Standings</title>
0043: <link href="mm.css" rel="stylesheet" type="text/css">
0044: 
0045: 
0046: <table cellspacing="1" border="0" cellpadding="0" width="900">
0047: 
0048:   <tr>
0049:     <td width="25%" height="1"><img src="clear.gif" width="1" height="1"></td>
0050:     <td width="5%"><img src="clear.gif" width="1" height="1"></td>
0051:     <td width="5%"><img src="clear.gif" width="1" height="1"></td>
0052:     <td width="4%"><img src="clear.gif" width="1" height="1"></td>
0053:     <td width="4%"><img src="clear.gif" width="1" height="1"></td>
0054:     <td width="4%"><img src="clear.gif" width="1" height="1"></td>
0055:     <td width="4%"><img src="clear.gif" width="1" height="1"></td>
0056:     <td width="4%"><img src="clear.gif" width="1" height="1"></td>
0057:     <td width="4%"><img src="clear.gif" width="1" height="1"></td>
0058:     <td width="4%"><img src="clear.gif" width="1" height="1"></td>
0059:     <td width="4%"><img src="clear.gif" width="1" height="1"></td>
0060:     <td width="4%"><img src="clear.gif" width="1" height="1"></td>
0061:     <td width="4%"><img src="clear.gif" width="1" height="1"></td>
0062:     <td width="4%"><img src="clear.gif" width="1" height="1"></td>
0063:     <td width="4%"><img src="clear.gif" width="1" height="1"></td>
0064:     <td width="4%"><img src="clear.gif" width="1" height="1"></td>
0065:     <td width="4%"><img src="clear.gif" width="1" height="1"></td>
0066:   </tr>
0067: 
0068:   <tr bgcolor="#577fbe">
0069:     <td class="small" align="center"><a href="standings.asp?sort=Name" class="smallUndl">NAME</a></td>
0070: 
0071:     <td class="small" align="center">POSS<br> PTS</td>
0072:     <td class="small" align="center">NEW<br>P PTS</td>
0073:     <td class="small" align="center">F1<br><%= MyF1 %></a></td>
0074:     <td class="small" align="center">S1<br><%= MyS1 %></a></td>
0075:     <td class="small" align="center">S2<br><%= MyS2 %></a></td>
0076:     <td class="small" align="center">F4<br><%= MyA15 %></a></td>
0077:     <td class="small" align="center">F4<br><%= MyB15 %></a></td>
0078:     <td class="small" align="center">F4<br><%= MyC15 %></a></td>
0079:     <td class="small" align="center">F4<br><%= MyD15 %></a></td>
0080:     <td class="small" align="center">F8<br><%= MyA13 %></a></td>
0081:     <td class="small" align="center">F8<br><%= MyB13 %></a></td>
0082:     <td class="small" align="center">F8<br><%= MyC13 %></a></td>
0083:     <td class="small" align="center">F8<br><%= MyD13 %></a></td>
0084:     <td class="small" align="center">F8<br><%= MyA14 %></a></td>
0085:     <td class="small" align="center">F8<br><%= MyB14 %></a></td>
0086:     <td class="small" align="center">F8<br><%= MyC14 %></a></td>
0087:     <td class="small" align="center">F8<br><%= MyD14 %></a></td>
0088:   </tr>
0089: <%	bgcolor = "#e8e8e8"
0090: 		Do Until rs.EOF
0091: 
0092: 
0093: 			If bgcolor = "#e8e8e8" Then
0094: 				bgcolor = "#ffffff"
0095: 			Else
0096: 				bgcolor = "#e8e8e8"
0097: 			End If	
0098: 
0099: Diff = 0
0100: 
0101:   S1 = rs("S1").Value
0102:     S2 = rs("S2").Value
0103:     A13 = rs("A13").Value
0104:     A14 = rs("A14").Value
0105:     A15 = rs("A15").Value
0106:     B13 = rs("B13").Value
0107:     B14 = rs("B14").Value
0108:     B15 = rs("B15").Value
0109:     C13 = rs("C13").Value
0110:     C14 = rs("C14").Value
0111:     C15 = rs("C15").Value
0112:     D13 = rs("D13").Value
0113:     D14 = rs("D14").Value
0114:     D15 = rs("D15").Value
0115: 	If S1 <> MyS1 Then
0116: 	  Diff = Diff + 16
0117: 	End If
0118: 	If S2 <> MyS2 Then
0119: 	  Diff = Diff + 16
0120: 	End If
0121: 	If A13 <> MyA13 Then
0122: 	  Diff = Diff + 4
0123: 	End If
0124: 	If A14 <> MyA14 Then
0125: 	  Diff = Diff + 4
0126: 	End If
0127: 	If A15 <> MyA15 Then
0128: 	  Diff = Diff + 8
0129: 	End If
0130: 	If B13 <> MyB13 Then
0131: 	  Diff = Diff + 4
0132: 	End If
0133: 	If B14 <> MyB14 Then
0134: 	  Diff = Diff + 4
0135: 	End If
0136: 	If B15 <> MyB15 Then
0137: 	  Diff = Diff + 8
0138: 	End If
0139: 	If C13 <> MyC13 Then
0140: 	  Diff = Diff + 4
0141: 	End If
0142: 	If C14 <> MyC14 Then
0143: 	  Diff = Diff + 4
0144: 	End If
0145: 	If C15 <> MyC15 Then
0146: 	  Diff = Diff + 8
0147: 	End If	
0148: 	If D13 <> MyD13 Then
0149: 	  Diff = Diff + 4
0150: 	End If
0151: 	If D14 <> MyD14 Then
0152: 	  Diff = Diff + 4
0153: 	End If
0154: 	If D15 <> MyD15 Then
0155: 	  Diff = Diff + 8
0156: 	End If
0157: 
0158:    Poss_Pts = rs("Poss_Pts").Value
0159:    NPoss_Pts = Poss_Pts - Diff
0160: 
0161: 			%>
0162:   <tr bgcolor="<%= bgcolor %>" height="18">
0163: 
0164:     <td class="smalldark" align="left"><a href="displaypicks3.asp?year=<%= yr %>&amp;pick=<%= rs("ID").Value %>"
0165:     class="normUndl"><%= rs("EntryName").Value %></a></td>
0166: 
0167:     <td class="smalldark" align="center"><%=  Poss_Pts %></td>
0168:      <td class="smalldark" align="center"><%=  NPoss_Pts %></td>
0169:     <td class="smalldark" align="center"><%= rs("F1").Value %></td>
0170:     <td class="smalldark" align="center"><%= rs("S1").Value %></td>
0171:     <td class="smalldark" align="center"><%= rs("S2").Value %></td>
0172:     <td class="smalldark" align="center"><%= rs("A15").Value %></td>
0173:     <td class="smalldark" align="center"><%= rs("B15").Value %></td>
0174:     <td class="smalldark" align="center"><%= rs("C15").Value %></td>
0175:     <td class="smalldark" align="center"><%= rs("D15").Value %></td>
0176:     <td class="smalldark" align="center"><%= rs("A13").Value %></td>
0177:     <td class="smalldark" align="center"><%= rs("B13").Value %></td>
0178:     <td class="smalldark" align="center"><%= rs("C13").Value %></td>
0179:     <td class="smalldark" align="center"><%= rs("D13").Value %></td>
0180:     <td class="smalldark" align="center"><%= rs("A14").Value %></td>
0181:     <td class="smalldark" align="center"><%= rs("B14").Value %></td>
0182:     <td class="smalldark" align="center"><%= rs("C14").Value %></td>
0183:     <td class="smalldark" align="center"><%= rs("D14").Value %></td>
0184: 
0185:   </tr>
0186: <%		
0187: 
0188: 		rs.MoveNext
0189: 		Loop
0190: 		rs.Close
0191: 		Set rs = Nothing	%>
0192: </table>
0193: </body>
0194: </html>