Count Lines in Pages
Contents of Page: biggestloserpick_m.asp
Number of Lines: 318
Last Modified: 3/18/2025 7:51:33 AM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: 
0007: 		user = Request.Cookies("user")
0008: 		If user = ""  Then Response.Redirect("login_m.asp?from=biggestloserpick_m.asp")
0009: 
0010:   	Demo = Request.QueryString("Demo")
0011: 
0012: 	yr = Request.QueryString("yr")
0013: 	If yr = "" Then yr = season
0014: 		If StartMakePicks = "NO" Then
0015: 		Demo = "YES"
0016: 		End If
0017: 	If Demo <> "YES" Then	  
0018: 
0019: '		Response.Write("noMorePicks=" & noMorePicks & "=")
0020: 
0021: 
0022: 
0023: 		Set rsEntry = Server.CreateObject("ADODB.Recordset")
0024: 		sqlString = "SELECT Name, FirstName, RegNumber FROM mmEntries " & _
0025: 					"WHERE Season = " & yr & " "  & _
0026: 					"AND EmailAddress = '" & user & "' "  
0027: 		rsEntry.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0028: 		lastName = rsEntry("Name").Value
0029: 		firstName = rsEntry("FirstName").Value
0030: 		RegNumber = rsEntry("RegNumber").Value	
0031: 		rsEntry.Close
0032: 		Set rsEntry = Nothing
0033: 		
0034: ' If user = "joetoledo@yahoo.com" Then STOPMAKEPICKS = "YES" 
0035: 		
0036: 				If STOPMAKEPICKS = "YES"  Then
0037: 			Response.Redirect("biggestloserdisplay.asp?RegNumber=" & RegNumber)
0038: 		End If
0039: 
0040: 		LoggedIn = "Y"
0041: '	 Response.Write("<b>Hi there, " & FirstName & "</b>")
0042: 
0043:     Else
0044: 	  
0045: 	  LoggedIn = ""
0046: 
0047: 	
0048: 		yr = 2019
0049: 
0050: 	
0051: 
0052: 	End If
0053: 
0054: 
0055:   		Set rsg = Server.CreateObject("ADODB.Recordset")
0056: 		sqlString = "SELECT * FROM mmBiggestLoser " & _
0057: 			"WHERE RegNumber = '" & RegNumber & "' " & _
0058: 			"AND Season = " & yr
0059: 
0060: '	rsg.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0061: 		rsg.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText	  
0062: 
0063: 
0064:     	
0065: 	If rsg.EOF Then
0066: 	'
0067: 	Else
0068: 	Response.Redirect("biggestloserdisplay.asp?RegNumber=" & RegNumber & "&Repost=Y")
0069: 	End If
0070: 
0071: 		lineColor = "#cccccc"
0072: 
0073: 	Dim Regions(4)
0074: 	
0075: 	Set rsRegion = Server.CreateObject("ADODB.Recordset")
0076: 	sqlString = "SELECT * FROM mmRegionals " & _
0077: 			"WHERE Season = " & yr & " " & _
0078: 			"ORDER By Region"
0079: '			"AND Region = " & region
0080: 	rsRegion.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0081: 	If Not rsRegion.EOF Then
0082: 	RGCount = 0
0083: 	Do Until rsRegion.EOF
0084: 		RGCount = RGCount + 1
0085: 		Regions(RGCount) = rsRegion("RegionName").Value
0086: 		rsRegion.MoveNext
0087: 	Loop
0088: 	rsRegion.Close
0089: 	Set rsRegion = Nothing
0090: 
0091: 	End If
0092: 
0093: %>
0094: <html>
0095: 
0096: <head>
0097: <meta http-equiv="Content-Language" content="en-us">
0098: <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
0099: 
0100: 	<link href="mm.css" rel="stylesheet" type="text/css">
0101: 	<link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">
0102: <meta name="viewport" content="width=device-width">
0103: <title>March Madness - Which seed will have the &quot;early exit&quot;?</title>
0104: </head>
0105: <%	
0106: 
0107: 	Set rst = Server.CreateObject("ADODB.Recordset")
0108: 	sqlString = "SELECT * FROM mmTeams WHERE Season = " & yr
0109: 	rst.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0110: 
0111: 
0112: If noMorePicks and user <> "jt@folga.org" And Demo <> "YES" Then 	%>
0113: 
0114: 
0115: 
0116: 
0117: <body>
0118: 
0119: <p>Games Have Started. Selections may NOT be Changed. 
0120: 
0121: <%	Else	%> </p>
0122: 
0123: <form method="POST" action="biggestloserpost.asp?yr=<%= yr %>&Demo=<%= Demo %>">
0124: <input type="hidden" name="RegNumber" value="<%= RegNumber %>">
0125: <table border="0" cellpadding="3" width="330" align="left">
0126: 
0127:     <tr>
0128:       <td align="center" class="norm" colspan="2">
0129: 	  <% If LoggedIn = "Y" Then %>
0130: 	  <big><b>Hi there <%= FirstName %></b><br><br>
0131: 	  <% End If %>
0132:       Select the worst team for each seed <br>in the field in the NCAA tournament.
0133: <% 	If Demo = "YES" Then %>	
0134: <br><i><font color="red">(This is sample using the <%= yr %> tournament teams)
0135: <% End If %>
0136: 	  </td>
0137:     </tr>
0138:     <tr height="5">
0139: 		<td width="35%" align="right"></td><td width="65%">
0140: 	</tr>
0141: 	<tr><td class="norm" align="right"> #1 Seed</td>
0142: 	   <td>
0143: 		<select name="Seed1">
0144:         <option selected value="A01"><%= rst("A01").Value %></option>
0145:         <option value="B01"><%= rst("B01").Value %></option>
0146:         <option value="C01"><%= rst("C01").Value %></option>
0147:         <option value="D01"><%= rst("D01").Value %></option>
0148:         </select>
0149: 	  </td>
0150: 	 </tr>
0151: 	<tr><td class="norm" align="right"> #2 Seed</td>
0152: 	   <td>
0153: 		<select name="Seed2">
0154:         <option selected value="A02"><%= rst("A02").Value %></option>
0155:         <option value="B02"><%= rst("B02").Value %></option>
0156:         <option value="C02"><%= rst("C02").Value %></option>
0157:         <option value="D02"><%= rst("D02").Value %></option>
0158:         </select>
0159: 	  </td>
0160: 	 </tr>
0161: 	<tr><td class="norm" align="right"> #3 Seed</td>
0162: 	   <td>
0163: 		<select name="Seed3">
0164:         <option selected value="A03"><%= rst("A03").Value %></option>
0165:         <option value="B03"><%= rst("B03").Value %></option>
0166:         <option value="C03"><%= rst("C03").Value %></option>
0167:         <option value="D03"><%= rst("D03").Value %></option>
0168:         </select>
0169: 	  </td>
0170: 	 </tr>
0171: 	<tr><td class="norm" align="right"> #4 Seed</td>
0172: 	   <td>
0173: 		<select name="Seed4">
0174:         <option selected value="A04"><%= rst("A04").Value %></option>
0175:         <option value="B04"><%= rst("B04").Value %></option>
0176:         <option value="C04"><%= rst("C04").Value %></option>
0177:         <option value="D04"><%= rst("D04").Value %></option>
0178:         </select>
0179: 	  </td>
0180: 	 </tr>
0181: 	<tr><td class="norm" align="right"> #5 Seed</td>
0182: 	   <td>
0183: 		<select name="Seed5">
0184:         <option selected value="A05"><%= rst("A05").Value %></option>
0185:         <option value="B05"><%= rst("B05").Value %></option>
0186:         <option value="C05"><%= rst("C05").Value %></option>
0187:         <option value="D05"><%= rst("D05").Value %></option>
0188:         </select>
0189: 	  </td>
0190: 	 </tr>
0191: 	<tr><td class="norm" align="right"> #6 Seed</td>
0192: 	   <td>
0193: 		<select name="Seed6">
0194:         <option selected value="A06"><%= rst("A06").Value %></option>
0195:         <option value="B06"><%= rst("B06").Value %></option>
0196:         <option value="C06"><%= rst("C06").Value %></option>
0197:         <option value="D06"><%= rst("D06").Value %></option>
0198:         </select>
0199: 	  </td>
0200: 	 </tr>
0201: 	<tr><td class="norm" align="right"> #7 Seed</td>
0202: 	   <td>
0203: 		<select name="Seed7">
0204:         <option selected value="A07"><%= rst("A07").Value %></option>
0205:         <option value="B07"><%= rst("B07").Value %></option>
0206:         <option value="C07"><%= rst("C07").Value %></option>
0207:         <option value="D07"><%= rst("D07").Value %></option>
0208:         </select>
0209: 	  </td>
0210: 	 </tr>
0211: 	<tr><td class="norm" align="right"> #8 Seed</td>
0212: 	   <td>
0213: 		<select name="Seed8">
0214:         <option selected value="A08"><%= rst("A08").Value %></option>
0215:         <option value="B08"><%= rst("B08").Value %></option>
0216:         <option value="C08"><%= rst("C08").Value %></option>
0217:         <option value="D08"><%= rst("D08").Value %></option>
0218:         </select>
0219: 	  </td>
0220: 	 </tr>
0221: 	<tr><td class="norm" align="right"> #9 Seed</td>
0222: 	   <td>
0223: 		<select name="Seed9">
0224:         <option selected value="A09"><%= rst("A09").Value %></option>
0225:         <option value="B09"><%= rst("B09").Value %></option>
0226:         <option value="C09"><%= rst("C09").Value %></option>
0227:         <option value="D09"><%= rst("D09").Value %></option>
0228:         </select>
0229: 	  </td>
0230: 	 </tr>
0231: 	<tr><td class="norm" align="right"> #10 Seed</td>
0232: 	   <td>
0233: 		<select name="Seed10">
0234:         <option selected value="A10"><%= rst("A10").Value %></option>
0235:         <option value="B10"><%= rst("B10").Value %></option>
0236:         <option value="C10"><%= rst("C10").Value %></option>
0237:         <option value="D10"><%= rst("D10").Value %></option>
0238:         </select>
0239: 	  </td>
0240: 	 </tr>
0241: 	<tr><td class="norm" align="right"> #11 Seed</td>
0242: 	   <td>
0243: 		<select name="Seed11">
0244:         <option selected value="A11"><%= rst("A11").Value %></option>
0245:         <option value="B11"><%= rst("B11").Value %></option>
0246:         <option value="C11"><%= rst("C11").Value %></option>
0247:         <option value="D11"><%= rst("D11").Value %></option>
0248:         </select>
0249: 	  </td>
0250: 	 </tr>
0251: 	<tr><td class="norm" align="right"> #12 Seed</td>
0252: 	   <td>
0253: 		<select name="Seed12">
0254:         <option selected value="A12"><%= rst("A12").Value %></option>
0255:         <option value="B12"><%= rst("B12").Value %></option>
0256:         <option value="C12"><%= rst("C12").Value %></option>
0257:         <option value="D12"><%= rst("D12").Value %></option>
0258:         </select>
0259: 	  </td>
0260: 	 </tr>
0261: 	<tr><td class="norm" align="right"> #13 Seed</td>
0262: 	   <td>
0263: 		<select name="Seed13">
0264:         <option selected value="A13"><%= rst("A13").Value %></option>
0265:         <option value="B13"><%= rst("B13").Value %></option>
0266:         <option value="C13"><%= rst("C13").Value %></option>
0267:         <option value="D13"><%= rst("D13").Value %></option>
0268:         </select>
0269: 	  </td>
0270: 	 </tr>
0271: 	<tr><td class="norm" align="right"> #14 Seed</td>
0272: 	   <td>
0273: 		<select name="Seed14">
0274:         <option selected value="A14"><%= rst("A14").Value %></option>
0275:         <option value="B14"><%= rst("B14").Value %></option>
0276:         <option value="C14"><%= rst("C14").Value %></option>
0277:         <option value="D14"><%= rst("D14").Value %></option>
0278:         </select>
0279: 	  </td>
0280: 	 </tr>
0281: 	<tr><td class="norm" align="right"> #15 Seed</td>
0282: 	   <td>
0283: 		<select name="Seed15">
0284:         <option selected value="A15"><%= rst("A15").Value %></option>
0285:         <option value="B15"><%= rst("B15").Value %></option>
0286:         <option value="C15"><%= rst("C15").Value %></option>
0287:         <option value="D15"><%= rst("D15").Value %></option>
0288:         </select>
0289: 	  </td>
0290: 	 </tr>
0291: 	<tr><td class="norm" align="right"> #16 Seed</td>
0292: 	   <td>
0293: 		<select name="Seed16">
0294:         <option selected value="A16"><%= rst("A16").Value %></option>
0295:         <option value="B16"><%= rst("B16").Value %></option>
0296:         <option value="C16"><%= rst("C16").Value %></option>
0297:         <option value="D16"><%= rst("D16").Value %></option>
0298:         </select>
0299: 	  </td>
0300: 	 </tr>
0301: 
0302: 	<tr><td colspan="3" align="center"><input type="submit" value="Submit picks" class="button-40"name="B1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
0303: <% If Demo <> "YES" Then %>	
0304: 	
0305: 	<input type="Button" value="Return" style="background-color:#FAD2B8;" onclick="history.back()" class="button_close">
0306: <% Else %>
0307: 
0308: 	<input type="Button" value="Close Window" style="background-color:#FAD2B8;" onclick="window.close()" class="button_close">
0309: <% End If %>	
0310: 	
0311: 	</td>
0312: 	<tr>
0313: 
0314:   </table>
0315: </form>
0316: </body>
0317: <%	End If	%>
0318: </html>