Count Lines in Pages
Contents of Page: whoisin_m.asp
Number of Lines: 296
Last Modified: 3/25/2025 10:13:41 AM
0001: <% @Language = "VBScript" %>
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: 	user = Request.Cookies("user")
0008: 	
0009: 
0010: 		If user = ""  Then Response.Redirect("login_m.asp?from=biggestloserpick_m.asp")
0011: 	
0012: 	yr = Request.QueryString("yr")
0013: 	If yr = "" Then yr = season
0014:    	sortStr = Request.QueryString("sort")
0015: 	SortBy = sortStr
0016:   	Deadbeat = Request.QueryString("DB")   	
0017: 	If sortStr = "" Then sortStr = "Name"
0018: 	Select Case sortStr
0019: 		Case "FirstName,City,State,EmailAddress"
0020: 			sortStr = sortStr 
0021: 		Case "NumEntries"
0022: 			sortStr = sortStr & " DESC "	
0023: 		Case "Num2ndEntries"
0024: 			sortStr = sortStr & " DESC "
0025: 		Case "ID"
0026: 			sortStr = sortStr & " DESC "					
0027: 	End Select
0028: 
0029: 
0030: 	Set rs = Server.CreateObject("ADODB.Recordset")
0031: 	sqlString = "SELECT * FROM mmEntries " & _
0032: 			"WHERE Season = " & yr & " " & _
0033: 			"AND NumEntries > 0 " & _
0034: 			AddSel & _
0035: 			"ORDER BY " & sortStr
0036: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0037: 	totreg = 0
0038:    totentries = 0
0039:    totssentries = 0   
0040:    totpaid = 0
0041:    tot2ndpaid = 0   
0042:    totmade = 0
0043:    tot2ndmade = 0
0044:    
0045:    Dim YearsPlayed(10)
0046: %>
0047: <html>
0048: 
0049: <head>
0050: <meta name="viewport" content="width=device-width">
0051: <title>March Madness - Standings</title>
0052: <link href="mm.css" rel="stylesheet" type="text/css">
0053: <script language="JavaScript" type="text/javascript">
0054: 		function deleteNode(id)	{
0055: 			if (!confirm("Are you sure you want to delete this entry?"))	{
0056: 				return;
0057: 			}
0058: 			window.location = "mmEntryDelete.asp?id="+id;
0059: 		}
0060: 	</script>
0061: </head>
0062: 
0063: <body bgcolor="#ffffff">
0064: 
0065: 
0066: <table cellspacing="1" border="0" cellpadding="0" width="370" height="53" align="left">
0067: <tr height="20" >
0068: <% If User = "jt@folga.org" Then %>
0069:     <td colspan="3" class="norm"><a href="whoisdeadbeat_m.asp"><big><big>Dead Beats</a></td>
0070:    <td  colspan="2" class="norm" align="right"><a href="whoisdeadbeat_m.asp"><big><big>Dead Beats</td>
0071:    
0072:        <tr height="23">
0073: 	   <td class="norm" colspan="6"><big>Click on <b>name</b> to see picks made this & previous years</td>
0074: 	   </tr>
0075: <% Else %>
0076: 
0077: 
0078:        <tr height="23">
0079: 	   <td class="norm" colspan="6"><big>Participants in this year's contest</td>
0080: 	   </tr>
0081: <% End If %>	   
0082: 	   
0083: 	    <tr bgcolor="#ffcc99" height="23">
0084:         <td size="15%" class="norm" align="center"><a href="whoisin_m.asp?sort=ID">Last#</a></td>
0085: 	<% If User = "jt@folga.org" Then %>
0086: <td size="5%" class="normbold" align="center" >PY</td>
0087: <td size="5%" class="normbold" align="center" >Count<br>By ENR</td>
0088: <% End If %>
0089:         <td size="40%" class="normbold" align="center" ><a href="whoisin_m.asp?sort=Name">Last</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
0090:         <a href="whoisin_m.asp?sort=FirstName">First</a></td>
0091:         <td size="30%" class="normbold" align="center" ><a href="whoisin_m.asp?sort=City">City</a> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
0092:         <a href="whoisin_m.asp?sort=State">St</a></td>
0093:         <td size="10%"  class="normbold" align="center" ><a href="whoisin_m.asp?sort=NumEntries">Entries</a></td>
0094: <%	bgcolor = "#e8e8e8"
0095: 		Do Until rs.EOF
0096: 		emailaddr = rs("EmailAddress").value
0097: 		
0098: 			If bgcolor = "#D8D8D8" Then
0099: 				bgcolor = "#ffffff"
0100: 			Else
0101: 				bgcolor = "#D8D8D8"
0102: 			End If
0103: 			ID = rs("ID").Value
0104: 			Name = rs("Name").Value
0105: 			FirstName = rs("FirstName").Value
0106: 			RegNumber = rs("RegNumber").Value
0107: 			EmailAddress = rs("EmailAddress").Value			
0108: 			MyBuddies1 = rs("MyBuddies1").Value			
0109: 			val = rs("NumEntries").Value
0110: 			val2nd = rs("Num2ndEntries").Value	
0111: 			UsedMobile = rs("UsedMobile").Value			
0112: 			paid = rs("PaidEntries").Value
0113: 			If paid <> "" Then totpaid = totpaid + CInt(paid)
0114: 			paid2nd = rs("Paid2ndEntries").Value
0115: 			If paid2nd <> "" Then tot2ndpaid = tot2ndpaid + CInt(paid2nd)
0116: 			If val > 0 Then
0117: 			totreg = totreg + 1
0118: 			End If
0119: 			totmade = totmade + totPicksMade
0120: 			tot2ndmade = tot2ndmade + totSSPicksMade
0121: 
0122: If UsedMobile = "Y" Then
0123: cell_color = "#669900"
0124: TotalMobileEntries = TotalMobileEntries + 1
0125: 
0126: cell_color = bgcolor
0127: End If
0128: 
0129: If Cint(paid) < Cint(val) Then
0130: NotPaid = True
0131: Paid_BgColor = "green"
0132: Else
0133: NotPaid = False
0134: Paid_BgColor = ""
0135: End If
0136: 
0137: If MyBuddies1 <> "" Then
0138: Buddy = " *"
0139: Else
0140: Buddy =""
0141: ENd If
0142: 
0143: '-------------------------------------------------------------------------
0144: 
0145: 
0146: 			Set rsPYPicks = Server.CreateObject("ADODB.Recordset")
0147: 	sqlString = "SELECT COUNT(ID) as RegCount FROM mmEntries " & _
0148: 							"WHERE FirstName = '" & FirstName & "' " & _
0149:                              "AND Name = '" & Name & "' " & _
0150: 							"AND Season < " & season & " "
0151: 	rsPYPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0152: 	
0153: 		PYCount = rsPYPicks("RegCount").Value
0154: 		
0155: 		PYCount = CInt(PYCount)
0156: 		
0157: 		If PYCount = 0 Then
0158: 		 FirstTwo = Left(FirstName,2)
0159: 		 
0160: 
0161: 			Set rsPYPicks = Server.CreateObject("ADODB.Recordset")
0162: 			
0163: 		 	sqlString = "SELECT COUNT(ID) as RegCount FROM mmEntries " & _
0164: 			                "WHERE Season < " & season & " " & _
0165: 							"AND FirstName LIKE '%" &  FirstTwo & "%' " & _
0166:                              "AND Name = '" & Name & "' " 
0167: 
0168: ' Response.Write(SqlString & "<BR>")
0169: 
0170: 	rsPYPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0171: 	
0172: 		PYCount = rsPYPicks("RegCount").Value
0173: 		
0174: 		End If
0175: 		
0176:     rsPYPicks.Close
0177: 	
0178: 		PYCount = CInt(PYCount)
0179: 	
0180: If PYCount = 0 Then
0181: TotalFirstTimer = TotalFirstTimer + 1
0182: TotalFirstPicks = TotalFirstPicks + val
0183: End If
0184: 
0185: 
0186: DisplayName = Name & ", " & FirstName
0187: If 	SortBy = "FirstName" Then
0188: DisplayName = FirstName & " " & Name
0189: End If
0190: 
0191: CountByEMail = HistCountByEmail(EmailAddress, season)
0192: CountByName = HistCountByName(FirstName, Name, season)
0193: CountByRegNumber = HistCountByRegNumber(RegNumber, season)
0194: 
0195: ENR = CountByEMail & "/" & CountByName & "/" & CountByRegNumber
0196: 
0197: 
0198: '--------------------------------------------------------------------------
0199: 
0200: 	%>
0201:       </tr>
0202:       <tr bgcolor="<%= bgcolor %>" height="20">
0203:      <td class="smalldark" align="center" bgcolor="<%= cell_color %>"><BIG>
0204: <% If User = "jt@folga.org" Then %>
0205: <a href="editmmEntries.asp?id=<%= ID %>"><%= totreg %></a></td>
0206: <td class="norm" align="center" bgcolor="<%= Paid_BgColor %>"><%= PYCount %>
0207: <td class="norm" align="center"><%= ENR %>
0208: <% If PYCount = 0 THen 
0209: FTEmails = FTEmails & emailaddr & ", "
0210: End If
0211: %>
0212: <% Else %>
0213: <%= totreg %>
0214: <% End If %>
0215: 
0216: </td>
0217: <% If User = "jt@folga.org" Then %>
0218:         <td class="norm" align="left" ><a style="text-decoration:none" href="standings_m.asp?yr=<%= yr %>&RegNumber=<%= RegNumber %>"><%= DisplayName %> <%= Buddy %></a>
0219: <% Else %>
0220: 
0221:         <td class="norm" align="left" ><%= DisplayName %>
0222: <% End If %>		
0223: </td>
0224:         <td class="smalldark" align="left" ><%= rs("City").Value %>, <%= rs("State").Value %>
0225: </td>
0226:         
0227:         <td class="normbold" align="center" ><%= val %>
0228: </td>
0229: 
0230:       </tr>
0231: <%	   totentries = totentries + val
0232:        totssentries = totssentries + val2nd
0233:       rs.MoveNext
0234: 		Loop
0235: 		If bgcolor = "#e8e8e8" Then
0236: 				bgcolor = "#ffffff"
0237: 			Else
0238: 				bgcolor = "#e8e8e8"
0239: 			End If
0240: 
0241: 		rs.Close
0242: 		Set rs = Nothing	%>
0243: 		<tr> </tr>
0244: 		<tr><td class="norm" align="left" colspan="3">Mobile Entries: <b><%= TotalMobileEntries %></b>
0245: 		&nbsp;&nbsp;&nbsp;&nbsp;First Timers/#Picks: <b><%= TotalFirstTimer %> / <%= TotalFirstPicks %></td><td class="normbold" align="center" ><big><%= totentries %></td>
0246: 		</tr>
0247: 
0248: 
0249: 
0250: 		 
0251: <% If user = "jt@folga.org" Then %>
0252: 
0253: 
0254: <tr><td colspan="7" class="norm"><br><br><a href="mmregistrationsbyday.asp">Registration by Day</a>&nbsp;&nbsp;|&nbsp;&nbsp;
0255: <a href="whoisback.asp">Who is Back/MIA</a></td>
0256: </tr>
0257: <tr><td colspan="7" class="norm"><br><br><br><%= FTEmails %><br><br><br></td>
0258: </tr>
0259: </table>
0260: <% End If %>
0261: 
0262: <%
0263: ' prioryr = season - 1
0264: 
0265: ' TotalMIA = 0
0266: 
0267: ' Set rsly = Server.CreateObject("ADODB.Recordset")
0268: ' sqlString = "SELECT * FROM mmEntries WHERE Season = " & prioryr 
0269: ' rsly.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0270: 	
0271: ' Do Until rsly.EOF
0272: ' RegNumber = rsly("RegNumber").Value
0273: 
0274: ' Set rs = Server.CreateObject("ADODB.Recordset")
0275: ' sqlString = "SELECT NumEntries FROM mmEntries WHERE Season = " & season & " AND RegNumber = '" & RegNumber & "'" 
0276: ' rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0277: 
0278: ' If rs.EOF Then
0279: ' TotalMIA = TotalMIA + rsly("NumEntries").Value
0280: ' End If
0281: 
0282: 		' rs.Close
0283: 		' Set rs = Nothing
0284: 
0285: ' Loop
0286: 		' rsly.Close
0287: 		' ' Set rsly = Nothing
0288: %>
0289: 	 
0290: 
0291: 
0292:     </td>
0293:   </tr>
0294: </table>
0295: </body>
0296: </html>