Count Lines in Pages
Contents of Page: top10.asp
Number of Lines: 534
Last Modified: 4/8/2026 7:22:49 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: 	MyEMail = Request.Cookies("user")
0008: 	Kind = Request.QueryString("Kind")
0009: 	PayType = Request.QueryString("PayType")
0010: 	ShowMIA = Request.QueryString("ShowMIA")		
0011: 
0012:     Session("ReturnPage") = "top10.asp?Kind="& Kind
0013: 
0014: 	If Kind = "" Then Kind = "MC"
0015: 
0016:     Session("ReturnPage") = "top10.asp?Kind="& Kind
0017: 
0018: 	yr = Request.QueryString("yr")
0019: 	If yr = "" Then yr = season
0020: 	If startmakepicks = "YES" Then
0021: 	If user = "" Then Response.Redirect("login.asp?from=top10.asp")
0022:  
0023:   	Set rsg = Server.CreateObject("ADODB.Recordset")
0024: 	sqlString = "SELECT * FROM mmEntries " & _
0025: 			"WHERE Season = " & yr & " " & _
0026: 			"AND EmailAddress = '" & user & "'"
0027: 	rsg.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0028:     
0029: 
0030: 	paid = rsg("PaidEntries").Value
0031: 	firstname = rsg("FirstName").Value
0032: 	ShowStand = rsg("ShowStandings").Value
0033: 	paid2nd = rsg("Paid2ndEntries").Value	
0034: 	
0035: 	rsg.Close
0036: 	set rsg = Nothing
0037: 
0038: 	If paid < 1  and paid2nd < 1 and ShowStand = False Then Response.Redirect("notpaidyet.asp?name=" & firstname)
0039: 
0040:     
0041:     End If
0042: 	
0043: 	Set rsp = Server.CreateObject("ADODB.Recordset")
0044: 	sqlString = "SELECT * FROM mmPrizes " & _
0045: 			"WHERE Season = " & season
0046: 	rsp.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0047: 
0048: 	
0049: 	
0050: 
0051: 	Set rs = Server.CreateObject("ADODB.Recordset")
0052: 
0053: If Kind = "BOTH" Then
0054: 
0055: 	sqlString = "SELECT * FROM mmTop10" & _
0056: 			" WHERE Season = " & yr & " " & _
0057: 			" AND Contest <> 'PP' " & _
0058: 			" ORDER BY Name, Top10Amt DESC" 
0059: 
0060: 
0061: ElseIf Kind = "CheckNo" Then
0062: 
0063: 	sqlString = "SELECT * FROM mmTop10" & _
0064: 			" WHERE Season = " & yr & " " & _
0065: 			" AND Contest <> 'PP' " & _
0066: 			" ORDER BY CheckNo, Name" 
0067: Else
0068: 
0069: 	sqlString = "SELECT * FROM mmTop10" & _
0070: 			" WHERE Season = " & yr & " " & _
0071: 			" AND Contest <> 'PP' " & _
0072: 			" ORDER BY Contest, Rank" 
0073: 
0074: End If 
0075: 
0076: If PayType <> "" Then
0077: 
0078: 	sqlString = "SELECT * FROM mmTop10" & _
0079: 			" WHERE Season = " & yr & " " & _
0080: 			" ORDER BY Name, Top10Amt DESC" 
0081: 			
0082: End If			
0083: 
0084: '   Response.Write(sqlString)			
0085: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0086: 	totreg = 0
0087:    totentries = 0
0088:    totmade = 0
0089: 
0090: '   Response.Write("User=" & user & "+" & MyEMail)
0091: %>
0092: <html>
0093: 
0094: <head>
0095: <title>March Madness - Top 10% Standings</title>
0096: <link href="mm.css" rel="stylesheet" type="text/css">
0097: </head>
0098: 
0099: <body bgcolor="#ffffff">
0100: 
0101: <% 
0102: 
0103: 
0104: 
0105: 
0106: bgcolor = "#ffffff"
0107: 
0108: MIAEmails = ""
0109: 
0110: %>
0111: 
0112: <table cellspacing="1" border="0" cellpadding="3" width="900">
0113:   <tr>
0114:     <td width="670" colspan="5" class="norm">
0115: </td>
0116: 	<td class="normbold" colspan="2"><a href="displaymenu.asp?parent=15">Wrap Up Menu</a></td><TD CLASS="norm">Season:<big><b> <%= season %></td>
0117: 	<td class="norm" colspan="2"><big>
0118: 	<a href="top10.asp?PayType=PP">PP</a>&nbsp;&nbsp;|
0119: 	<a href="top10.asp?PayType=VM">VM</a>&nbsp;&nbsp;|
0120: 	<a href="top10.asp?PayType=ZE">ZE</a>&nbsp;&nbsp;|
0121: 	<a href="top10.asp?PayType=CK">CK</a>&nbsp;&nbsp;|
0122: 	<a href="top10.asp?ShowMIA=Y&Kind=CheckNo">MIA</a>	
0123: </td>
0124:   </tr>
0125: 
0126:   <tr bgcolor="#04B404">
0127:     <td class="normbold" width="5%" align="center" height="22"><a href="top10.asp">Contest</a></td>
0128:     <td class="normbold" width="3%" align="center">Rnk</td>
0129: 
0130: 
0131: 
0132: 
0133:     <td class="normbold" width="3%" align="center" height="19">Chk?</td>
0134:    <td class="normbold" width="2%" align="left" height="19">PY</td>
0135:     <td class="normbold" width="20%" align="center" height="19"><a href="top10.asp?Kind=BOTH">Full Name</a></td>
0136:   <td class="normbold" width="5%" align="left" height="19">Amount<br>Won</td>
0137: 
0138:     <td class="normbold" width="5%" align="left" height="19">Donated</td>
0139:     <td class="normbold" width="8%" align="left" height="19"><a href="top10.asp?Kind=CheckNo">Check#</a></td>
0140:     <td class="normbold" width="3%" align="left" height="19">PayPal<br>VenMo</td>
0141:     <td class="normbold" width="36%" align="left" height="19">VenMo ID</td>
0142: 
0143: <%
0144: LastReg = ""
0145: GrandTotal = 0
0146: TotalWinners = 0
0147: DonationTotal = 0
0148: UncleardCheckAmount = 0
0149: 		Do Until rs.EOF
0150: 
0151: If bgcolor = "#ffffff" Then
0152: bgcolor = "#D8D8D8"
0153: Else
0154: bgcolor = "#ffffff" 
0155: End If
0156: 		ID = rs("ID").value
0157: 		PicksID = rs("PicksID").value
0158: TotalAmount = rs("TotalAmt").Value 
0159: Top10Amt = rs("Top10Amt").Value
0160: If Top10Amt <> 0 Then TotalAmount = Top10Amt
0161: MyKind = rs("Contest").Value
0162: Rank = rs("Rank").Value
0163:    RegNumber = rs("RegNumber").Value
0164: CheckNo = rs("CheckNo").Value
0165:  DonatedAmount = Cint(rs("DonatedAmount").Value)
0166:  
0167: If IsNull(CheckNo) Then
0168: CheckNo = ""
0169: End If
0170:  
0171: If IsNumeric(CheckNo) and Right(CheckNo,1) <> "C" Then
0172: 'Response.Write("<br>CheckNo=" & CheckNo)
0173: UncleardCheckAmount = UncleardCheckAmount + TotalAmount
0174: End If
0175:  
0176: UnpaidFont = ""
0177: If (CheckNo = "" Or IsNull(CheckNo)) AND DonatedAmount = 0 Then
0178: 
0179: CheckNo = "___________"
0180: TotalUnpaid = TotalUnpaid + TotalAmount
0181: UnpaidCount = UnpaidCount + 1
0182: UnpaidFont = "<big><big>"
0183: End If
0184: 
0185: 
0186: 
0187: If Kind = "BOTH" Then
0188: 	If LastReg = "" Then
0189: 		LastReg = RegNumber
0190: 	End If
0191: 	If LastReg <> RegNumber Then %>
0192: <tr height="10"><td height="10">-</td></tr>
0193: <%		LastReg = RegNumber %>
0194: <% End If %>
0195: <% End If 
0196: 
0197: DateTime = ""
0198: 	If MyKind = "MC" Then
0199: 			Set rsPicks = Server.CreateObject("ADODB.Recordset")
0200: 			sqlString = "SELECT * FROM mmPicks " & _
0201: 							" WHERE ID = " & PicksID 
0202: 			rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0203: 	If Not RsPicks.Eof Then
0204: 	DateTime = Left(rsPicks("DateTime").Value,10)
0205: 	Else
0206: 	DateTime = ""
0207: 	End If
0208:  		   rsPicks.Close
0209: 			set rsPicks = Nothing
0210: End If
0211: 		 	Set rsEntries = Server.CreateObject("ADODB.Recordset")
0212: 			sqlString = "SELECT * FROM mmEntries " & _
0213: 							"WHERE RegNumber = '" & RegNumber & "' " & _
0214: 							"AND Season = " & season & " " 
0215: 			rsEntries.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0216: 			EntryID = rsEntries("ID").Value
0217:    		AmountDonatedToCOH = rsEntries("AmountDonatedToCOH").Value
0218: 			PayPalUsed = rsEntries("PayPalUsed").Value	
0219: 			VenMoUsed = rsEntries("VenMoUsed").Value		
0220: 		ZelleUsed = rsEntries("ZelleUsed").Value				
0221: 		CashUsed = rsEntries("CashUsed").Value	
0222: 			mval = rsEntries("NumEntries").Value
0223: 			paid = rsEntries("PaidEntries").Value
0224: 			val2 = rsEntries("Num2ndEntries").Value
0225: 			paid2 = rsEntries("Paid2ndEntries").Value	
0226: 			
0227: 			NoPaid = ""
0228: 			If mval <> paid Or val2 <> paid2 Then
0229: 			NoPaid = "Y"
0230: 			End If
0231: 		CheckUsed="Y"
0232: 		If PayPalUsed <> False Or CashUsed <> False Or VenMo <> False Or ZelleUsed <> False Then
0233: 		CheckUsed = ""
0234: 		End if
0235:   			rsEntries.Close
0236: 			set rsEntries = Nothing
0237: 
0238: '
0239: 
0240: '
0241: 					
0242: 		Set rsm = Server.CreateObject("ADODB.Recordset")
0243: 	sqlString = "SELECT * FROM MY4_Master " & _
0244: 							"WHERE RegNumber = '" & RegNumber & "' " 
0245: 	rsm.Open sqlString, conn2, adOpenDynamic, adLockOptimistic, adCmdText
0246: 	If rsm.EOF Then
0247: 	
0248: 	Else
0249:  			City = rsm("City").Value
0250:  			Address = rsm("Address").Value 			
0251:  			State = rsm("State").Value
0252:           Zip = rsm("Zip").Value
0253:  			FirstName = rsm("FirstName").Value
0254:  			LastName = rsm("LastName").Value
0255: 		AmountDonatedToCOH =rsm("AmountDonatedToCOH").Value
0256:            EmailAddress = rsm("EmailAddress").Value
0257: 		   MIAEmail = EmailAddress
0258: 		   
0259: 		   If ShowMIA = "Y" And CheckNo = "___________" Then
0260: 		   MIAEmails = MIAEmails & MIAEmail & ", "
0261: 		   End If
0262: 	   
0263: 
0264:            PayPalEmailAddress2 = rsm("PayPalEmailAddress").Value
0265: 		   VenMo = rsm("VenMo").Value
0266: 		   Zelle = rsm("Zelle").Value
0267:  			FullName = FirstName & " " & LastName
0268: 
0269: 		rsm.Close
0270: 		Set rsm = Nothing	
0271:      End If
0272: 
0273: NotPaidMsg = ""
0274: 			If NotPaid <> "" And user = "jt@folga.org" Then
0275: 			NotPaidMsg = " (Not Paid)"
0276: 			End If
0277: 			totreg = totreg + 1
0278: If AmountDonatedToCOH > 0 Then	
0279: PayOutAmount = TotalAmount - AmountDonatedToCOH
0280: Else
0281: PayOutAmount = TotalAmount
0282: End If
0283: 
0284: 
0285: '-------------------------------------------------------------------------
0286: 
0287: 
0288: 			Set rsPYPicks = Server.CreateObject("ADODB.Recordset")
0289: 	sqlString = "SELECT COUNT(ID) as RegCount FROM mmEntries " & _
0290: 							"WHERE FirstName = '" & FirstName & "' " & _
0291:                              "AND Name = '" & LastName & "' " & _
0292: 							"AND Season < " & season & " "
0293: 	rsPYPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0294: 	
0295: 		PYCount = rsPYPicks("RegCount").Value
0296: 		
0297: 		PYCount = CInt(PYCount)
0298: 		
0299: 		If PYCount = 0 Then
0300: 		 FirstTwo = Left(FirstName,2)
0301: 		 
0302: 
0303: 			Set rsPYPicks = Server.CreateObject("ADODB.Recordset")
0304: 			
0305: 		 	sqlString = "SELECT COUNT(ID) as RegCount FROM mmEntries " & _
0306: 			                "WHERE Season < " & season & " " & _
0307: 							"AND FirstName LIKE '%" &  FirstTwo & "%' " & _
0308:                              "AND Name = '" & Name & "' " 
0309: 
0310: ' Response.Write(SqlString & "<BR>")
0311: 
0312: 	rsPYPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0313: 	
0314: 		PYCount = rsPYPicks("RegCount").Value
0315: 		
0316: 		End If
0317: 		
0318:     rsPYPicks.Close
0319: 	
0320: 		PYCount = CInt(PYCount)
0321: '-------------------------------------------------------------------------
0322: 
0323: 
0324:  top5amt = rs("Top5Amt").Value 
0325:  DonatedAmount = rs("DonatedAmount").Value
0326:  Donated = DonatedAmount
0327:  If DonatedAmount = 0 Then DonatedAmount = ""
0328: 
0329:  If MyKind = "MC" Then
0330: 
0331:  TotalAmount = rsp("MTop10").Value
0332: 
0333:  
0334:  	Select Case Rank
0335: 			Case 1
0336: 				TotalAmount = rsp("M1").Value
0337: 			Case 2
0338: 				TotalAmount = rsp("M2").Value
0339: 			Case 3
0340: 				TotalAmount = rsp("M3").Value
0341: 			Case 4
0342: 				TotalAmount = rsp("M4").Value
0343: 			Case 5
0344: 				TotalAmount = rsp("M5").Value
0345: 		End Select
0346: 
0347: ElseIf MyKind = "S16" Then
0348: 
0349:  TotalAmount = rsp("STop10").Value
0350:  
0351:  	Select Case Rank
0352: 			Case 1
0353: 				TotalAmount = rsp("S1").Value
0354: 			Case 2
0355: 				TotalAmount = rsp("S2").Value
0356: 			Case 3
0357: 				TotalAmount = rsp("S3").Value
0358: 			Case 4
0359: 				TotalAmount = rsp("S4").Value
0360: 			Case 5
0361: 				TotalAmount = rsp("S5").Value
0362: 		End Select
0363: 
0364: ElseIf MyKind = "BL" Then
0365: 
0366:  	Select Case Rank
0367: 			Case 1
0368: 				TotalAmount = rsp("B1").Value
0369: 			Case 2
0370: 				TotalAmount = rsp("B2").Value
0371: 			Case 3
0372: 				TotalAmount = rsp("B3").Value
0373: 			Case 4
0374: 				TotalAmount = rsp("B4").Value
0375: 			Case 5
0376: 				TotalAmount = rsp("B5").Value
0377: 		End Select
0378: 
0379: Else
0380: 
0381:  	Select Case Rank
0382: 			Case 1
0383: 				TotalAmount = rsp("P1").Value
0384: 			Case 2
0385: 				TotalAmount = rsp("P2").Value
0386: 			Case 3
0387: 				TotalAmount = rsp("P3").Value
0388: 		End Select
0389: 
0390: 	End If
0391: 
0392: 	If Top10Amt <> 0 Then
0393: 	TotalAmount = Top10Amt
0394: 	End If
0395: 
0396: 	If TotalAmount = DonatedAmount Then
0397: 	CheckNo = "Donated"
0398: '	TotalUnpaid = TotalUnpaid + TotalAmount
0399: 	End If
0400: 
0401: CityStZip = City & ", " & State & "  " & Zip
0402: 
0403: 'If Address = "" or Address = "N/A" or IsNull(Address) then
0404: 'Address = "<b>" & EmailAddress & "</b>"
0405: 'End If
0406: '
0407: 'If CheckNo <> "___________" Then
0408: 'Address = EmailAddress
0409: 'End If
0410: '
0411: 'If NoPaid <> "" Then
0412: 'FullName = "<b><i>" & FullName & "</b></i>"
0413: 'End If
0414: PPEM = ""
0415: 'If PayPalEmailAddress <> "" Then
0416: 'PPEM = "P"
0417: 'End If
0418: 'If VenMo <> "" Then
0419: 'PPEM = PPEM & " V"
0420: 'End If
0421: 'PPEM = Trim(PPEM)
0422: '
0423: 'If VenMo = "" Then
0424: 'VenMo = PayPalEmailAddress
0425: 'End If
0426: 
0427: PayPalEmailAddress = ""
0428: 
0429: HaveVM = "N"
0430: HaveZE = "N"
0431: HavePP = "N"
0432: HaveCK = "N"
0433: 
0434: 
0435: If VenMo <> "" Then
0436: HaveVM = "Y"
0437: PayPalEmailAddress = "VM: " & VenMo & "<br>"
0438: End If
0439: If Zelle <> "" Then
0440: HaveZE = "Y"
0441: PayPalEmailAddress = PayPalEmailAddress & "ZE: " & Zelle & "<br>"
0442: End If
0443: If PayPalEmailAddress2 <> "" Then
0444: HavePP = "Y"
0445: PayPalEmailAddress = PayPalEmailAddress & "PP: " & PayPalEmailAddress2
0446: End If
0447: If PayPalEmailAddress = "" Then
0448: HaveCK = "Y"
0449: End If
0450: 
0451: 
0452: OKToShow = "N"
0453: 
0454: If PayType <> "" Then
0455: 	If PayType = "PP" and HavePP = "Y" Then
0456: 		OKToShow = "Y"
0457: 		PayPalEmailAddress = "PP: " & PayPalEmailAddress2
0458: 	ElseIf PayType = "VM" and HaveVM = "Y" Then
0459: 		OKToShow = "Y"
0460: 		PayPalEmailAddress = "VM: " & VenMo
0461: 	ElseIf PayType = "ZE" and HaveZE = "Y" Then
0462: 		OKToShow = "Y"
0463: 		PayPalEmailAddress = "ZE: " & Zelle
0464: 	ElseIf PayType = "CK" and HaveCK = "Y" Then	
0465: 		OKToShow = "Y"	
0466: 	End If
0467: Else
0468: OKToShow = "Y"
0469: End If
0470: 
0471: If PayType = "CK" or PayType = "" Then
0472: 
0473: DisplayAddress = City & ", " & State
0474: 
0475: DisplayAddress = "<small><b>" & Address & "<br></b>" & DisplayAddress & "  " & Zip & "<br><big><big>" &   PayPalEmailAddress & "</small>"
0476: 
0477: Else
0478: 
0479: DisplayAddress = "<big>" & PayPalEmailAddress & "<br> " 
0480: 
0481: End If
0482: 
0483: If OKtoShow = "Y" Then
0484: 
0485: TotalWinners = TotalWinners + 1
0486: 
0487: 
0488:  %>
0489:   <tr bgcolor="<%= bgcolor %>" height="23">
0490: 
0491: 	    <td class="normbold" align="left" ><small><%= TotalWinners %>&nbsp;</small><%= MyKind  %></td>
0492: 
0493:     <td class="normbold" align="center" ><big><b><%= Rank %></td>
0494: 
0495:     <td class="normbold" align="left" ><%= CheckUsed %></td>
0496:     <td class="normbold" align="right" ><%= PyCount %></td>
0497:     <td class="norm" align="left" ><a href="editmmEntries.asp?id=<%= EntryID %>&DB=<%= Deadbeat %>"><big><%= FullName %></a> <%= NotPaidMsg %></td>
0498:     <td class="normbold" align="right" ><a href="Top10Edit.asp?ID=<%= ID  %>"><%= UnpaidFont %><%=  TotalAmount %></a></td>
0499: 
0500:     <td class="normbold" align="right" ><%= DonatedAmount %></td>
0501:     <td class="normbold" align="left" ><%= CheckNo %></td>
0502:     <td class="normbold" align="left" ><a href="MMWinnerLabel.asp?ID=<%= ID %>" target="_blank">Label</a></td>
0503:     <td class="normbold" align="left" ><%= DisplayAddress %></td>
0504:   </tr>
0505: <%	  
0506: 
0507: GrandTotal = GrandTotal + TotalAmount
0508: DonationTotal = DonationTotal + Donated
0509: 
0510: End If ' OKToShow
0511: 
0512:       rs.MoveNext
0513: 		Loop
0514: 		If bgcolor = "#e8e8e8" Then
0515: 				bgcolor = "#ffffff"
0516: 			Else
0517: 				bgcolor = "#e8e8e8"
0518: 			End If
0519: 
0520: 		rs.Close
0521: 		Set rs = Nothing	%>
0522: 
0523: <tr> </td><td class="normbold" align="right" ><%=  TotalWinners %></td><td> </td><td> </td><td> </td>
0524:     <td class="normbold" align="right" ><%=  GrandTotal %></td>
0525:     <td class="normbold" align="right" ><%=  DonationTotal %></td>
0526:     <td class="normbold" colspan="6">Unpaid: <%= TotalUnpaid %>  Count: <%= UnpaidCount %>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Not Cleared Check Amount:&nbsp;<big><b><font color="red"><%= UncleardCheckAmount %></td></tr>
0527: 	
0528: <% If ShowMIA = "Y" Then %>
0529: <tr>
0530: <td colspan="20" class="norm"><br><br><big><%= MIAEmails %></td></TR>
0531: <% End If %>	
0532: </table>
0533: </body>
0534: </html>