Count Lines in Pages
Contents of Page: InMemoryList.asp
Number of Lines: 87
Last Modified: 5/2/2021 4:30:30 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: 		MyRegNumber = rsm("RegNumber").Value
0028: 		Else
0029: 		MyRegNumber = ""
0030: 		End If
0031: 	
0032: 
0033: %>
0034: <html>
0035: 
0036: <head>
0037: <title>March Madness - In Memorium List (<%= emailaddress %>)</title>
0038: <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
0039: <link href="mm.css" rel="stylesheet" type="text/css">
0040: 
0041: </head>
0042: 
0043: <body bgcolor="#FFFFFF" onLoad="document.node.RegNo.select()">
0044: 
0045: <table border="0" width="800" >
0046: <tr>
0047: <td width="15%" align="left"><img src="images/candel_animated.gif" border="0" width="80" ></td>
0048: <td class="norm" width="60%" align="center"><i>This page is dedicated to people who have touched our lives and lost their battle against cancer.</i><br><big><big><big><font face="Arial" size="10"><i><font color="green" style="bold">In Memoriam</font></i></big></big></font><br><big>"They may be gone, but they are not forgotten."</i></td>
0049: <td width="15%"  align="right"><% If MyRegNumber <> "" Then %><a href="InMemoryEdit.asp"><% End If %><img src="images/cancer_black_ribbon_heart.png" border="0" width="100"></a></td>
0050: </tr>
0051: </table>
0052: 
0053: <table border="0" width="800" >
0054: <tr bgcolor="#ffcccc"><td class="norm"><big><big><font color="red">&#9829;</font>
0055: <%
0056: 	Set rsd = Server.CreateObject("ADODB.Recordset")
0057: 	sqlString = "SELECT * FROM mminmemory ORDER BY Name " 
0058: 	rsd.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0059: 	Do Until rsd.EOF
0060: 
0061: 			ID = rsd("ID").Value		
0062: 			Name = rsd("Name").Value
0063: 			RegNumber = rsd("RegNumber").Value
0064: 
0065: If MyRegNumber = RegNumber Then
0066: Fontcolor = "Blue"
0067: bold = "<i>"
0068: unbold = "</b></i>"
0069: 
0070: Else
0071: Fontcolor = "Black"
0072: bold = ""
0073: unbold = ""
0074: End If
0075: 
0076: %>
0077: &nbsp;<font color="<%= FontColor %>"><%= bold %><%= Name %><%= Unbold %></font>&nbsp;<font color="red">&#9829;</font>
0078: <%
0079: 		rsd.MoveNext
0080: 		Loop
0081: 		rsd.Close
0082: %>
0083: </td></tr>
0084: <tr><td class="norm"><i><big>(*) If you wish to add the name of a loved one to this list, just click on the heart.</i></td></tr>
0085: </table>
0086: </body>
0087: </html>