Count Lines in Pages
Contents of Page: whoisdeadbeat_m.asp
Number of Lines: 128
Last Modified: 3/13/2026 11:07:01 AM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/ReturnPageSet.inc" -->
0005: <%
0006: 		user = Request.Cookies("user")
0007: 	yr = Request.QueryString("yr")
0008: 	If yr = "" Then yr = season
0009:    	sortStr = Request.QueryString("sort")
0010: 	If sortStr = "" Then sortStr = "ID"
0011: 	Select Case sortStr
0012: 		Case "Name"
0013: 			sortStr = sortStr 
0014: 		Case "FirstName"
0015: 			sortStr = sortStr & ",Name "			
0016: 		Case "NumEntries"
0017: 			sortStr = sortStr & " DESC "	
0018: 		Case "ID"
0019: 			sortStr = sortStr & " DESC "			
0020: 	End Select
0021: 
0022: 
0023: 	Set rs = Server.CreateObject("ADODB.Recordset")
0024: 	sqlString = "SELECT * FROM mmEntries " & _
0025: 			"WHERE Season = " & yr & " " & _
0026: 			"AND ( NumEntries > PaidEntries " & _
0027:             " OR  Num2ndEntries > Paid2ndEntries )" & _
0028: 			"ORDER BY " & sortStr
0029:  rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0030: ' Response.Write(sqlString & "<br>")
0031: 	totreg = 0
0032:    totentries = 0
0033:    totpaid = 0
0034:    totmade = 0
0035: %>
0036: <html>
0037: 
0038: <head>
0039: <meta name="viewport" content="width=device-width">
0040: <title>MM - Payments</title>
0041: <link href="mm.css" rel="stylesheet" type="text/css">
0042: </head>
0043: <body bgcolor="#ffffff">
0044: 
0045: <table cellspacing="1" border="0" cellpadding="0" width="330">
0046:   <tr height="20" >
0047:     <td colspan="2" class="norm"><a href="whoisdeadbeat.asp"><big><big>Full Page</a></td>
0048: 	<td class="norm" align="center"	><big>(<font color="green"><b>Green ID</b></font>=Mobile)</td>
0049:    <td  colspan="3" class="norm" align="right"><a href="whoisin_m.asp"><big><big>Everyone</a></td>
0050:   </tr>
0051:   <tr bgcolor="#ff9900" height="19">
0052:     <td class="normbold" align="center" width="20%" ><a href="whoisdeadbeat_m.asp?sort=ID">ID</a></td>
0053: 	    <td class="normbold" align="center" width="10%">Years<br>Played</td>
0054:     <td class="normbold" align="center" width="35%"><a href="whoisdeadbeat_m.asp?sort=Name">Last</a>&nbsp;&nbsp;&nbsp;
0055: <a href="whoisdeadbeat_m.asp?sort=FirstName">First</a></td>	
0056: 
0057:     <td class="normbold" align="center" width="20%"></td>
0058:     <td class="small" align="center" width="15%">Unpaid<br>M / 16</td>
0059:     </tr>
0060: <%
0061: 		Do Until rs.EOF
0062: 
0063: ID =  rs("ID").Value
0064: 		
0065: 			If bgcolor = "#BDBDBD" Then
0066: 				bgcolor = "#ffffff"
0067: 			Else
0068: 				bgcolor = "#BDBDBD"
0069: 			End If
0070: 		emailaddr = rs("EmailAddress").value
0071: 			Entries = rs("NumEntries").Value
0072: 			paid = rs("PaidEntries").Value
0073: 			val2 = rs("Num2ndEntries").Value
0074: 			paid2 = rs("Paid2ndEntries").Value
0075: 			ShowStand = rs("ShowStandings").Value
0076: 
0077: 			UsedMobile = rs("UsedMobile").Value
0078: 		    UnpaidMain = Entries - Paid
0079: 			UnpaidS16 = Val2 - Paid2
0080: 			Name = rs("Name").Value
0081: 			FullName = rs("FirstName").Value & " " & Name
0082: 			FirstName = rs("FirstName").Value
0083: 
0084: '-------------------------------------------------------------------------
0085: 
0086: 
0087: 			Set rsPYPicks = Server.CreateObject("ADODB.Recordset")
0088: 	sqlString = "SELECT COUNT(ID) as RegCount FROM mmEntries " & _
0089: 							"WHERE FirstName = '" & FirstName & "' " & _
0090:                              "AND Name = '" & Name & "' " & _
0091: 							"AND Season < " & season & " "
0092: 	rsPYPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0093: 	
0094: 	
0095: 
0096: 	PYCount = rsPYPicks("RegCount").Value
0097:     rsPYPicks.Close
0098: 
0099: '--------------------------------------------------------------------------
0100: 
0101: If UsedMobile = "Y" Then
0102: cell_color = "#669900"
0103: TotalMobileEntries = TotalMobileEntries + 1
0104: Else
0105: cell_color = bgcolor
0106: End IF
0107: 
0108: 	%>
0109:   </tr>
0110:   <tr bgcolor="<%= bgcolor %>" height="30">
0111:    <td class="norm" align="center" bgcolor="<%= Cell_color %>"><big><a style="text-decoration:none" href="editmmEntries.asp?id=<%= ID %>"><b><big><%= ID %></td>
0112:        <td class="normbold" align="center" ><%= PyCount %></td>
0113:     <td class="norm" align="left" ><a href="SearchResults.asp?LastName=<%= Name %>&FirstName=<%= FirstName %>"><big><b><%= FullName %></td>
0114: 
0115: 	<td class="norm" align="center"><Big><a style="text-decoration:none" href="MMReceivePayment.asp?ID=<%= ID %>"><big><b>Paid</a></td>
0116:     <td class="norm" align="center"><%= UnpaidMain %> / <%= UnpaidS16 %></td>
0117: 	
0118:   </tr>
0119: <%	   totentries = totentries + val
0120: 
0121:       rs.MoveNext
0122: 		Loop
0123: 		rs.Close
0124: 		Set rs = Nothing	%>
0125: 
0126: </table>
0127: </body>
0128: </html>