Count Lines in Pages
Contents of Page: top10VenMo.asp
Number of Lines: 344
Last Modified: 2/13/2021 4:53:24 PM
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: Else
0059: 
0060: 	sqlString = "SELECT * FROM mmTop10" & _
0061: 			" WHERE Season = " & yr & " " & _
0062: 			" AND Contest <> 'PP' " & _
0063: 			" ORDER BY Contest, Rank" 
0064: 
0065: End If 
0066: '   Response.Write(sqlString)			
0067: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0068: 	totreg = 0
0069:    totentries = 0
0070:    totmade = 0
0071: 
0072: '   Response.Write("User=" & user & "+" & MyEMail)
0073: %>
0074: <html>
0075: 
0076: <head>
0077: <title>March Madness - Top 10% Standings</title>
0078: <link href="mm.css" rel="stylesheet" type="text/css">
0079: <meta name="viewport" content="width=device-width">
0080: </head>
0081: 
0082: <body bgcolor="#ffffff">
0083: 
0084: <% 
0085: 
0086: 
0087: 
0088: 
0089: 
0090: 
0091: %>
0092: 
0093: <table cellspacing="1" border="0" cellpadding="3" width="370" align="center">
0094: <tr height="30"><td valign="top" class="norm" colspan="5" align="right"><a href="top10VenMo.asp"><big>Refresh</a></td><tr>
0095:   <tr bgcolor="#577fbe">
0096:     <td width="10%" class="normbold" align="center" height="22"><a href="top10VenMo.asp">Type</a></td>
0097:     <td width="35%" class="normbold" align="center" height="19"><a href="top10VenMo.asp?Kind=BOTH">Full Name</a></td>
0098:     <td width="10%" class="normbold" align="left" height="19">$ Won</td>
0099: 
0100:     <td width="30%" class="normbold" align="left" height="19">VenMo ID</td>
0101:     <td width="15%" class="normbold" align="left" height="19">Check#</td>
0102: 
0103: 
0104: <%
0105: LastReg = ""
0106: GrandTotal = 0
0107: TotalWinners = 0
0108: DonationTotal = 0
0109: 		Do Until rs.EOF
0110: 		ID = rs("ID").value
0111: 		PicksID = rs("PicksID").value
0112: TotalAmount = rs("TotalAmt").Value 
0113: Top10Amt = rs("Top10Amt").Value
0114: MyKind = rs("Contest").Value
0115: Rank = rs("Rank").Value
0116:    RegNumber = rs("RegNumber").Value
0117: CheckNo = rs("CheckNo").Value
0118: 
0119: If CheckNo = "" Or IsNull(CheckNo) Then
0120: CheckNo = "___________"
0121: End If
0122: TotalWinners = TotalWinners + 1
0123: 
0124: If Kind = "BOTH" Then
0125: 	If LastReg = "" Then
0126: 		LastReg = RegNumber
0127: 	End If
0128: 	If LastReg <> RegNumber Then %>
0129: <tr height="10"><td height="10">-</td></tr>
0130: <%		LastReg = RegNumber %>
0131: <% End If %>
0132: <% End If 
0133: 
0134: DateTime = ""
0135: 	If MyKind = "MC" Then
0136: 			Set rsPicks = Server.CreateObject("ADODB.Recordset")
0137: 			sqlString = "SELECT * FROM mmPicks " & _
0138: 							" WHERE ID = " & PicksID 
0139: 			rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0140: 	If Not RsPicks.Eof Then
0141: 	DateTime = Left(rsPicks("DateTime").Value,10)
0142: 	Else
0143: 	DateTime = ""
0144: 	End If
0145:  		   rsPicks.Close
0146: 			set rsPicks = Nothing
0147: End If
0148: 		 	Set rsEntries = Server.CreateObject("ADODB.Recordset")
0149: 			sqlString = "SELECT * FROM mmEntries " & _
0150: 							"WHERE RegNumber = '" & RegNumber & "' " & _
0151: 							"AND Season = " & season & " " 
0152: 			rsEntries.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0153: 			EntryID = rsEntries("ID").Value
0154:    		AmountDonatedToCOH = rsEntries("AmountDonatedToCOH").Value
0155: 			PayPalUsed = rsEntries("PayPalUsed").Value		
0156: 		CashUsed = rsEntries("CashUsed").Value	
0157: 			mval = rsEntries("NumEntries").Value
0158: 			paid = rsEntries("PaidEntries").Value
0159: 			val2 = rsEntries("Num2ndEntries").Value
0160: 			paid2 = rsEntries("Paid2ndEntries").Value	
0161: 			
0162: 			NoPaid = ""
0163: 			If mval <> paid Or val2 <> paid2 Then
0164: 			NoPaid = "Y"
0165: 			End If
0166: 		CheckUsed="Y"
0167: 		If PayPalUsed = True Or CashUsed = True Then
0168: 		CheckUsed = ""
0169: 		End if
0170:   			rsEntries.Close
0171: 			set rsEntries = Nothing
0172: 
0173: 					
0174: 		Set rsm = Server.CreateObject("ADODB.Recordset")
0175: 	sqlString = "SELECT * FROM MY4_Master " & _
0176: 							"WHERE RegNumber = '" & RegNumber & "' " 
0177: 	rsm.Open sqlString, conn2, adOpenDynamic, adLockOptimistic, adCmdText
0178: 	If rsm.EOF Then
0179: 	
0180: 	Else
0181:  			City = rsm("City").Value
0182:  			Address = rsm("Address").Value 			
0183:  			State = rsm("State").Value
0184:           Zip = rsm("Zip").Value
0185:  			FirstName = rsm("FirstName").Value
0186:  			LastName = rsm("LastName").Value
0187: '		AmountDonatedToCOH =rsm("AmountDonatedToCOH").Value
0188:            EmailAddress = rsm("EmailAddress").Value
0189:            VenMo = rsm("VenMo").Value
0190: 
0191: 		   If Left(VenMo,1) = "@" Then Venmo = Mid(VenMo,2,99)
0192:  			FullName = FirstName & " " & LastName
0193: 
0194: 		rsm.Close
0195: 		Set rsm = Nothing	
0196:      End If
0197: 		
0198: 			If bgcolor = "#e8e8e8" Then
0199: 				bgcolor = "#ffffff"
0200: 			Else
0201: 				bgcolor = "#e8e8e8"
0202: 			End If
0203: 			If NotPaid <> "" And user = "jt@folga.org" Then
0204: 			bgcolor = "red"
0205: 			End If
0206: 			totreg = totreg + 1
0207: 'If AmountDonatedToCOH > 0 Then	
0208: 'PayOutAmount = TotalAmount - AmountDonatedToCOH
0209: 'Else
0210: PayOutAmount = TotalAmount
0211: 'End If
0212: 
0213: 
0214:  top5amt = rs("Top5Amt").Value 
0215:  DonatedAmount = rs("DonatedAmount").Value
0216:  Donated = DonatedAmount
0217:  If DonatedAmount = 0 Then DonatedAmount = ""
0218: 
0219:  If MyKind = "MC" Then
0220: 
0221:  TotalAmount = rsp("MTop10").Value
0222: 
0223:  
0224:  	Select Case Rank
0225: 			Case 1
0226: 				TotalAmount = rsp("M1").Value
0227: 			Case 2
0228: 				TotalAmount = rsp("M2").Value
0229: 			Case 3
0230: 				TotalAmount = rsp("M3").Value
0231: 			Case 4
0232: 				TotalAmount = rsp("M4").Value
0233: 			Case 5
0234: 				TotalAmount = rsp("M5").Value
0235: 		End Select
0236: 
0237: ElseIf MyKind = "S16" Then
0238: 
0239:  TotalAmount = rsp("STop10").Value
0240:  
0241:  	Select Case Rank
0242: 			Case 1
0243: 				TotalAmount = rsp("S1").Value
0244: 			Case 2
0245: 				TotalAmount = rsp("S2").Value
0246: 			Case 3
0247: 				TotalAmount = rsp("S3").Value
0248: 			Case 4
0249: 				TotalAmount = rsp("S4").Value
0250: 			Case 5
0251: 				TotalAmount = rsp("S5").Value
0252: 		End Select
0253: 
0254: ElseIf MyKind = "BL" Then
0255: 
0256:  	Select Case Rank
0257: 			Case 1
0258: 				TotalAmount = rsp("B1").Value
0259: 			Case 2
0260: 				TotalAmount = rsp("B2").Value
0261: 			Case 3
0262: 				TotalAmount = rsp("B3").Value
0263: 			Case 4
0264: 				TotalAmount = rsp("B4").Value
0265: 			Case 5
0266: 				TotalAmount = rsp("B5").Value
0267: 		End Select
0268: 
0269: Else
0270: 
0271:  	Select Case Rank
0272: 			Case 1
0273: 				TotalAmount = rsp("P1").Value
0274: 			Case 2
0275: 				TotalAmount = rsp("P2").Value
0276: 			Case 3
0277: 				TotalAmount = rsp("P3").Value
0278: 		End Select
0279: 
0280: 	End If
0281: 
0282: 	If Top10Amt <> 0 Then
0283: 	TotalAmount = Top10Amt
0284: 	End If
0285: 
0286: 	If TotalAmount = DonatedAmount Then
0287: 	CheckNo = "Donated"
0288: 	End If
0289: 
0290: CityStZip = City & ", " & State & "  " & Zip
0291: 
0292: If Address = "" or Address = "N/A" or IsNull(Address) then
0293: Address = "<b>" & EmailAddress & "</b>"
0294: End If
0295: 
0296: If CheckNo <> "___________" Then
0297: Address = EmailAddress
0298: End If
0299: 
0300: If NoPaid <> "" Then
0301: FullName = "<b><i>" & FullName & "</b></i>"
0302: End If
0303: 
0304: If PayPalEmailAddress <> "" Then
0305: PPEM = "Y"
0306: Else
0307: PPEM = ""
0308: End If
0309: 
0310: If VenMo <> "" Then
0311: 
0312:  %>
0313:   </tr>
0314: 
0315: 	    <td class="norm" align="left" ><a href="editmmEntries.asp?id=<%= EntryID %>&DB=<%= Deadbeat %>"><%= MyKind  %></a></td>
0316:     <td class="norm" align="left" ><big><%= FullName %></td>
0317: 
0318:     <td class="norm" align="right" ><a href="Top10Edit.asp?ID=<%= ID  %>"><%=  TotalAmount %></a></td>
0319:     <td class="norm" align="right" ><a target="_blank" href="https://venmo.com/<% = VenMo %>?txn=pay&note=MarchMadness%20Winnings&amount=<%= TotalAmount %>"><%=  VenMo %></a></td>	
0320:     <td class="norm" align="left" ><%= CheckNo %></td>
0321: 
0322:   </tr>
0323: <%	  
0324: 
0325: GrandTotal = GrandTotal + TotalAmount
0326: DonationTotal = DonationTotal + Donated
0327: 
0328: End If  ' If VenMo
0329: 
0330:       rs.MoveNext
0331: 		Loop
0332: 		If bgcolor = "#e8e8e8" Then
0333: 				bgcolor = "#ffffff"
0334: 			Else
0335: 				bgcolor = "#e8e8e8"
0336: 			End If
0337: 
0338: 		rs.Close
0339: 		Set rs = Nothing	%>
0340: 
0341: 
0342: </table>
0343: </body>
0344: </html>