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