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