Count Lines in Pages
Contents of Page: SponsorUpdate.asp
Number of Lines: 61
Last Modified: 8/22/2018 1:33:19 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: 	
0007: ReturnPage = Session("ReturnPage")
0008: 
0009: 'If ReturnPage = "" Then
0010: ReturnPage = "SponsorList.asp"
0011: ' End If
0012: 	SponsorID = Trim(Request.QueryString("SponsorID"))
0013: 	If SponsorID = "" Then
0014: 	   SponsorID = 0
0015: 	End If
0016: 
0017: 	Set rs = Server.CreateObject("ADODB.Recordset")
0018: 	sqlString = "SELECT * FROM mmSponsors WHERE ID = " & SponsorID 
0019: 	rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0020: 
0021:   	If rs.EOF Then
0022:  		    rs.AddNew
0023:     End If    
0024: 	Name = Request.Form("Name")
0025: '
0026: 'If Nome = "" Then
0027: 'Response.Redirect("senhasdelete.asp?SponsorID=" & SponsorID)
0028: 'Else
0029: 
0030: 	SiteURL = Request.Form("SiteURL")
0031: 	ImageURL = Request.Form("ImageURL")
0032: 	SponsorAmount = Request.Form("SponsorAmount")
0033: 	Notes = Request.Form("Notes")
0034: 	Season = Request.Form("Season")
0035: 
0036: 
0037: 		rs("Name").Value = Name
0038: 		rs("SiteURL").Value = SiteURL
0039: 		rs("ImageURL").Value = ImageURL
0040: 		rs("SponsorAmount").Value = SponsorAmount
0041: 		rs("Notes").Value = Notes	
0042: 		rs("Season").Value = Season
0043: 		rs.Update
0044: 		rs.Close
0045: 		Set rs = Nothing
0046: 
0047: 
0048: 
0049: 	Response.Redirect(ReturnPage)
0050: 
0051: 
0052: %>
0053: <html>
0054: 
0055: <head>
0056: <title></title>
0057: </head>
0058: 
0059: <body>
0060: </body>
0061: </html>