Count Lines in Pages
Contents of Page: whoisinsummary.asp
Number of Lines: 151
Last Modified: 2/9/2020 12:49:12 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: 	align = Request.QueryString("align")
0008: 	If yr = "" Then yr = season
0009:    	sortStr = Request.QueryString("sort")
0010:   	Deadbeat = Request.QueryString("DB")   	
0011: 	If sortStr = "" Then sortStr = "Name"
0012: 	Select Case sortStr
0013: 		Case "FirstName,City,State,EmailAddress"
0014: 			sortStr = sortStr 
0015: 		Case "NumEntries"
0016: 			sortStr = sortStr & " DESC "	
0017: 		Case "Num2ndEntries"
0018: 			sortStr = sortStr & " DESC "
0019: 		Case "ID"
0020: 			sortStr = sortStr & " DESC "					
0021: 	End Select
0022: 
0023: 	IF Deadbeat = "Y" Then
0024: 	AddSel = "AND ( NumEntries > PaidEntries OR Num2ndEntries > Paid2ndEntries )" 
0025: 	DBOption = "&DB=Y"
0026: 	Else
0027: 	AddSel = ""
0028: 	DBOption = ""
0029: 	End If
0030: 
0031: 	Set rs = Server.CreateObject("ADODB.Recordset")
0032: 	sqlString = "SELECT * FROM mmEntries " & _
0033: 			"WHERE Season = " & yr & " " & _
0034: 			AddSel & _
0035: 			"ORDER BY " & sortStr
0036: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0037: 	totreg = 0
0038:    totentries = 0
0039:    totssentries = 0   
0040:    totpaid = 0
0041:    tot2ndpaid = 0   
0042:    totmade = 0
0043:    tot2ndmade = 0
0044: %>
0045: <html>
0046: 
0047: <head>
0048: <meta name="viewport" content="width=device-width">
0049: <title>March Madness - Who is in?</title>
0050: <link href="mm.css" rel="stylesheet" type="text/css">
0051: <script language="JavaScript" type="text/javascript">
0052: 		function deleteNode(id)	{
0053: 			if (!confirm("Are you sure you want to delete this entry?"))	{
0054: 				return;
0055: 			}
0056: 			window.location = "mmEntryDelete.asp?id="+id;
0057: 		}
0058: 	</script>
0059: </head>
0060: 
0061: <body bgcolor="#ffffff">
0062: 
0063: 
0064: <table cellspacing="1" border="0" cellpadding="0" width="400" height="53" align="<%= align %>">
0065: 
0066:       <tr>
0067:         <td height="6" colspan="8"><p align="center"><font face="Arial" size="2"><img
0068:         src="images/clear.gif" width="1" height="4">Click on column heading to change
0069:         sort&nbsp;&nbsp;&nbsp;
0070: 		<img src="images/clear.gif" width="1" height="4"></font></td>
0071:       </tr>
0072:       <tr>
0073:         <td width="7%"></td>
0074:         <td width="25%"><img src="images/clear.gif" width="1" height="2"></td>
0075:         <td width="25%"><img src="images/clear.gif" width="1" height="2"></td>
0076:         <td width="28%"><img src="images/clear.gif" width="1" height="2"></td>
0077:         <td width="7%"><img src="images/clear.gif" width="1" height="2"></td>
0078:         <td width="8%"><img src="images/clear.gif" width="1" height="2"></td>
0079:       </tr>
0080:       <tr bgcolor="#577fbe">
0081:         <td class="small" align="center" height="21" ></td>
0082:         <td class="small" align="center" ><a href="whoisinsummary.asp?sort=Name<%= DBOption %>"
0083:         class="smallUndl">Last Name</a></td>
0084:         <td class="small" align="center" ><a href="whoisinsummary.asp?sort=FirstName<%= DBOption %>"
0085:         class="smallUndl">First Name</a></td>
0086:         <td class="small" align="center" ><a href="whoisinsummary.asp?sort=City<%= DBOption %>"
0087:         class="smallUndl">City</a></td>
0088:         <td class="small" align="center" ><a href="whoisinsummary.asp?sort=State<%= DBOption %>"
0089:         class="smallUndl">St</a></td>
0090:         <td class="small" align="center" ><a href="whoisinsummary.asp?sort=NumEntries<%= DBOption %>"
0091:         class="smallUndl">Entries</a></td>
0092: <%	bgcolor = "#e8e8e8"
0093: 		Do Until rs.EOF
0094: 		emailaddr = rs("EmailAddress").value
0095: 		
0096: 			If bgcolor = "#D8D8D8" Then
0097: 				bgcolor = "#ffffff"
0098: 			Else
0099: 				bgcolor = "#D8D8D8"
0100: 			End If
0101: 			val = rs("NumEntries").Value
0102: 			val2nd = rs("Num2ndEntries").Value			
0103: 			paid = rs("PaidEntries").Value
0104: 			If paid <> "" Then totpaid = totpaid + CInt(paid)
0105: 			paid2nd = rs("Paid2ndEntries").Value
0106: 			If paid2nd <> "" Then tot2ndpaid = tot2ndpaid + CInt(paid2nd)
0107: 			If val > 0 Then
0108: 			totreg = totreg + 1
0109: 			End If
0110: 			totmade = totmade + totPicksMade
0111: 			tot2ndmade = tot2ndmade + totSSPicksMade
0112: 	%>
0113:       </tr>
0114:       <tr bgcolor="<%= bgcolor %>">
0115: 
0116:      <td class="norm" align="center" height="19"><%= totreg %>
0117: 
0118: </td>
0119:         <td class="norm" align="left"><%= rs("Name").Value %>
0120: </td>
0121:         <td class="norm" align="left"><%= rs("FirstName").Value %>
0122: </td>
0123:         <td class="norm" align="left"><%= rs("City").Value %>
0124: </td>
0125:         <td class="norm" align="center"><%= rs("State").Value %>
0126: </td>
0127:         <td class="norm" align="center"><b><%= val %>
0128: </td>
0129: 
0130:       </tr>
0131: <%	   totentries = totentries + val
0132:        totssentries = totssentries + val2nd
0133:       rs.MoveNext
0134: 		Loop
0135: 		If bgcolor = "#e8e8e8" Then
0136: 				bgcolor = "#ffffff"
0137: 			Else
0138: 				bgcolor = "#e8e8e8"
0139: 			End If
0140: 
0141: 		rs.Close
0142: 		Set rs = Nothing	%>
0143: 		<tr> </tr>
0144: 		<tr><td></td><td></td><td></td><td></td><td></td><td class="norm" align="left"><p align="center"><b><%= totentries %></td>
0145: 		 </table>
0146: 
0147:     </td>
0148:   </tr>
0149: </table>
0150: </body>
0151: </html>