Count Lines in Pages
Contents of Page: MMPostPayment.asp
Number of Lines: 93
Last Modified: 2/12/2026 6:40:26 PM
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: 	ID = Request.QueryString("ID")
0007:   	PaidType = Request.Form("Type")  
0008:   	PaidFor = Request.Form("Amount")  
0009:   	PaidForS16 = Request.Form("AmountS16")
0010: 	SendEmailFlag = Trim(Request.Form("SendEmail"))
0011:   		
0012: 
0013: 		Set rs = Server.CreateObject("ADODB.Recordset")
0014: 		sqlString = "SELECT * FROM mmEntries WHERE ID = " & ID
0015: 		rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0016: 		If rs.EOF Then
0017: 			rs.Close
0018: 			Response.Redirect("whoisdeadbeat.asp")
0019: 		End If
0020: 	EmailAddress = rs("EmailAddress").Value
0021: 			val2 = rs("Num2ndEntries").Value
0022:   NewPaidS16Entries = val2 + PaidForS16
0023:   rs("Paid2ndEntries").Value = NewPaidS16Entries
0024: 
0025: 	Entries = rs("numEntries").Value
0026: 	PaidEntries = rs("PaidEntries").Value 
0027: 	NewPaidEntries = PaidEntries + PaidFor
0028:     rs("PaidEntries").Value = NewPaidEntries
0029: 
0030: 	If PaidType = "VenMo" Then
0031: 		rs("VenMoUsed").Value = True
0032: 	Else
0033: 		rs("VenMoUsed").Value = False
0034: 	End If	
0035: 
0036: 	If PaidType = "PayPal" Then
0037: 		rs("PayPalUsed").Value = True
0038: 	Else
0039: 		rs("PayPalUsed").Value = False
0040: 	End If	
0041: 
0042: 	If PaidType = "Cash" Then
0043: 		rs("CashUsed").Value = True
0044: 	Else
0045: 		rs("CashUsed").Value = False
0046: 	End If
0047: 
0048: 	If PaidType = "Zelle" Then
0049: 		rs("ZelleUsed").Value = True
0050: 	Else
0051: 		rs("ZelleUsed").Value = False
0052: 	End If	
0053: 	rs("PaymentPostDate").Value = Now()
0054: 	rs.Update
0055: 	rs.Close
0056: 	Set rs = Nothing
0057: 	
0058: If SendEmailFlag = "Yes" Then
0059: 
0060:      EMailFrom = "joeatoledo@gmail.com" 
0061:      EMailTo = EmailAddress
0062:      EMailSubject = "March Madness Contest - Donation received - Thank You!"
0063:      EMailBody = "Your donation entitles you to make " & Entries & " pick(s) in the contest.<BR><BR>"
0064: 
0065:      If NewPaidEntries > 1 Then
0066:        S16picks = NewPaidEntries - 1
0067:        EmailBody = EmailBody & "You are also eligible to make " & S16Picks & " pick(s) in the Sweet 16 Contest.<br><br>"
0068:     End If
0069:      EMailBody = EmailBody & "Thank you for participating and choosing to make a difference!<BR><br>P.S.: You can take this opportunity to forward this email and invite your family and frends to visit:<br><br>http://www.folga.org/mm or http://www.folga.org/mm/mobile <br><br>It is a simple and effective way to help promote this fundraiser."
0070:    
0071:    sendEmail EMailTo, "", "", EmailSubject, EMailBody, "HTML", ""
0072: 
0073: End If
0074: 
0075: %>
0076: 
0077: <!-- #include FILE="include/ReturnPageUse.inc" -->
0078: 
0079: <%
0080: 
0081: 
0082:  	Response.Redirect("whoisdeadbeat.asp")	
0083: 	
0084: %>
0085: <html>
0086: 
0087: <head>
0088: <title></title>
0089: </head>
0090: 
0091: <body>
0092: </body>
0093: </html>