Count Lines in Pages

Contents of Page: Top10EditPost.asp Number of Lines: 78 Last Modified: 2/26/2023 4:46:05 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:   	Top10Amt = Request.Form("Top10Amt")  
0008:   	DonatedAmount = Request.Form("DonatedAmount")  
0009:   	PayPalEmailAddress = Request.Form("PayPalEmailAddress")  
0010:   	CheckNo = Request.Form("CheckNo")
0011:   	VenMo = Request.Form("VenMo")
0012:   	Zelle = Request.Form("Zelle")
0013: 	RType = Request.Form("PaidMethod")
0014: 	If RType = "VenMo" Then
0015: 	CheckNo = "VenMo"
0016: 	ElseIf RType = "PayPal" Then
0017: 	CheckNo = "PayPal"
0018: 	ElseIf RType = "Zelle" Then
0019: 	CheckNo = "Zelle"
0020: 	ElseIf RType = "FOLGA" Then
0021: 	CheckNo = "FOLGA"
0022: 	End IF
0023: 
0024: 		Set rs = Server.CreateObject("ADODB.Recordset")
0025: 		sqlString = "SELECT * FROM mmTop10 WHERE ID = " & ID
0026: 		rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0027: '		If rs.EOF Then
0028: '			rs.Close
0029: '			Response.Redirect("Top1x0.asp")
0030: '		End If
0031: 
0032: RegNumber = rs("RegNumber").Value
0033: 
0034: 	rs("Top10Amt").Value = Top10Amt
0035: 	rs("CheckNo").Value = CheckNo
0036: 	rs("DonatedAmount").Value = DonatedAmount
0037: 	rs.Update
0038: 	rs.Close
0039: 	Set rs = Nothing
0040: 	
0041: If PayPalEmailAddress <> "" Then
0042: 		
0043: 		Set rsm = Server.CreateObject("ADODB.Recordset")
0044: 	sqlString = "SELECT * FROM MY4_Master " & _
0045: 							"WHERE RegNumber = '" & RegNumber & "' " 
0046: 	rsm.Open sqlString, conn2, adOpenDynamic, adLockOptimistic, adCmdText
0047: 	If rsm.EOF Then
0048: 	
0049: 	Else
0050: 		rsm("PayPalEmailAddress").Value = PayPalEmailAddress
0051: 		rsm("VenMo").Value =  VenMo
0052: 		rsm("Zelle").Value =  Zelle
0053: 		rsm.Update
0054: 		rsm.Close
0055: 		Set rsm = Nothing	
0056:      End If
0057: 
0058: End If
0059: 
0060: %>
0061: 
0062: <!-- #include FILE="include/ReturnPageUse.inc" -->
0063: 
0064: <%
0065: 
0066: 
0067:  	Response.Redirect("top10.asp")	
0068: 	
0069: %>
0070: <html>
0071: 
0072: <head>
0073: <title></title>
0074: </head>
0075: 
0076: <body>
0077: </body>
0078: </html>