<%@ Language = "VBScript"%>
<%
' this bit of code gets the News message out of the datanbase
Set cnn1 = Server.CreateObject("ADODB.Connection")
cnn1.Open strconn,"",""
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM News"
rs.Open sql, cnn1, adOpenStatic,1
if rs.RecordCount > 0 Then
theMessage = rs.Fields("Message")
else
theMessage = ""
end if
rs.Close
Set rs = Nothing
cnn1.Close
Set cnn1 = Nothing
'calculate days until Adays
DaysUntilADays = DateDiff("d",Now(),"07/25/2008")
%>
Run to Remember - Honorees
Honorees
Meet the 2012 Honorees - Coming soon Nominate your loved one for this event! Meet the 2011 Honorees
To learn more about the honorees, please click on each name or here.
