Count Lines in Pages
Contents of Page: mmSearchUpdate.asp
Number of Lines: 64
Last Modified: 8/22/2018 1:32:56 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: 	from = Request.QueryString("from")
0007: 	
0008: 	action = Trim(Request.Form("action"))
0009: 	ID = Trim(Request.Form("ID"))
0010: 	Name = Trim(Request.Form("Name"))
0011:         EmailAddress = Trim(Request.Form("EmailAddress"))
0012:         InvalidEmail = Trim(Request.Form("InvalidEmail"))
0013:   
0014: '	If action = "Add" Then
0015: '	Set rs = Server.CreateObject("ADODB.Recordset")
0016: '		rs.Open "mmEntries", Conn, adOpenDynamic, adLockOptimistic, adCmdTable
0017: '		rs.AddNew
0018: '	ElseIf action = "Update" Then
0019: 		Set rs = Server.CreateObject("ADODB.Recordset")
0020: 		sqlString = "SELECT * FROM mmEntries WHERE ID = " & ID
0021: 		rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0022: 		If rs.EOF Then
0023: 			rs.Close
0024: 			Response.Redirect("SearchResults.asp")
0025: 		End If
0026: '	Else
0027: '		Response.Redirect("whoisin.asp")
0028: '	End If
0029: 'response.write(ID & "=")
0030: 'response.write(EmailIt & "=")	
0031: 
0032: 'response.write(sqlString)
0033: 'response.write(PaidEntries)
0034: '	rs("ID").Value = ID
0035: 	If InvalidEmail <> "" Then
0036: 	rs("InvalidEmail").Value = True
0037: 	Else
0038: 	rs("InvalidEmail").Value = False
0039: 	End If
0040: 	rs.Update
0041: 	rs.Close
0042: 	Set rs = Nothing
0043: 
0044: '	Response.Redirect("SearchResults.asp")	
0045: 
0046: 	
0047: %>
0048: <html>
0049: 
0050: <head>
0051: <title>c:\Inetpub\wwwroot\www_lusogolf_org\ncaa\mmSearchUpdate.asp</title>
0052: </head>
0053: 
0054: <body>
0055: 
0056: <p align="center">Entry <%= ID %><br><%= EmailAddress %><br>Updated. </p>
0057: 
0058: <p align="center"><input type="button" value="Go Back" class="norm"
0059: onClick="history.go(-2)" style="float: center"> </p>
0060: <a href="search.asp">
0061: 
0062: <p align="center">Return To Search Page</a> </p>
0063: </body>
0064: </html>