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