Count Lines in Pages
Contents of Page: PropEventsUpdate.asp
Number of Lines: 45
Last Modified: 8/22/2018 1:33:10 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: 	PropEventID = Trim(Request.QueryString("PropEventID"))
0008: PropEventID = 2
0009: 
0010: 		Set rs = Server.CreateObject("ADODB.Recordset")
0011: 		sqlString = "SELECT * FROM PropEvents WHERE ID = " & PropEventID 
0012: 	   rs.Open sqlString, Conn3, adOpenDynamic, adLockOptimistic, adCmdText
0013: 
0014:   	If rs.EOF Then
0015:  		    rs.AddNew
0016:     End If 
0017: 
0018: 
0019: 	  EventDescription = Request.Form("EventDescription")
0020: 	  FirstName = Request.Form("FirstName")
0021: 	  SecondName = Request.Form("SecondName")
0022: 	  StopMakingPicks = Request.Form("StopMakingPicks")
0023: 
0024: 	  rs("EventDescription").Value = EventDescription 
0025:       rs("FirstName").Value = FirstName
0026:       rs("SecondName").Value = SecondName 
0027:       rs("StopMakingPicks").Value = StopMakingPicks
0028: 		rs.Update
0029: 		rs.Close
0030: 		Set rs = Nothing
0031: 
0032: 
0033: 	Response.Redirect("PropEventsList.asp")
0034: '	Response.Write("CreditDetails.asp?CurrYear=" & FEYear & "&MemberID=" & MemberID & "&ShowAll =" & ShowAll)
0035: 
0036: %>
0037: <html>
0038: 
0039: <head>
0040: <title></title>
0041: </head>
0042: 
0043: <body>
0044: </body>
0045: </html>