Count Lines in Pages
Contents of Page: whodidpaypal.asp
Number of Lines: 172
Last Modified: 3/12/2020 6:43:10 PM
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 = "Name"
0011: 	Select Case sortStr
0012: 		Case "FirstName,City,State,EmailAddress"
0013: 			sortStr = sortStr 
0014: 		Case "NumEntries"
0015: 			sortStr = sortStr & " DESC "			
0016: 	End Select
0017: 
0018: 
0019: 	Set rs = Server.CreateObject("ADODB.Recordset")
0020: 	sqlString = "SELECT * FROM mmEntries " & _
0021: 			"WHERE Season = " & yr & " " & _
0022: 			"AND PayPalUsed <> False " & _
0023: 			"ORDER BY " & sortStr
0024: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0025: 	totreg = 0
0026:    totentries = 0
0027:    totpaid = 0
0028:    totmade = 0
0029: %>
0030: <html>
0031: 
0032: <head>
0033: <title>March Madness - Standings</title>
0034: <link href="mm.css" rel="stylesheet" type="text/css">
0035: </head>
0036: 
0037: <body bgcolor="#ffffff">
0038: 
0039: <table cellspacing="1" border="0" cellpadding="0" width="700" height="53">
0040:   <tr>
0041:     <td width="700" height="6" colspan="12"><p align="center"><font face="Arial" size="2"><img
0042:     src="images/clear.gif" width="1" height="4">PayPal Payments &nbsp;&nbsp;&nbsp;  
0043: 			&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="whoisdeadbeat_m.asp?sort=ID">Mobile</a>
0044: 	&nbsp;&nbsp;<a href="whodidpaypal.asp">PayPal</a>
0045: 	&nbsp;&nbsp;<a href="whodidVenMo.asp">VenMo</a>
0046: 	&nbsp;&nbsp;<a href="whodidZelle.asp">Zelle</a>
0047: 	&nbsp;&nbsp;<a href="whodiddonation.asp">Donations</a>
0048: 	&nbsp;&nbsp;<a href="whodidcheckcash.asp">Check / Cash</a>
0049: 	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="whoisin.asp">Everyone</a>
0050: 
0051: <img src="images/clear.gif"
0052:     width="1" height="4"></font></td>
0053:   </tr>
0054:   <tr>
0055:     <td width="30"></td>
0056:     <td width="110"><img src="images/clear.gif" width="1" height="2"></td>
0057:     <td width="100"><img src="images/clear.gif" width="1" height="2"></td>
0058:     <td width="150"><img src="images/clear.gif" width="1" height="2"></td>
0059:     <td width="40"><img src="images/clear.gif" width="1" height="2"></td>
0060:     <td width="30"><img src="images/clear.gif" width="1" height="2"></td>
0061:     <td width="30"><img src="images/clear.gif" width="1" height="2"></td>
0062: 
0063:     <td width="30"><img src="images/clear.gif" width="1" height="2"></td>
0064:     <td width="180"><img src="images/clear.gif" width="1" height="2"></td>
0065:     <td width="30"><img src="images/clear.gif" width="1" height="2"></td>
0066:     <td width="50"><img src="images/clear.gif" width="1" height="2"></td>
0067: 
0068:   </tr>
0069:   <tr bgcolor="#577fbe">
0070:     <td class="small" align="center" height="19"></td>
0071:     <td class="small" align="center" height="19"><a href="whodidpaypal.asp?sort=Name"
0072:     class="smallUndl">Last Name</a></td>
0073:     <td class="small" align="center" height="19"><a href="whodidpaypal.asp?sort=FirstName"
0074:     class="smallUndl">First Name</a></td>
0075:     <td class="small" align="center" height="19"><a href="whodidpaypal.asp?sort=City"
0076:     class="smallUndl">City</a></td>
0077:     <td class="small" align="center" height="19"><a href="whodidpaypal.asp?sort=State"
0078:     class="smallUndl">St</a></td>
0079:     <td class="small" align="center" height="19"><a href="whodidpaypal.asp?sort=NumEntries"
0080:     class="smallUndl">Entries</a></td>
0081: 
0082:     <td class="small" align="center" height="19">Paid</td>
0083:     <td class="small" align="center" height="19">Made</td>
0084:     <td class="small" align="left" height="19"><a href="whodidpaypal.asp?sort=EmailAddress" class="smallUndl">Email Address</a></td>
0085: 	    <td class="small" align="center" height="19"><a href="whodidpaypal.asp?sort=ID" class="smallUndl">ID</a></td>
0086: 
0087: <%	bgcolor = "#e8e8e8"
0088: 		Do Until rs.EOF
0089: 		emailaddr = rs("EmailAddress").value
0090: 			Set rsPicks = Server.CreateObject("ADODB.Recordset")
0091: 	sqlString = "	SELECT COUNT(ID) as RegCount FROM mmPicks " & _
0092: 							"WHERE EmailAddress = '" & emailaddr & "' " & _
0093: 							"AND Season = " & season & " " & _
0094: 							"AND Complete = 'Yes'"
0095: 	rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0096: 	
0097: 
0098: 
0099: 	totPicksMade = CInt(rsPicks("RegCount").Value)
0100:     rsPicks.Close
0101: 	set rsPicks = Nothing
0102: 		
0103: 			If bgcolor = "#e8e8e8" Then
0104: 				bgcolor = "#ffffff"
0105: 			Else
0106: 				bgcolor = "#e8e8e8"
0107: 			End If
0108: 			val = rs("NumEntries").Value
0109: 			paid = rs("PaidEntries").Value
0110: 			ShowStand = rs("ShowStandings").Value
0111: 			If ShowStand <> False Then
0112: 			ShowIt = "Y"
0113: 			Else
0114: 			ShowIt = ""
0115: 			End If
0116: 			If paid <> "" Then totpaid = totpaid + CInt(paid)
0117: 			totreg = totreg + 1
0118: 			totmade = totmade + totPicksMade
0119: 	%>
0120:   </tr>
0121:   <tr bgcolor="<%= bgcolor %>" height="20">
0122:     <td class="norm" align="center"><%= totreg %>
0123: </td>
0124:     <td class="norm" align="left"><%= rs("Name").Value %>
0125: </td>
0126:     <td class="norm" align="left"><%= rs("FirstName").Value %>
0127: </td>
0128:     <td class="norm" align="left"><%= rs("City").Value %>
0129: </td>
0130:     <td class="norm" align="left"><%= rs("State").Value %>
0131: </td>
0132:     <td class="norm" align="center"><%= val %></td>
0133:     <td class="norm" align="center"><%= paid %></td>
0134: 
0135:     <td class="norm" align="center"><%= totPicksMade %>
0136: </td>
0137:     <td class="norm" align="left"><a href="mailto:<%= emailaddr %>"><%= emailaddr %></a></td>
0138: 
0139:     <td class="norm" align="left"><a
0140:     href="editmmEntries.asp?from=deadbeat&amp;id=<%= rs("ID").Value %>" class="smallblueUndl"><%= rs("ID").Value %></a></td>
0141: </td>
0142: 
0143:   </tr>
0144: <%	   totentries = totentries + val
0145: 
0146:       rs.MoveNext
0147: 		Loop
0148: 		If bgcolor = "#e8e8e8" Then
0149: 				bgcolor = "#ffffff"
0150: 			Else
0151: 				bgcolor = "#e8e8e8"
0152: 			End If
0153: 
0154: 		rs.Close
0155: 		Set rs = Nothing	%>
0156:   <tr bgcolor="<%= bgcolor %>">
0157:     <td class="norm" align="left" colspan="2">Total Reg:<b><%= totreg %></b></td>
0158:     <td class="norm" align="left" colspan="3"><p align="right">Total Entries:</td>
0159:     <td class="norm" align="center"><% = totentries %>
0160: </td>
0161: 
0162: 
0163:     <td class="norm" align="center"><% = totmade %>
0164: </td>
0165:     <td class="norm" align="left"><p align="right"></td>
0166:     <td class="normbold" align="center" colspan="2">$<% = totpaid * 20 %>
0167: </td>
0168: 
0169:   </tr>
0170: </table>
0171: </body>
0172: </html>