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: 	DelFlag = Request.QueryString("Delete")
0008: 
0009: 	    
0010:     Set rs = Server.CreateObject("ADODB.Recordset")
0011:     
0012: 	If DelFlag = "Y" Then
0013: 	
0014: 			sqlString = "DELETE FROM mmEntries WHERE ID = " & ID
0015: 
0016: 			rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0017: 
0018:             Response.Redirect("roster.asp")
0019:      End If
0020: 	
0021: 	MemberNo = Trim(Request.Form("MemberNo"))
0022: 	firstName = Trim(Request.Form("FirstName"))
0023: 	lastName = Trim(Request.Form("Name"))
0024: 	address = Trim(Request.Form("Address"))
0025: 	city = Trim(Request.Form("City"))
0026: 	statename = Trim(Request.Form("State"))
0027: 	zip = Trim(Request.Form("Zip"))
0028: 	EMailAddress = Request.Form("EmailAddress")
0029: 	TextEMailAddress = Request.Form("TextEmailAddress")
0030: 	Password = Request.Form("Password")
0031:     NewStartPage = Request.Form("NewStartPage")
0032:     Entries = Request.Form("Entries")
0033:     PaidEntries = Request.Form("PaidEntries")	
0034: 	PayPalEMailAddress = Request.Form("PayPalEmailAddress")
0035: 	AmountDonatedToCOH = Request.Form("AmountDonatedToCOH")
0036: 	VenMo = Request.Form("VenMo")
0037: 	Zelle = Request.Form("Zelle")
0038: 	If AmountDonatedToCOH = "" Then
0039: 		AmountDonatedToCOH = 0
0040: 	End If
0041: '    Entries = CInt(FEntries)
0042:     SSEntries = Trim(Request.Form("SSEntries"))
0043:     GroupName = Trim(Request.Form("Group"))
0044:     GroupName2 = Trim(Request.Form("Group2"))
0045:     If GroupName2 = "" Then
0046:        GroupName2 = "DEFAULT"
0047:     End If
0048:     GroupName3 = Trim(Request.Form("Group3"))
0049:     If GroupName3 = "" Then
0050:        GroupName3 = "DEFAULT"
0051:     End If    
0052: ' 	If Entries = "" Then
0053: ' 	   Entries = 0
0054: ' 	End If
0055: 	If SSEntries = "" Then
0056:       SSEntries = 0
0057: 	End If	 
0058: 	Response.Write("Entries=" & Entries & " / " & "SSEntries=" & SSEntries)
0059: 	sqlString = "SELECT * FROM mmEntries WHERE ID = " & ID
0060: 
0061: If Entries < PaidEntries Then
0062: Response.Redirect("MMDisplayError_M.asp?Type=NUMENTRIESLESSTHANPAID")
0063: End If
0064: 	
0065: 		rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0066: 		If rs.EOF Then
0067: 			rs.Close
0068: 			Response.Redirect("editprofile.asp?ID=" & ID)
0069: 		End If
0070: 		
0071: 				
0072: 		OldFirstName = rs("FirstName").Value 
0073: 		OldlastName = rs("Name").Value
0074: 		Oldaddress = rs("Address").Value 
0075: 		Oldcity = rs("City").Value
0076: 		Oldstatename = rs("State").Value 
0077: 		Oldzip = rs("Zip").Value 
0078: 		OldEntries = Trim(rs("numEntries").Value)
0079:         OldSSEntries = Trim(rs("num2ndEntries").Value)
0080:         RegNumber = rs("RegNumber").Value
0081: 	
0082: 		rs("FirstName").Value = firstName
0083: 		rs("Name").Value = lastName
0084: 		rs("Address").Value = address
0085: 		rs("City").Value = city
0086: 		rs("State").Value = statename
0087: 		rs("Zip").Value = zip
0088: 		rs("Password").Value = Password	
0089:     	rs("EmailAddress").Value = EmailAddress
0090:     	rs("TextEmailAddress").Value = TextEmailAddress
0091: 		If NewStartPage <> "-Select To Change-" Then
0092: 		rs("StartPage").Value = NewStartPage
0093: 		End If
0094: 		rs("numEntries").Value = Entries
0095: 		rs("num2ndEntries").Value = SSEntries
0096: '		rs("GroupName").Value = GroupName	
0097: '		rs("GroupName2").Value = GroupName2		
0098: '		rs("GroupName3").Value = GroupName3	
0099: 		rs("VenMo").Value = VenMo
0100: 		rs.Update
0101: 
0102: 		rs.Close
0103: 		Set rs = Nothing
0104: 		
0105: 		Set rsm = Server.CreateObject("ADODB.Recordset")
0106: 	sqlString = "SELECT * FROM MY4_Master " & _
0107: 							"WHERE RegNumber = '" & RegNumber & "' " 
0108: 	rsm.Open sqlString, conn2, adOpenDynamic, adLockOptimistic, adCmdText
0109: 	If rsm.EOF Then
0110: 	
0111: 	Else
0112: 		rsm("FirstName").Value = firstName
0113: 		rsm("LastName").Value = lastName
0114: 		rsm("Address").Value = address
0115: 		rsm("City").Value = city
0116: 		rsm("State").Value = statename
0117: 		rsm("Zip").Value = zip
0118: 		rsm("AmountDonatedToCOH").Value = AmountDonatedToCOH
0119: 		rsm("PayPalEmailAddress").Value = PayPalEmailAddress
0120: 		rsm("VenMo").Value = VenMo		
0121: 		rsm("Zelle").Value = Zelle	
0122: 		rsm.Update
0123: 
0124: 		rsm.Close
0125: 		Set rsm = Nothing	
0126:      End If
0127: 
0128: 	 Msg = "Entry# " & ID & "<br>"
0129: 	 Msg = Msg & firstName & " " & lastName & "<br>"
0130: 	 Msg = Msg & EmailAddress & "<br><br>"
0131: 		
0132: 		Changed = ""
0133: 		If OldFirstName <> FirstName Then
0134: 		Msg = Msg & "Old First Name = " & OldFirstName & "<br>"
0135: 		Msg = Msg & "New First Name = " & FirstName & "<br>"		
0136: 		Changed = "YES"
0137: 		End If
0138: 		If OldlastName <> lastName Then
0139: 		Msg = Msg & "Old Last Name = " & OldlastName & "<br>"
0140: 		Msg = Msg & "New Last Name = " & LastName & "<br>"		
0141: 		Changed = "YES"
0142: 		End If		
0143: 		If Oldaddress <> address Then
0144: 		Msg = Msg & "Old address = " & Oldaddress & "<br>"
0145: 		Msg = Msg & "New address = " & address & "<br>"		
0146: 		Changed = "YES"
0147: 		End If		
0148: 		If OldCity <> City Then
0149: 		Msg = Msg & "Old City = " & OldCity & "<br>"
0150: 		Msg = Msg & "New City = " & City & "<br>"		
0151: 		Changed = "YES"
0152: 		End If		
0153: 		If Oldstatename <> statename Then
0154: 		Msg = Msg & "Old State = " & Oldstatename & "<br>"
0155: 		Msg = Msg & "New State = " & statename & "<br>"		
0156: 		Changed = "YES"
0157: 		End If			
0158: 		If OldZip <> Zip Then
0159: 		Msg = Msg & "Old Zip = " & OldZip & "<br>"
0160: 		Msg = Msg & "New Zip = " & Zip & "<br>"		
0161: 		Changed = "YES"
0162: 		End If		
0163: 
0164: 		If OldEntries <> Entries Then
0165: 		Msg = Msg & "Old Entries = " & OldEntries & "<br>"
0166: 		Msg = Msg & "New Entries = " & Entries & "<br>"		
0167: 		Changed = "YES"
0168: 		End If			
0169: 		If OldSSEntries <> SSEntries Then
0170: 		Msg = Msg & "Old SSEntries = " & OldSSEntries & "<br>"
0171: 		Msg = Msg & "New SSEntries = " & SSEntries & "<br>"		
0172: 		Changed = "YES"
0173: 		End If
0174: 		
0175:         If Changed = "YES" Then
0176: 
0177:        
0178:            EmailSubject = "March Madness - Profile Update"
0179:         
0180:            sendEmail notifyemail, "", "", EmailSubject, msg, "HTML", emailaddress
0181: 
0182: '           sendEmail notifyemail, "", "", EmailSubject, msg, "HTML", ""
0183:      
0184:         End If       	        
0185: %>
0186: <!-- #include FILE="include/ReturnPageUse.inc" -->
0187: <%
0188: '	 Response.Redirect("profileupdatedmessage.asp")
0189: 
0190: %>
0191: <html>
0192: 
0193: <head>
0194: <title></title>
0195: </head>
0196: 
0197: <body>
0198: </body>
0199: </html>