Count Lines in Pages

Contents of Page: displayPicks2.asp Number of Lines: 272 Last Modified: 8/22/2018 1:32:41 PM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: <!-- #include FILE="include/funcs.asp" -->
0006: 
0007: <%
0008: 	season = Request.QueryString("year")
0009: '   yyear = 2004
0010: 	picksid = Request.QueryString("pick")
0011: '	If user = "" Or (user <> "" And Session("loggedIn") = "") Or picksid = "" Then Response.Redirect("login.asp?from=picks.asp")
0012: 
0013: 	' get all teams selected in this pick
0014: 	Set rsPicks = Server.CreateObject("ADODB.Recordset")
0015: 	sqlString = "SELECT * FROM mmPicks " & _
0016: 							"WHERE ID = " & picksid &_
0017: 							"AND Season = " & season
0018: 	rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0019: 	If rsPicks.EOF Then
0020: 		rsPicks.Close
0021: 		Set rsPicks = Nothing
0022: 		Response.Redirect("standings.asp")
0023: 	End If
0024: 	
0025: 	Email = rsPicks("EmailAddress").Value
0026: 	
0027: 	Set rsEntry = Server.CreateObject("ADODB.Recordset")
0028:     	sqlString = "SELECT * FROM mmEntries " & _
0029: 							"WHERE EmailAddress = '" & Email & "' " & _
0030: 							"AND Season = " & season
0031: 	rsEntry.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0032: 	If Not rsEntry.EOF Then
0033: '	Response.Write("<BR>" & rsEntry("City").Value)
0034: 		CitySt = rsEntry("City").Value & ", " & rsEntry("State").Value
0035: 		Name = rsEntry("Name").Value
0036:     	FirstName = rsEntry("FirstName").Value
0037: 	End If
0038:    	rsEntry.Close
0039: 	Set rsEntry = Nothing
0040: 	
0041: 	' get regions
0042: 	Set rsRegion = Server.CreateObject("ADODB.Recordset")
0043: 	sqlString = "SELECT * FROM mmRegionals WHERE Season = " & season
0044: 	rsRegion.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0045: 	Dim regionArr(5)
0046: 	Do Until rsRegion.EOF
0047: 		regionArr(rsRegion("Region").Value) = rsRegion("RegionName").Value
0048: 		rsRegion.MoveNext
0049: 	Loop
0050: 	rsRegion.Close
0051: 	Set rsRegion = Nothing
0052: 	
0053: 	back = "#fffaf0"
0054: %>
0055: 
0056: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
0057: 
0058: <html>
0059: <head>
0060: 	<title>March Madness - Display Picks</title>
0061: 	<link href="mm.css" rel="stylesheet" type="text/css">
0062: </head>
0063: 
0064: <body bgcolor="#ffffff">
0065: 
0066: 	<table border="0" cellpadding="2" cellspacing="0" align="center" width="550">
0067: 		<tr>			<td class="norm" align="center">
0068: 					<input type="button" value="Print" class="norm" onClick="window.print()">&nbsp;&nbsp;&nbsp;
0069: 					<input type="button" value="Return" class="norm" onClick="history.back()">
0070: </td>
0071: 		</tr>
0072: 			<tr>
0073: 			<td>
0074: 				<span class="normbold">Entry Name:</span>&nbsp;
0075: 				<span class="norm"><%= rsPicks("EntryName").Value %>&nbsp;&nbsp;&nbsp;<span class="normbold">Actual Name:&nbsp;</span><%= FirstName %>&nbsp;<%= Name %>&nbsp;&nbsp;&nbsp;(<%= CitySt %>)</span>
0076: 			</td>
0077: 		</tr>
0078: 		<tr><td class="norm">&nbsp;</td></tr>
0079: 
0080: 			<!--- Region 1 --->
0081: 			<tr><td class="medbold" bgcolor="#577fbe"><font color="#eeeeee"><%= regionArr(1) %></font></td></tr>
0082: 			<tr><td class="normbold" bgcolor="<%= back %>">First Round Winners</td></tr>
0083: 			<tr><td height="1" bgcolor="#008000"><spacer type="block"></td></tr>
0084: 			<tr>
0085: 				<td class="norm" align="left">
0086: 					<%= displayTeam(rsPicks("A1").Value) %>,
0087: 					<%= displayTeam(rsPicks("A2").Value) %>,
0088: 					<%= displayTeam(rsPicks("A3").Value) %>,
0089: 					<%= displayTeam(rsPicks("A4").Value) %>,
0090: 					<%= displayTeam(rsPicks("A5").Value) %>,
0091: 					<%= displayTeam(rsPicks("A6").Value) %>,
0092: 					<%= displayTeam(rsPicks("A7").Value) %>,
0093: 					<%= displayTeam(rsPicks("A8").Value) %>
0094: 				</td>
0095: 			</tr>
0096: 			<tr><td class="normbold" bgcolor="<%= back %>">Second Round Winners</td></tr>
0097: 			<tr><td height="1" bgcolor="#008000"><spacer type="block"></td></tr>
0098: 			<tr>
0099: 				<td class="norm" align="left">
0100: 					<%= displayTeam(rsPicks("A9").Value) %>,
0101: 					<%= displayTeam(rsPicks("A10").Value) %>,
0102: 					<%= displayTeam(rsPicks("A11").Value) %>,
0103: 					<%= displayTeam(rsPicks("A12").Value) %>
0104: 				</td>
0105: 			</tr>
0106: 			<tr><td class="normbold" bgcolor="<%= back %>">Regional Winners</td></tr>
0107: 			<tr><td height="1" bgcolor="#008000"><spacer type="block"></td></tr>
0108: 			<tr>
0109: 				<td class="norm" align="left">
0110: 					<%= displayTeam(rsPicks("A13").Value) %>,
0111: 					<%= displayTeam(rsPicks("A14").Value) %>&nbsp;->&nbsp;
0112: 					<%= displayTeam(rsPicks("A15").Value) %>
0113: 				</td>
0114: 			</tr>
0115: 			<tr><td class="norm">&nbsp;</td></tr>
0116: 			<!--- Region 2 --->
0117: 			<tr><td class="medbold" bgcolor="#577fbe"><font color="#eeeeee"><%= regionArr(2) %></font></td></tr>
0118: 			<tr><td class="normbold" bgcolor="<%= back %>">First Round Winners</td></tr>
0119: 			<tr><td height="1" bgcolor="#008000"><spacer type="block"></td></tr>
0120: 			<tr>
0121: 				<td class="norm" align="left">
0122: 					<%= displayTeam(rsPicks("B1").Value) %>,
0123: 					<%= displayTeam(rsPicks("B2").Value) %>,
0124: 					<%= displayTeam(rsPicks("B3").Value) %>,
0125: 					<%= displayTeam(rsPicks("B4").Value) %>,
0126: 					<%= displayTeam(rsPicks("B5").Value) %>,
0127: 					<%= displayTeam(rsPicks("B6").Value) %>,
0128: 					<%= displayTeam(rsPicks("B7").Value) %>,
0129: 					<%= displayTeam(rsPicks("B8").Value) %>
0130: 				</td>
0131: 			</tr>
0132: 			<tr><td class="normbold" bgcolor="<%= back %>">Second Round Winners</td></tr>
0133: 			<tr><td height="1" bgcolor="#008000"><spacer type="block"></td></tr>
0134: 			<tr>
0135: 				<td class="norm" align="left">
0136: 					<%= displayTeam(rsPicks("B9").Value) %>,
0137: 					<%= displayTeam(rsPicks("B10").Value) %>,
0138: 					<%= displayTeam(rsPicks("B11").Value) %>,
0139: 					<%= displayTeam(rsPicks("B12").Value) %>
0140: 				</td>
0141: 			</tr>
0142: 			<tr><td class="normbold" bgcolor="<%= back %>">Regional Winners</td></tr>
0143: 			<tr><td height="1" bgcolor="#008000"><spacer type="block"></td></tr>
0144: 			<tr>
0145: 				<td class="norm" align="left">
0146: 					<%= displayTeam(rsPicks("B13").Value) %>,
0147: 					<%= displayTeam(rsPicks("B14").Value) %>&nbsp;->&nbsp;
0148: 					<%= displayTeam(rsPicks("B15").Value) %>
0149: 				</td>
0150: 			</tr>
0151: 			<tr><td class="norm">&nbsp;</td></tr>
0152: 			<!--- Region 3 --->
0153: 			<tr><td class="medbold" bgcolor="#577fbe"><font color="#eeeeee"><%= regionArr(3) %></font></td></tr>
0154: 			<tr><td class="normbold" bgcolor="<%= back %>">First Round Winners</td></tr>
0155: 			<tr><td height="1" bgcolor="#008000"><spacer type="block"></td></tr>
0156: 			<tr>
0157: 				<td class="norm" align="left">
0158: 					<%= displayTeam(rsPicks("C1").Value) %>,
0159: 					<%= displayTeam(rsPicks("C2").Value) %>,
0160: 					<%= displayTeam(rsPicks("C3").Value) %>,
0161: 					<%= displayTeam(rsPicks("C4").Value) %>,
0162: 					<%= displayTeam(rsPicks("C5").Value) %>,
0163: 					<%= displayTeam(rsPicks("C6").Value) %>,
0164: 					<%= displayTeam(rsPicks("C7").Value) %>,
0165: 					<%= displayTeam(rsPicks("C8").Value) %>
0166: 				</td>
0167: 			</tr>
0168: 			<tr><td class="normbold" bgcolor="<%= back %>">Second Round Winners</td></tr>
0169: 			<tr><td height="1" bgcolor="#008000"><spacer type="block"></td></tr>
0170: 			<tr>
0171: 				<td class="norm" align="left">
0172: 					<%= displayTeam(rsPicks("C9").Value) %>,
0173: 					<%= displayTeam(rsPicks("C10").Value) %>,
0174: 					<%= displayTeam(rsPicks("C11").Value) %>,
0175: 					<%= displayTeam(rsPicks("C12").Value) %>
0176: 				</td>
0177: 			</tr>
0178: 			<tr><td class="normbold" bgcolor="<%= back %>">Regional Winners</td></tr>
0179: 			<tr><td height="1" bgcolor="#008000"><spacer type="block"></td></tr>
0180: 			<tr>
0181: 				<td class="norm" align="left">
0182: 					<%= displayTeam(rsPicks("C13").Value) %>,
0183: 					<%= displayTeam(rsPicks("C14").Value) %>&nbsp;->&nbsp;
0184: 					<%= displayTeam(rsPicks("C15").Value) %>
0185: 				</td>
0186: 			</tr>
0187: 			<tr><td class="norm">&nbsp;</td></tr>
0188: 			<!--- Region 4 --->
0189: 			<tr><td class="medbold" bgcolor="#577fbe"><font color="#eeeeee"><%= regionArr(4) %></font></td></tr>
0190: 			<tr><td class="normbold" bgcolor="<%= back %>">First Round Winners</td></tr>
0191: 			<tr><td height="1" bgcolor="#008000"><spacer type="block"></td></tr>
0192: 			<tr>
0193: 				<td class="norm" align="left">
0194: 					<%= displayTeam(rsPicks("D1").Value) %>,
0195: 					<%= displayTeam(rsPicks("D2").Value) %>,
0196: 					<%= displayTeam(rsPicks("D3").Value) %>,
0197: 					<%= displayTeam(rsPicks("D4").Value) %>,
0198: 					<%= displayTeam(rsPicks("D5").Value) %>,
0199: 					<%= displayTeam(rsPicks("D6").Value) %>,
0200: 					<%= displayTeam(rsPicks("D7").Value) %>,
0201: 					<%= displayTeam(rsPicks("D8").Value) %>
0202: 				</td>
0203: 			</tr>
0204: 			<tr><td class="normbold" bgcolor="<%= back %>">Second Round Winners</td></tr>
0205: 			<tr><td height="1" bgcolor="#008000"><spacer type="block"></td></tr>
0206: 			<tr>
0207: 				<td class="norm" align="left">
0208: 					<%= displayTeam(rsPicks("D9").Value) %>,
0209: 					<%= displayTeam(rsPicks("D10").Value) %>,
0210: 					<%= displayTeam(rsPicks("D11").Value) %>,
0211: 					<%= displayTeam(rsPicks("D12").Value) %>
0212: 				</td>
0213: 			</tr>
0214: 			<tr><td class="normbold" bgcolor="<%= back %>">Regional Winners</td></tr>
0215: 			<tr><td height="1" bgcolor="#008000"><spacer type="block"></td></tr>
0216: 			<tr>
0217: 				<td class="norm" align="left">
0218: 					<%= displayTeam(rsPicks("D13").Value) %>,
0219: 					<%= displayTeam(rsPicks("D14").Value) %>&nbsp;->&nbsp;
0220: 					<%= displayTeam(rsPicks("D15").Value) %>
0221: 				</td>
0222: 			</tr>
0223: 			<tr><td class="norm">&nbsp;</td></tr>
0224: 			<!--- Championship --->
0225: 			<tr><td class="medbold" bgcolor="#577fbe"><font color="#eeeeee">Championship</font></td></tr>
0226: 			<tr><td class="normbold" bgcolor="<%= back %>">Final Four</td></tr>
0227: 			<tr><td height="1" bgcolor="#008000"><spacer type="block"></td></tr>
0228: 			<tr>
0229: 				<td class="norm" align="left">
0230: 					<%= displayTeam(rsPicks("A15").Value) %>,
0231: 					<%= displayTeam(rsPicks("B15").Value) %>,
0232: 					<%= displayTeam(rsPicks("C15").Value) %>,
0233: 					<%= displayTeam(rsPicks("D15").Value) %>
0234: 				</td>
0235: 			</tr>
0236: 			<tr><td class="normbold" bgcolor="<%= back %>">Semifinalists</td></tr>
0237: 			<tr><td height="1" bgcolor="#008000"><spacer type="block"></td></tr>
0238: 			<tr>
0239: 				<td class="norm" align="left">
0240: 					<%= displayTeam(rsPicks("S1").Value) %>,
0241: 					<%= displayTeam(rsPicks("S2").Value) %>
0242: 				</td>
0243: 			</tr>
0244: 			<tr><td class="normbold" bgcolor="<%= back %>">Champion</td></tr>
0245: 			<tr><td height="1" bgcolor="#008000"><spacer type="block"></td></tr>
0246: 			<tr>
0247: 				<td class="norm" align="left">
0248: 					<%= displayTeam(rsPicks("F1").Value) %>
0249: 				</td>
0250: 			</tr>
0251: 			<tr>
0252: 				<td class="norm" align="center">
0253: 					<input type="button" value="Print" class="norm" onClick="window.print()">&nbsp;&nbsp;&nbsp;
0254: 					<input type="button" value="Return" class="norm" onClick="history.back()">
0255: 				</td>
0256: 			</tr>
0257: 	</table>
0258: 
0259: </body>
0260: </html>
0261: 
0262: <%
0263: 	rsPicks.Close
0264: 	Set rsPicks = Nothing
0265: %>
0266: 
0267: 
0268: 
0269: 
0270: 
0271: 
0272: