Count Lines in Pages
Contents of Page: whodidzelle.asp
Number of Lines: 171
Last Modified: 3/12/2020 6:41:20 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 ZelleUsed <> 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">Paid via PayPal</a>
0045: 	&nbsp;&nbsp;<a href="whodidVenMo.asp">Paid via VenMo</a>
0046: 	&nbsp;&nbsp;<a href="whodidZelle.asp">Paid via Zelle</a>
0047: 	&nbsp;&nbsp;<a href="whodidcheckcash.asp">Paid via Check / Cash</a>
0048: 	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="whoisin.asp">Everyone</a>
0049: 
0050: <img src="images/clear.gif"
0051:     width="1" height="4"></font></td>
0052:   </tr>
0053:   <tr>
0054:     <td width="30"></td>
0055:     <td width="110"><img src="images/clear.gif" width="1" height="2"></td>
0056:     <td width="100"><img src="images/clear.gif" width="1" height="2"></td>
0057:     <td width="150"><img src="images/clear.gif" width="1" height="2"></td>
0058:     <td width="40"><img src="images/clear.gif" width="1" height="2"></td>
0059:     <td width="30"><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: 
0062:     <td width="30"><img src="images/clear.gif" width="1" height="2"></td>
0063:     <td width="180"><img src="images/clear.gif" width="1" height="2"></td>
0064:     <td width="30"><img src="images/clear.gif" width="1" height="2"></td>
0065:     <td width="50"><img src="images/clear.gif" width="1" height="2"></td>
0066: 
0067:   </tr>
0068:   <tr bgcolor="#577fbe">
0069:     <td class="small" align="center" height="19"></td>
0070:     <td class="small" align="center" height="19"><a href="whodidpaypal.asp?sort=Name"
0071:     class="smallUndl">Last Name</a></td>
0072:     <td class="small" align="center" height="19"><a href="whodidpaypal.asp?sort=FirstName"
0073:     class="smallUndl">First Name</a></td>
0074:     <td class="small" align="center" height="19"><a href="whodidpaypal.asp?sort=City"
0075:     class="smallUndl">City</a></td>
0076:     <td class="small" align="center" height="19"><a href="whodidpaypal.asp?sort=State"
0077:     class="smallUndl">St</a></td>
0078:     <td class="small" align="center" height="19"><a href="whodidpaypal.asp?sort=NumEntries"
0079:     class="smallUndl">Entries</a></td>
0080: 
0081:     <td class="small" align="center" height="19">Paid</td>
0082:     <td class="small" align="center" height="19">Made</td>
0083:     <td class="small" align="left" height="19"><a href="whodidpaypal.asp?sort=EmailAddress" class="smallUndl">Email Address</a></td>
0084: 	    <td class="small" align="center" height="19"><a href="whodidpaypal.asp?sort=ID" class="smallUndl">ID</a></td>
0085: 
0086: <%	bgcolor = "#e8e8e8"
0087: 		Do Until rs.EOF
0088: 		emailaddr = rs("EmailAddress").value
0089: 			Set rsPicks = Server.CreateObject("ADODB.Recordset")
0090: 	sqlString = "	SELECT COUNT(ID) as RegCount FROM mmPicks " & _
0091: 							"WHERE EmailAddress = '" & emailaddr & "' " & _
0092: 							"AND Season = " & season & " " & _
0093: 							"AND Complete = 'Yes'"
0094: 	rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0095: 	
0096: 
0097: 
0098: 	totPicksMade = CInt(rsPicks("RegCount").Value)
0099:     rsPicks.Close
0100: 	set rsPicks = Nothing
0101: 		
0102: 			If bgcolor = "#e8e8e8" Then
0103: 				bgcolor = "#ffffff"
0104: 			Else
0105: 				bgcolor = "#e8e8e8"
0106: 			End If
0107: 			val = rs("NumEntries").Value
0108: 			paid = rs("PaidEntries").Value
0109: 			ShowStand = rs("ShowStandings").Value
0110: 			If ShowStand <> False Then
0111: 			ShowIt = "Y"
0112: 			Else
0113: 			ShowIt = ""
0114: 			End If
0115: 			If paid <> "" Then totpaid = totpaid + CInt(paid)
0116: 			totreg = totreg + 1
0117: 			totmade = totmade + totPicksMade
0118: 	%>
0119:   </tr>
0120:   <tr bgcolor="<%= bgcolor %>" height="20">
0121:     <td class="norm" align="center"><%= totreg %>
0122: </td>
0123:     <td class="norm" align="left"><%= rs("Name").Value %>
0124: </td>
0125:     <td class="norm" align="left"><%= rs("FirstName").Value %>
0126: </td>
0127:     <td class="norm" align="left"><%= rs("City").Value %>
0128: </td>
0129:     <td class="norm" align="left"><%= rs("State").Value %>
0130: </td>
0131:     <td class="norm" align="center"><%= val %></td>
0132:     <td class="norm" align="center"><%= paid %></td>
0133: 
0134:     <td class="norm" align="center"><%= totPicksMade %>
0135: </td>
0136:     <td class="norm" align="left"><a href="mailto:<%= emailaddr %>"><%= emailaddr %></a></td>
0137: 
0138:     <td class="norm" align="left"><a
0139:     href="editmmEntries.asp?from=deadbeat&amp;id=<%= rs("ID").Value %>" class="smallblueUndl"><%= rs("ID").Value %></a></td>
0140: </td>
0141: 
0142:   </tr>
0143: <%	   totentries = totentries + val
0144: 
0145:       rs.MoveNext
0146: 		Loop
0147: 		If bgcolor = "#e8e8e8" Then
0148: 				bgcolor = "#ffffff"
0149: 			Else
0150: 				bgcolor = "#e8e8e8"
0151: 			End If
0152: 
0153: 		rs.Close
0154: 		Set rs = Nothing	%>
0155:   <tr bgcolor="<%= bgcolor %>">
0156:     <td class="norm" align="left" colspan="2">Total Reg:<b><%= totreg %></b></td>
0157:     <td class="norm" align="left" colspan="3"><p align="right">Total Entries:</td>
0158:     <td class="norm" align="center"><% = totentries %>
0159: </td>
0160: 
0161: 
0162:     <td class="norm" align="center"><% = totmade %>
0163: </td>
0164:     <td class="norm" align="left"><p align="right"></td>
0165:     <td class="normbold" align="center" colspan="2">$<% = totpaid * 20 %>
0166: </td>
0167: 
0168:   </tr>
0169: </table>
0170: </body>
0171: </html>