Count Lines in Pages
Contents of Page: MakeAllPicks.asp
Number of Lines: 260
Last Modified: 2/14/2026 7:49:47 PM
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <!-- #include FILE="include/ReturnPageSet.inc" -->
0006: <% 
0007: 
0008: emailaddress = Request.Cookies("user")
0009: 	Desktop = Request.QueryString("DeskTop")	
0010: 
0011: ThisEMail = Request.QueryString("Email")
0012: 
0013: If ThisEMail <> "" Then
0014: emailaddress = ThisEMail
0015: End If
0016: 
0017: 		If emailaddress = ""  Then Response.Redirect("login_m.asp?from=MakeAllPicks.asp")
0018: 
0019: 
0020: 
0021: 	Set rs = Server.CreateObject("ADODB.Recordset")
0022: 	sqlString = "SELECT * FROM mmEntries " & _
0023: 							"WHERE EmailAddress = '" & emailaddress & "' " & _
0024: 							"AND Season = " & season
0025: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0026:         if rs.EOF then
0027: LoggedIn = ""
0028:         Else
0029: LoggedIn = "Y"
0030:            EntryID = rS("ID").Value
0031:            Fname = rS("FirstName").Value
0032:            Lname = rs("Name").Value
0033:            RegNumber = rs("RegNumber").Value		   
0034:            Email = rs("EmailAddress").Value
0035:            numEntries = CInt(rs("NumEntries").Value)
0036: 		num2ndEntries = CInt(rs("Num2ndEntries").Value)           
0037:         End If
0038: 		
0039: 		If NumEntries > 0 Then
0040: 		
0041: 		Sweet16 = NumEntries - 1 + num2ndEntries
0042: 		
0043: 		Else
0044: 		
0045: 		Sweet16 = num2ndEntries
0046: 		
0047: 		End If
0048: 		
0049: 		ReturnSiteURL = Session("BaseSiteURL")
0050: 
0051: If ReturnSiteURL = "default.asp"  or Desktop = "Y" Then
0052: TableWidth="550"
0053: 'TableWidth="350"
0054: PicksPage = "Picks.asp"
0055: 
0056: Else
0057: PicksPage = "Picks_m.asp"
0058: TableWidth="100%"
0059: 'TableWidth="400"
0060: End If
0061: 
0062: 			Set rsPicks = Server.CreateObject("ADODB.Recordset")
0063: 	sqlString = "SELECT COUNT(ID) as RegCount FROM mmPicks " & _
0064: 							"WHERE EmailAddress = '" & emailaddress & "' " & _
0065: 							"AND Season = " & season & " " & _
0066: 							"AND Complete = 'Yes'"
0067: 	rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0068: 
0069: 	totPicksMade = Cint(rsPicks("RegCount").Value)
0070: 
0071: 	    rsPicks.Close
0072: 	set rsPicks = Nothing
0073: 
0074: '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
0075: 
0076: '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
0077: totSSPicksMade = 0
0078: 	
0079: 			Set rsSSPicks = Server.CreateObject("ADODB.Recordset")
0080: 	sqlString = "SELECT COUNT(ID) as RegCount FROM mm2ndPicks " & _
0081: 							"WHERE EmailAddress = '" & emailaddress & "' " & _
0082: 							"AND Season = " & season & " " & _
0083: 							"AND Complete = 'Yes'"
0084: 	rsSSPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0085: 	
0086: 	totSSPicksMade = Cint(rsSSPicks("RegCount").Value)
0087: 
0088: 	    rsSSPicks.Close
0089: 	set rsSSPicks = Nothing
0090: '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
0091: 
0092: '===========================================================
0093: 
0094:   		Set rsg = Server.CreateObject("ADODB.Recordset")
0095: 		sqlString = "SELECT * FROM mmBiggestLoser " & _
0096: 			"WHERE RegNumber = '" & RegNumber & "' " & _
0097: 			"AND Season = " & season
0098: 
0099: '	rsg.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0100: 		rsg.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText	  
0101: 		If rsg.EOF Then
0102: 		BLP = 0
0103: 		Else
0104: 		BLP = 1
0105: 
0106: 		End If
0107: 
0108:  BLP = Cint(BLP)
0109: 
0110: 
0111: 	    rsg.Close
0112: 	set rsg = Nothing
0113: 	
0114: '===============================================================	
0115: %>
0116: <html>
0117: 
0118: <head>
0119: <meta name="viewport" content="width=device-width">
0120: <meta http-equiv="Content-Language" content="en-us">
0121: <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
0122: <title>March Madness Contest - Make all picks</title>
0123: 	<link href="mm.css" rel="stylesheet" type="text/css">
0124: 	<link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">	
0125: </head>
0126: 
0127: <body>
0128: 
0129: 
0130:  <% 'If STARTMAKEPICKS = "YES" Then %>
0131: 	
0132: 	<% 'If STOPMAKEPICKS = "YES" Then %>
0133: 	
0134: 	<% 'If START2NDMAKEPICKS = "YES" Then %>
0135: 	
0136: 	<% 'If STOP2NDMAKEPICKS = "YES" Then %>'
0137: 
0138: <table cellspacing="0" border="1" cellpadding="2" width="<%= TableWidth %>"  bgcolor="#FFFAF0">
0139:  <tr height="30" valign="center" ><td class="norm" align="center" colspan="4">Picks for all contests for:<big><b> <%= Fname %>&nbsp;<%= Lname %></td></tr>
0140: 
0141:   <tr height="30" valign="bottom" bgcolor="#33ccff"><td class="norm" colspan="4" align="center"><big><big><b>Main Contest</td></tr>
0142:   <tr>
0143:   <td class="norm" width="70%"><big>Picks Deadline:</big><br><font color="blue"><b><i><%= TourneyStart %></td>
0144:   <td class="norm" width="15%" Align="center"># of<br>Entries</td>
0145:   <td class="norm" width="15%" Align="center">Picks<br>Made</td>
0146:    </tr>
0147:    <tr>
0148:      <td class="norm" align="right" ></td>
0149:   <td class="norm" Align="center"><big><b><%= NumEntries %></td>
0150:   <td class="norm" Align="center"><big><B><%= totPicksMade %></td></tr>
0151:  <tr><td class="norm" colspan="5" Align="center">
0152:  <% IF STARTMAKEPICKS = "YES" Then %>
0153:  <% IF STOPMAKEPICKS <> "YES" Then %>
0154:  <a href="<%= PicksPage %>" class="button-40">Make/Review Main Contest Picks</a>
0155:  <% ELSE %>
0156:  <big><font color="red">You can't make/change picks aftert the deadline.</big> </font>
0157:  
0158:  <% End If %>
0159:  <% ELSE %>
0160:  <big>Picks can be made after <font color="blue"><%= SELSUNDAY %>.
0161:  <% end if %>
0162:  <% If totPicksMade > 0 Then %>
0163:  <br><br><big>
0164: <i> Click <a href="DisplayMyBrackets.asp?Email=<%= EmailAddress %>" target="_blank">here</a> to display your brackets.
0165:   
0166:  <% End If %>
0167:  </td>
0168:    </tr>
0169:  </table>
0170: <table cellspacing="0" border="0" cellpadding="1" width="<%= TableWidth %>">
0171: <tr height="5"><td>&nbsp;</td></tr>
0172: </table>
0173: <table cellspacing="0" border="1" cellpadding="2" width="<%= TableWidth %>" bgcolor="#FFFAF0">
0174:  
0175:  
0176:  <tr height="30" valign="bottom" align="center" bgcolor="#ffff99"><td class="norm" colspan="4" align="center"><big><big><b>Biggest Loser
0177:  &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<small><small>(Click <a href="whatisBiggestLoser.asp" target="_blank"><b>here</b></a> for details)
0178:  </td></tr>
0179:   <tr>
0180:   <td class="norm" width="70%"><big>Picks Deadline:</big><br><font color="blue"><b><i><%= TourneyStart %></td>
0181:   <td class="norm" width="15%" Align="center"># of<br>Entries</td>
0182:   <td class="norm" width="15%" Align="center">Picks<br>Made</td>
0183:    </tr>  
0184:      <tr>
0185:      <td class="norm" align="right" ><b>.</td>
0186:   <td class="norm" Align="center"><big><B>1</td>
0187:   <td class="norm" Align="center"><big><B><%= BLP %></td></tr>
0188:  <tr><td class="norm" colspan="5" align="center">
0189:   <% IF STARTMAKEPICKS = "YES" Then %>
0190:  <% IF STOPMAKEPICKS <> "YES" Then %>
0191:  <a href="BiggestLoserPick_m.asp" class="button-40">Make/Review Biggest Loser Picks</a>
0192:  
0193:  <% ELSE %>
0194:  <big><font color="red">You can't make/change picks after the deadline.</font></big>
0195:  
0196:  <% End If %> 
0197:  <% ELSE %>
0198:  <big>Picks can be made after <font color="blue"><%= SELSUNDAY %>.
0199:  <% end if %>
0200:  <% If BLP = 1 Then %>
0201:  <br><br><big>
0202:  <i> Click <a href="biggestloserdisplay.asp?yr=<%= season %>&RegNumber=<%= RegNumber %>">here</a> to display your picks
0203:  <% End If %>
0204: </td>
0205:    </tr>
0206: </table> 
0207: <table cellspacing="0" border="0" cellpadding="1" width="<%= TableWidth %>">
0208: <tr height="5"><td>&nbsp;</td></tr>
0209: </table> 
0210: <table cellspacing="0" border="1" cellpadding="2" width="<%= TableWidth %>" bgcolor="#FFFAF0"> 
0211:  <tr height="30" valign="bottom" align="center" bgcolor="#ff3399"><td class="norm" colspan="4" align="center"><big><big><b>Sweet 16 Contest
0212:   &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<small><small>(Click <a href="sweet16details_m.asp" target="_blank"><b>here</b></a> for details)
0213:  </td></tr>
0214:   <tr>
0215:   <td class="norm" width="70%"><big>Picks Deadline:</big><br><b><i><font color="blue"><%= Tourney2ndStart %></td>
0216:   <td class="norm" width="15%" Align="center"># of<br>Entries</td>
0217:   <td class="norm" width="15%" Align="center">Picks<br>Made</td>
0218:    </tr>  
0219:         <tr>
0220:      <td class="norm" ></td>
0221:   <td class="norm" Align="center"><big><B><%= Sweet16 %></td>
0222:   <td class="norm" Align="center"><big><B><%= totSSPicksMade %></td>
0223: 
0224:  <tr><td class="norm" colspan="5" 	Align="center">
0225:  <% If Sweet16 = 0  and STOP2NDMAKEPICKS <> "YES"Then %>
0226:      <big><i>You don't any any entries in the Sweet 16 Contest.<br>For more information on that, <a href="sweet16details_m.asp?CloseWindow=Y" target="_blank">click here</a>.
0227: <% Else %>	 
0228: 	<% IF START2NDMAKEPICKS = "YES" Then %>
0229: 		<% IF STOP2NDMAKEPICKS <> "YES" Then %>
0230: 			<a href="Picks2nd.asp" class="button-40">Make/Review Sweet 16 Picks </a>
0231: 	<% ELSE %>
0232: 			<big><font color="red">You can't make/change picks after the deadline.</font></big>
0233: 
0234:  
0235: 	<% ENd If %>
0236:  <% ELSE %>
0237:  <big>Picks can be made after <font color="blue"><%= SEL2NDSUNDAY %>.
0238:  <% end if %>
0239:  <% End If %>
0240:   <% If totSSPicksMade > 0 THen %>
0241:  <br><br>
0242:  <i>Click <a href="DisplayMys16Brackets.asp?Email=<%= EmailAddress %>" target="_blank"><b>here</b></a> to display your brackets.
0243:  <% End If %>
0244: </td>
0245:    </tr>
0246: </table>
0247: <table cellspacing="0" border="0" cellpadding="2" width="<%= TableWidth %>" bgcolor="#FFFAF0"> 
0248: 
0249: <% 
0250: 
0251: If RegOpen = "YES" or Reg2ndOpen = "YES" Then %>
0252: <tr height="25"><td class="norm" align="center"><br><big>To add more entries into the contest,<br> just go to <b>Edit My Profile</b>.
0253: </td></tr>
0254: <% End If %>
0255: 
0256: 
0257: </table>
0258: </center></div>
0259: </body>
0260: </html>