Count Lines in Pages
Contents of Page: mmtoprefs.asp
Number of Lines: 138
Last Modified: 8/22/2018 1:32:58 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <%
0005: 
0006: 		emailaddress = Request.Cookies("user")
0007:         If emailaddress = "" then
0008: 	    emailaddress = "NotLoggedIn"
0009:         End If
0010: 
0011: 	yr = Request.QueryString("yr")
0012: 	If yr = "" Then yr = season
0013:    	sortStr = Request.QueryString("sort")
0014: 	If sortStr = "" Then sortStr = "TotalRefs"
0015: 	Select Case sortStr
0016: 		Case "FirstName,City,State,EmailAddress"
0017: 			sortStr = sortStr 
0018: 		Case "TotalRefs"
0019: 			sortStr = sortStr & " DESC "			
0020: 	End Select
0021: 
0022: 
0023: 	Set rs = Server.CreateObject("ADODB.Recordset")
0024: 	sqlString = "SELECT * FROM mmEntries " & _
0025: 			"WHERE Season = " & yr & " "& _
0026: 			"AND TotalRefs > 1 " &_
0027: 			"ORDER BY " & sortStr
0028: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0029: 	totreg = 0
0030:    totentries = 0
0031:    totpaid = 0
0032:    totmade = 0
0033: %>
0034: <html>
0035: 
0036: <head>
0037: <title>March Madness - My referrals</title>
0038: <link href="mm.css" rel="stylesheet" type="text/css">
0039: <script language="JavaScript">
0040: 			function displayHelp2()
0041: 		{
0042: 			x = 650;
0043: 			y = 600;
0044: 			var xpos = 110;
0045: 			var ypos = 20; <% HelpPage = "whatisreferralen.htm" %>
0046: 			var updateasp = "<%= HelpPage %>";
0047: 			var w;
0048: 			w = window.open(updateasp,'update','width='+x+',height='+y+',top='+ypos+',left='+xpos);
0049: 		}	
0050: 	</script>
0051: </head>
0052: 
0053: <body bgcolor="#ffffff">
0054: 
0055: <table cellspacing="1" border="0" cellpadding="0" width="600" align="center" height="53">
0056: 
0057:     <p align="center"><input type="button" value="Go Back" class="norm"
0058:     onClick="history.back()" style="float: center"></font> 
0059:     </tr><tr>
0060:  <td class="norm" colspan="6">Who has referred the most entries</td>
0061:   </tr>
0062:   <tr>
0063:   <tr>   <td width="110"></td>
0064:     <td width="90"></td>
0065:     <td width="150"></td>
0066:     <td width="40"></td>
0067:     <td width="30"></td>
0068: 
0069:   </tr>
0070:   <tr bgcolor="#577fbe">
0071:     <td class="small" align="center" height="19"><a href="mmtoprefs.asp?sort=Name"
0072:     class="smallUndl">Last Name</a></td>
0073:     <td class="small" align="center" height="19"><a href="mmtoprefs.asp?sort=FirstName"
0074:     class="smallUndl">First Name</a></td>
0075:     <td class="small" align="center" height="19"><a href="mmtoprefs.asp?sort=City"
0076:     class="smallUndl">City</a></td>
0077:     <td class="small" align="center" height="19"><a href="mmtoprefs.asp?sort=State"
0078:     class="smallUndl">St</a></td>
0079:     <td class="small" align="center" height="19"><a href="mmtoprefs.asp?sort=TotalRefs"
0080:     class="smallUndl">Total<br>Referrals</a></td>
0081: <% If user = "jt@folga.org" Then %>
0082:     <td class="small" align="left" height="19"><a href="mmtoprefs.asp?sort=EmailAddress"
0083:     class="smallUndl">Email Address</a></td>
0084: <% End If %>
0085: <%	bgcolor = "#e8e8e8"
0086: 		Do Until rs.EOF
0087: 		emailaddr = rs("EmailAddress").value
0088: 		
0089: 			If bgcolor = "#e8e8e8" Then
0090: 				bgcolor = "#ffffff"
0091: 			Else
0092: 				bgcolor = "#e8e8e8"
0093: 			End If
0094: 			val = rs("TotalRefs").Value
0095: 
0096: 	%>
0097:   </tr>
0098:   <tr bgcolor="<%= bgcolor %>">
0099: 
0100:     <td class="smalldark" align="left" height="13"><%= rs("Name").Value %>
0101: </td>
0102:     <td class="smalldark" align="left" height="13"><%= rs("FirstName").Value %>
0103: </td>
0104:     <td class="smalldark" align="left" height="13"><%= rs("City").Value %>
0105: </td>
0106:     <td class="smalldark" align="left" height="13"><%= rs("State").Value %>
0107: </td>
0108:     <td class="smalldark" align="center" height="13"><%= val %>
0109: </td>
0110: <% If user = "jt@folga.org" Then %>
0111:     <td class="smalldark" align="left" height="13"><a href="mmwhoismyrefs.asp?email=<%= emailaddr %>"><%= emailaddr %></a></td>
0112: </td>
0113:     <td class="smalldark" align="left" height="13"><a
0114:     href="editmmEntries.asp?id=<%= rs("ID").Value %>" class="smallblueUndl"><%= rs("ID").Value %></a></td>
0115:     <td class="smalldark" align="left" height="13"></td>
0116: <% End If %>
0117:   </tr>
0118: 
0119: <%	   totentries = totentries + val
0120: 
0121:       rs.MoveNext
0122: 		Loop
0123: 		If bgcolor = "#e8e8e8" Then
0124: 				bgcolor = "#ffffff"
0125: 			Else
0126: 				bgcolor = "#e8e8e8"
0127: 			End If
0128: 
0129: 		rs.Close
0130: 		Set rs = Nothing	%>
0131:  
0132:   </tr>
0133: </table>
0134: <p align="center"><a
0135:     href="mailto:?subject=Invitation to participate in a March Madness Contest&amp;body=Check out the site http://www.folga.org/ncaa">Click here to invite friends/coleagues.</a>
0136: </p>
0137: </body>
0138: </html>