Count Lines in Pages
Contents of Page: whodidpaypal_m.asp
Number of Lines: 131
Last Modified: 8/22/2018 1:33:25 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <%
0005: 		user = Request.Cookies("user")
0006: 	yr = Request.QueryString("yr")
0007: 	If yr = "" Then yr = season
0008:    	sortStr = Request.QueryString("sort")
0009: 	If sortStr = "" Then sortStr = "Name"
0010: 	Select Case sortStr
0011: 		Case "FirstName,City,State,EmailAddress"
0012: 			sortStr = sortStr 
0013: 		Case "NumEntries"
0014: 			sortStr = sortStr & " DESC "
0015: 		Case "ID"
0016: 			sortStr = sortStr & " DESC "			
0017: 	End Select
0018: 
0019: 
0020: 	Set rs = Server.CreateObject("ADODB.Recordset")
0021: 	sqlString = "SELECT * FROM mmEntries " & _
0022: 			"WHERE Season = " & yr & " " & _
0023: 			"AND PayPalUsed <> False " & _
0024: 			"ORDER BY " & sortStr
0025: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0026: 	totreg = 0
0027:    totentries = 0
0028:    totpaid = 0
0029:    totmade = 0
0030: %>
0031: <html>
0032: 
0033: <head>
0034: <meta name="viewport" content="width=device-width">
0035: <title>March Madness - Paid PayPal</title>
0036: <link href="mm.css" rel="stylesheet" type="text/css">
0037: </head>
0038: 
0039: <body bgcolor="#ffffff">
0040: 
0041: <table cellspacing="1" border="0" cellpadding="0" width="99%" height="53">
0042:   <tr>
0043:     <td width="99%" height="6" colspan="8"><p align="center"><font face="Arial" size="2"><img
0044:     src="images/clear.gif" width="1" height="4">PayPal Payments &nbsp;&nbsp;&nbsp;  
0045: 		<a href="whoisdeadbeat_m.asp">Dead Beats</a>
0046: <img src="images/clear.gif"
0047:     width="1" height="4"></font></td>
0048:   </tr>
0049: 
0050:   <tr bgcolor="#577fbe">
0051:     <td class="small" align="center" height="19"></td>
0052:     <td class="small" align="center" height="19"><a href="whodidpaypal_m.asp?sort=Name"
0053:     class="smallUndl">Last</a>&nbsp;&nbsp;&nbsp;<a href="whodidpaypal_m.asp?sort=FirstName"
0054:     class="smallUndl">First</a></td>
0055:     <td class="small" align="center" height="19"><a href="whodidpaypal_m.asp?sort=City"
0056:     class="smallUndl">City</a>&nbsp;&nbsp;&nbsp;<a href="whodidpaypal_m.asp?sort=State"
0057:     class="smallUndl">St</a></td>
0058:     <td class="small" align="center" height="19"><a href="whodidpaypal_m.asp?sort=NumEntries"
0059:     class="smallUndl">Entries</a></td>
0060: <%	bgcolor = "#e8e8e8"
0061: 		Do Until rs.EOF
0062: 		emailaddr = rs("EmailAddress").value
0063: 			Set rsPicks = Server.CreateObject("ADODB.Recordset")
0064: 	sqlString = "	SELECT COUNT(ID) as RegCount FROM mmPicks " & _
0065: 							"WHERE EmailAddress = '" & emailaddr & "' " & _
0066: 							"AND Season = " & season & " " & _
0067: 							"AND Complete = 'Yes'"
0068: 	rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0069: 	
0070: 
0071: 
0072: 	totPicksMade = CInt(rsPicks("RegCount").Value)
0073:     rsPicks.Close
0074: 	set rsPicks = Nothing
0075: 		
0076: 			If bgcolor = "#e8e8e8" Then
0077: 				bgcolor = "#ffffff"
0078: 			Else
0079: 				bgcolor = "#e8e8e8"
0080: 			End If
0081: 			val = rs("NumEntries").Value
0082: 			paid = rs("PaidEntries").Value
0083: 			ShowStand = rs("ShowStandings").Value
0084: 			If ShowStand <> False Then
0085: 			ShowIt = "Y"
0086: 			Else
0087: 			ShowIt = ""
0088: 			End If
0089: 			If paid <> "" Then totpaid = totpaid + CInt(paid)
0090: 			totreg = totreg + 1
0091: 			totmade = totmade + totPicksMade
0092: 	%>
0093:   </tr>
0094:   <tr bgcolor="<%= bgcolor %>" height="20">
0095:     <td class="norm" align="center"><%= totreg %>
0096: </td>
0097:     <td class="norm" align="left"><%= rs("Name").Value %>, <%= rs("FirstName").Value %>
0098: 
0099: </td>
0100:     <td class="norm" align="left"><%= rs("City").Value %>, <%= rs("State").Value %>
0101: </td>
0102:     <td class="norm" align="center"><%= val %></td>
0103:   </tr>
0104: <%	   totentries = totentries + val
0105: 
0106:       rs.MoveNext
0107: 		Loop
0108: 		If bgcolor = "#e8e8e8" Then
0109: 				bgcolor = "#ffffff"
0110: 			Else
0111: 				bgcolor = "#e8e8e8"
0112: 			End If
0113: 
0114: 		rs.Close
0115: 		Set rs = Nothing	%>
0116:   <tr bgcolor="<%= bgcolor %>">
0117:     <td class="norm" align="left" colspan="2">Total Reg:<b><%= totreg %></b></td>
0118:     <td class="norm" align="left" colspan="3"><p align="right">Total Entries:</td>
0119:     <td class="norm" align="center"><% = totentries %>
0120: </td>
0121: <% If user = "jt@folga.org" Then %>
0122:     <td class="norm" align="center"><% = totmade %>
0123: </td>
0124:     <td class="norm" align="left"><p align="right">Paid Entries:</td>
0125:     <td class="norm" align="center" colspan="2"><% = totpaid %>
0126: </td>
0127: <% End If %>
0128:   </tr>
0129: </table>
0130: </body>
0131: </html>