<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim strTargetDate Dim dtmTheDate Dim strMonth Dim numMonth Dim numDate Dim numYear dtmTheDate = Date numMonth=Month(dtmTheDate) strMonth=MonthName(numMonth) numDate=Day(dtmTheDate) numYear=Year(dtmTheDate) strTargetDate=strMonth & " " & numDate & ", " & numYear strNumericDate=numMonth & "/" & numDate & "/" & numYear Function stripHTMLtags(HTMLstring) Set RegularExpressionObject = New RegExp With RegularExpressionObject .Pattern = "<[^>]+>" .IgnoreCase = True .Global = True End With stripHTMLtags = RegularExpressionObject.Replace(HTMLstring, "") Set RegularExpressionObject = nothing End Function %> <% Dim rsCurrentNews__targDate rsCurrentNews__targDate = "10/1/2002" If (strTargetDate <> "") Then rsCurrentNews__targDate = strTargetDate End If %> <% Dim rsCurrentNews Dim rsCurrentNews_numRows Set rsCurrentNews = Server.CreateObject("ADODB.Recordset") rsCurrentNews.ActiveConnection = MM_connDevEvents_VB_STRING rsCurrentNews.Source = "SELECT tblEventInfo.EventID, tblEventInfo.EventTitle, tblEventInfo.EventDesc, tblScheduleItems.ScheduleItemID, Left(tblEventInfo.EventDetail,200) AS ShortEventDetail, tblScheduleItems.DisplayDateStart FROM tblContentTypes INNER JOIN (tblEventInfo INNER JOIN tblScheduleItems ON tblEventInfo.EventID = tblScheduleItems.EventID) ON tblContentTypes.ContentTypeID = tblScheduleItems.ContentTypeID WHERE (((tblScheduleItems.DisplayDateStart)<=#" + Replace(rsCurrentNews__targDate, "'", "''") + "#) AND ((tblContentTypes.ContentTypeName)='News') AND ((tblScheduleItems.Active)=True) AND ((tblEventInfo.EventActive)=True) AND ((tblScheduleItems.DisplayDateStop)>=#" + Replace(rsCurrentNews__targDate, "'", "''") + "#)) ORDER BY tblScheduleItems.DisplayDateStart DESC;" rsCurrentNews.CursorType = 0 rsCurrentNews.CursorLocation = 2 rsCurrentNews.LockType = 1 rsCurrentNews.Open() rsCurrentNews_numRows = 0 %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 rsCurrentNews_numRows = rsCurrentNews_numRows + Repeat3__numRows %> Our Towns Habitat News

 

News and Events

 

<% If Not rsCurrentNews.EOF Or Not rsCurrentNews.BOF Then %> <% While ((Repeat3__numRows <> 0) AND (NOT rsCurrentNews.EOF)) %>
<% If rsCurrentNews.Fields.Item("EventTitle").Value <> ("") Then 'script %> <%=stripHTMLtags(rsCurrentNews.Fields.Item("EventTitle").Value)%> (<%=rsCurrentNews("DisplayDateStart")%>)  <% End If ' end If rsCurrentNews.Fields.Item("EventTitle").Value <> ("") script %>
<% If rsCurrentNews.Fields.Item("EventDesc").Value <> ("") Then 'script %>

<%=stripHTMLtags(rsCurrentNews.Fields.Item("EventDesc").Value)%> <% End If ' end If rsCurrentNews.Fields.Item("EventDesc").Value <> ("") script %>

<%=stripHTMLtags(rsCurrentNews.Fields.Item("ShortEventDetail").Value)%>. . . " >--more--

<% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rsCurrentNews.MoveNext() Wend %> <% End If ' end Not rsCurrentNews.EOF Or NOT rsCurrentNews.BOF %> <% If rsCurrentNews.EOF And rsCurrentNews.BOF Then %>

 
 

Learn more about applying for a Habitat home at our info. sessions

March 21 at 7 p.m.

From March 17-25, a group of 25 volunteers and staff are heading down to Guatemala to work on Habitat homes. !Tenga un bien viaje!

 

Attend the next Our Towns Habitat 101


March 27, 8-9 a.m.

 

House Sponsorships

Ongoing sponsored houses include the Peninsula Community Foundation, the Cove Church, and Davidson United Methodist Church, all of whom are currently building on Ferry St. in Cornelius.  On Eddy Place in Mooresville we have the folllowing house sponsors: the DECA club of North Mecklenburg High School in memory of Jessica Readling, Habitat ReStore, and Habitat homeowner mortgage payments. Upcoming house sponsors are Business Build, Women Build, Saussy Burbank, Prudential Carolinas Reality, and Lowe's. 

<% End If ' end rsCurrentNews.EOF And rsCurrentNews.BOF %>

 

 

 

 

 

 

 

 

Newsletters
Current Events
Press Releases

-----------------------------------------------------
If you would like to volunteer, please email
volunteercoordinator@ourtownshabitat.org
or telephone 704-896-8957 ext 1108.
-----------------------------------------------------

Mail: Our Towns Habitat, PO Box 1088, Davidson, NC 28036
Office: 20310 North Main, Cornelius, NC 28031
Phone: 704-896-8957

Contact Us | | Site Map
  Copyright © Our Towns Habitat for Humanity 2005. All Rights Reserved.
:: Designed by icontactwebdesign.com ::

 

 

<% rsCurrentNews.Close() Set rsCurrentNews = Nothing %>