Count Lines in Pages
Contents of Page: InMemoryEdit.asp
Number of Lines: 80
Last Modified: 5/2/2021 4:34:23 PM
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <%
0005: 			emailaddress = Session("InMemoriam")
0006: '			If emailaddress = "" Then
0007: '				emailaddress = Request.Cookies("InMemoriam")		
0008: '			End If
0009: 	
0010: 
0011: 'Set rs = Server.CreateObject("ADODB.Recordset")
0012: '	sqlString = "SELECT * FROM mmEntries " & _
0013: '							"WHERE EmailAddress = '" & emailaddress & "' " & _
0014: '							"AND Season = " & season
0015: '	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0016: '        if rs.EOF then
0017: '		Response.Redirect("login.asp?from=InMemoryEdit.asp")
0018: '        Else
0019: '		 MyRegNumber = rs("RegNumber").Value
0020: '		End If
0021: 
0022: 		Set rsm = Server.CreateObject("ADODB.Recordset")
0023: 		sqlString = "SELECT * FROM MY4_Master " & _
0024: 							"WHERE EmailAddress = '" & emailaddress & "' " 
0025: 		rsm.Open sqlString, conn2, adOpenDynamic, adLockOptimistic, adCmdText
0026: 		If Not rsm.EOF Then
0027: 		RegNumber = rsm("RegNumber").Value
0028: 		Else
0029: 		RegNumber = ""
0030: 		End If
0031: 	
0032: %>
0033: <html>
0034: 
0035: <head>
0036: <title>March Madness - In Memorium Add</title>
0037: <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
0038: <link href="mm.css" rel="stylesheet" type="text/css">
0039: 
0040: </head>
0041: 
0042: <body bgcolor="#FFFFFF" onLoad="document.node.Name.select()">
0043: 
0044: <form method="post" action="InMemoryPost.asp?ID=<%= ID %>" name="node">
0045:   <table border="0" cellpadding="1" cellspacing="1" width="370">
0046:   <input type="hidden" Name="RegNumber" value="<%= RegNumber %>">
0047:   
0048: 	  <tr>
0049:       <td></td><td class="norm"align="left" ><font face="Arial" size="2" color="#008080"><big>Enter the name of someone who has, in any way, touched your life and have lost theirs to cancer.</td></tr>
0050: 
0051:       <tr><td></td><td   bgcolor="#f8f8f8" align="left" class="norm" ><input type="text" name="Name" size="30"></td>
0052:     </tr>
0053:   
0054:     <tr><td></td>	
0055:       <td class="norm" align="left" colspan="4"><input type="submit" value="Add this name to the In Memoriam list" class="norm"><br><br><a href="InMemoryList.asp">Click here to return to the <b>In Memoriam</b> Page</a>
0056:     </tr>
0057:   </table>
0058: </form>
0059: 
0060: <table border="0" width="400">
0061: 
0062: <%
0063: Set rsd = Server.CreateObject("ADODB.Recordset")
0064: 	sqlString = "SELECT * FROM mminmemory " & _
0065: 			"WHERE RegNumber = " & RegNumber
0066: 	rsd.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0067: Do Until rsd.EOF
0068: 
0069: 			ID = rsd("ID").Value		
0070: 			Name = rsd("Name").Value
0071: %>
0072: <tr  bgcolor="#ffcccc"><td class="norm"><big><a style="text-decoration:none" href="InMemoryDelete.asp?ID=<%= ID %>"><%= Name %></td></tr>
0073: <%
0074: 		rsd.MoveNext
0075: 		Loop
0076: 		rsd.Close
0077: %>
0078: <tr><td class="norm"><i>(*) To remove a name entered by mistake, just click on the name.</td></tr>
0079: </body>
0080: </html>