Count Lines in Pages
Contents of Page: whoisback.asp
Number of Lines: 234
Last Modified: 3/21/2026 4:10:23 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <%
0005: 
0006:             MIAOnly = Request.QueryString("MIA")
0007: 
0008: 			If NumberOfYears = "" Then NumberOfYears = 1
0009: 
0010: 			NOY = CInt(NumberOfYears)
0011: 
0012: 		 	PriorYear = Request.QueryString("PriorYear")
0013: 
0014: 			If PriorYear = "" Then
0015: 			Prioryr = season - 1
0016: 			Else
0017: 			prioryr = CInt(PriorYear)
0018: 			End If
0019: 
0020: 	 	sortStr = Request.QueryString("sort")
0021: 	If sortStr = "" Then sortStr = "Name, FirstName"
0022: 	Select Case sortStr
0023: 		Case "Name,FirstName,City,State,EmailAddress"
0024: 			sortStr = sortStr 
0025: 		Case "NumEntries"
0026: 			sortStr = sortStr & " DESC "			
0027: 	End Select
0028: 
0029: 	Set rsreg = Server.CreateObject("ADODB.Recordset")
0030: 
0031: 
0032: 	sqlString = "SELECT DISTINCT RegNumber FROM mmEntries " & _
0033: 			"WHERE ( Season = " & prioryr & " OR Season = " & season & " ) " & _
0034: 			"ORDER BY " & sortStr
0035: 		rsReg.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0036: 
0037: 	totreg = 0
0038: 
0039: %>
0040: <html>
0041: 
0042: <head>
0043: <title>March Madness - Who is Back Analisys</title>
0044: <link href="mm.css" rel="stylesheet" type="text/css">
0045: <script language="JavaScript" type="text/javascript">
0046: 		function deleteNode(id)	{
0047: 			if (!confirm("Are you sure you want to delete this entry?"))	{
0048: 				return;
0049: 			}
0050: 			window.location = "mmEntryDelete.asp?id="+id;
0051: 		}
0052: 	</script>
0053: </head>
0054: 
0055: <body bgcolor="#ffffff">
0056: 
0057:     <td><table cellspacing="1" border="0" cellpadding="0" width="670" height="53">
0058: 
0059:       <tr>
0060:         <td width="100%" height="6" colspan="8"><p align="center"><font face="Arial" size="2"><img
0061:         src="clear.gif" width="1" height="4">Click on column heading to change
0062:         sort&nbsp;&nbsp;&nbsp;<img src="clear.gif"
0063:         width="1" height="4"></font></td>
0064:       </tr>
0065:       <tr>
0066:         <td width="30"></td>
0067:         <td width="90"><img src="clear.gif" width="1" height="2"></td>
0068:         <td width="110"><img src="clear.gif" width="1" height="2"></td>
0069:         <td width="130"><img src="clear.gif" width="1" height="2"></td>
0070:         <td width="20"><img src="clear.gif" width="1" height="2"></td>
0071:         <td width="150"><img src="clear.gif" width="1" height="2"></td>
0072:         <td width="30"><img src="clear.gif" width="1" height="2"></td>        
0073:         <td width="30"><img src="clear.gif" width="1" height="2"></td>
0074:         <td width="30"><img src="clear.gif" width="1" height="2"></td>
0075:         <td width="30"><img src="clear.gif" width="1" height="2"></td>
0076:         <td width="20"><img src="clear.gif" width="1" height="2"></td>
0077:       </tr>
0078:       <tr bgcolor="gray">
0079:         <td class="norm" align="center" ></td>
0080:         <td class="norm" align="center" >Reg#</td>		
0081:         <td class="norm" align="center" ><a href="whoisback.asp?sort=Name" class="norm">Last Name</a></td>
0082:         <td class="norm" align="center" ><a href="whoisback.asp?sort=FirstName" class="norm">First Name</a></td>
0083:         <td class="norm" align="center" ><a href="whoisback.asp?sort=City"    class="norm">City</a></td>
0084:         <td class="norm" align="center" ><a href="whoisback.asp?sort=State"   class="norm">St</a></td>
0085:         <td class="norm" align="center" ><a href="whoisback.asp?sort=State"   class="norm">Email Address</a></td>
0086:         <td class="norm" align="center" ><a href="whoisback.asp?sort=NumEntries"  class="norm"># Times</a></td>
0087:         <td class="norm" align="center" ><a href="whoisback.asp?sort=NumEntries"  class="norm"><%= prioryr %></a></td>        
0088:         <td class="norm" align="center" ><%= season %></td>
0089:         <td class="norm" align="center" ><a href="whoisback.asp?MIA=Y"  class="norm">MIA</a></td>
0090:       </tr>
0091: <%	bgcolor = "#e8e8e8"
0092: 
0093: 
0094: 
0095: 		Do Until rsreg.EOF
0096: 		
0097: 		RegNumber = rsreg("RegNumber").Value
0098: 		
0099: 			Set rs = Server.CreateObject("ADODB.Recordset")
0100: 			sqlString = "SELECT  * FROM mmEntries " & _
0101: 			"WHERE Season = " & prioryr & " AND RegNumber = '" & RegNumber & "' "
0102: 	
0103: 		rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0104: 		
0105: 		If NOT Rs.eof Then
0106: 		
0107: 			emailaddr = rs("EmailAddress").Value
0108: 			Name = rs("Name").Value
0109: 			FirstName = rs("FirstName").Value
0110: 			City = rs("City").Value
0111: 			State = rs("State").Value
0112: 			LYCount = rs("NumEntries").Value
0113: 			
0114: 
0115:         Else
0116: 
0117:             LYCount = 0	
0118: 			emailaddr = ""
0119: 
0120:         End If			
0121: 			
0122: 		Set rscy = Server.CreateObject("ADODB.Recordset")
0123: 			sqlString = "SELECT * FROM mmEntries " & _
0124: 			"WHERE Season = " & Season & " AND RegNumber = '" & RegNumber & "' "
0125: 	
0126: 		rscy.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0127: 			
0128: 		
0129: 		If Not rscy.EOF Then
0130: 		
0131: 			CurrCount = rscy("NumEntries").Value
0132: 			
0133: 			If emailaddr = "" Then
0134: 			
0135: 			emailaddr = rscy("EmailAddress").Value
0136: 			Name = rscy("Name").Value
0137: 			FirstName = rscy("FirstName").Value
0138: 			City = rscy("City").Value
0139: 			State = rscy("State").Value
0140: 			
0141: 			End If
0142: 			
0143: 		Else
0144: 			
0145: 			CurrCount = 0
0146: 			
0147: 		End If
0148: 			
0149: 			
0150: 		
0151: 			If bgcolor = "#e8e8e8" Then
0152: 				bgcolor = "#ffffff"
0153: 			Else
0154: 				bgcolor = "#e8e8e8"
0155: 			End If
0156: 
0157: If CurrCount = 0 Then
0158: MIA = LYCount
0159: Else
0160: MIA = 0
0161: End If
0162: 
0163: ShowIt = "Y"
0164: 
0165: If MIAOnly = "Y" and MIA = 0 Then
0166: ShowIt = "N"
0167: End If
0168: 
0169: If ShowIt = "Y" Then
0170: 
0171: 	%>
0172:       <tr bgcolor="<%= bgcolor %>" height="17">
0173:         <td class="norm" align="center" ><%= totreg %></td>
0174:         <td class="norm" align="center" ><%= RegNumber %></td>		
0175:         <td class="norm" align="left" ><a href="SearchResults.asp?LastName=<%= Name %>&FirstName=<%= FirstName %>"><%= Name %></a></td>
0176:         <td class="norm" align="left" ><%= FirstName %>
0177: </td>
0178:         <td class="norm" align="left" ><%= City %>
0179: </td>
0180:         <td class="norm" align="left" ><%= State %>
0181: </td>
0182:         <td class="norm" align="left" ><%= EmailAddr %>
0183: </td>
0184:         <td class="norm" align="center" ><%= PYCount %>
0185: </td>
0186:         <td class="norm" align="center" ><%= LYCount %>
0187: </td>
0188:         <td class="norm" align="center" ><%= CurrCount %>
0189: </td>
0190:         <td class="norm" align="center" ><%= mia %>
0191: </td>
0192: 
0193:       </tr>
0194: <%
0195: 
0196: End If
0197: 
0198: totlast = totlast + lYCount
0199: totcurr = totcurr + CurrCount
0200: totMIA = Totmia + mia
0201: 
0202: 		rsrEG.MoveNext
0203: 		Loop
0204: 
0205: 	%>
0206:       <tr bgcolor="<%= bgcolor %>">
0207:         <td class="norm" align="left" colspan="3" ></td>
0208:         <td class="norm" align="left" colspan="4" ><p align="right">Total Entries:</td>
0209:         <td></td>      
0210:         <td class="norm" align="center" ><%= totlast %>
0211: </td>
0212:         <td class="norm" align="center" ><%= totcurr %>
0213: </td>
0214:         <td class="norm" align="center" ><%= totmia %>
0215: 
0216: </td>
0217:       </tr>
0218: 
0219: 
0220: <% TotPotential = totcurr + totmia 
0221:    NOYPotential = totcur + TotNOY
0222: 
0223: %>
0224: 
0225: <tr>
0226: <td class="norm" colspan="8" align="right">Total Potential:</td>
0227: <td class="norm" colspan="2" align="right"><%= TotPotential %></td></tr>
0228: <td class="norm" colspan="2" align="right"><%= TOYPotential %></td></tr>
0229:     </table>
0230:     </td>
0231:   </tr>
0232: </table>
0233: </body>
0234: </html>