<%@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 rsCurrentEvents__targDate rsCurrentEvents__targDate = "1/1/2001" If (strTargetDate <> "") Then rsCurrentEvents__targDate = strTargetDate End If %> <% Dim rsCurrentEvents Dim rsCurrentEvents_numRows Set rsCurrentEvents = Server.CreateObject("ADODB.Recordset") rsCurrentEvents.ActiveConnection = MM_connDevEvents_VB_STRING rsCurrentEvents.Source = "SELECT tblEventInfo.EventID, tblEventInfo.EventTitle, tblEventInfo.EventDesc, tblEventInfo.EventLocation, tblScheduleItems.ScheduleDate, tblScheduleItems.ScheduleTime, tblScheduleItems.ScheduleItemID FROM tblContentTypes INNER JOIN (tblEventInfo INNER JOIN tblScheduleItems ON tblEventInfo.EventID = tblScheduleItems.EventID) ON tblContentTypes.ContentTypeID = tblScheduleItems.ContentTypeID WHERE (((tblScheduleItems.ScheduleDate)>=#" + Replace(rsCurrentEvents__targDate, "'", "''") + "#) AND ((tblContentTypes.ContentTypeName) = 'Events') AND ((tblScheduleItems.Active)=True) AND ((tblEventInfo.EventActive)=True) AND ((tblContentTypes.TypeIsCalendarItem)=True)) ORDER BY tblScheduleItems.ScheduleDate, tblScheduleItems.ScheduleTime;" rsCurrentEvents.CursorType = 0 rsCurrentEvents.CursorLocation = 2 rsCurrentEvents.LockType = 1 rsCurrentEvents.Open() rsCurrentEvents_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 rsCurrentEvents_numRows = rsCurrentEvents_numRows + Repeat1__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 rsPlanningPageSets_numRows = rsPlanningPageSets_numRows + Repeat4__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 rsCurrentNews_numRows = rsCurrentNews_numRows + Repeat3__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsCurrentAnnouncements_numRows = rsCurrentAnnouncements_numRows + Repeat2__numRows %> Our Towns Habitat Events

 

News and Events

   

Current Events

  • 3 houses are now being constructed on N. Ferry Street in Cornelius. These Habitat homes are sponsored by The Cove Community Church, Davidson United Methodist Church, and The Peninsula Community Foundation. Contact Christine for more information on house sponsorships.
  • 3 houses are starting to be built at Eddy Place in Moresville. The sponsors for these homes are North Mecklenburg DECA Club students in memory of their classmate, Jessica Readling, our Habitat ReStore, and Habitat homeowner mortgage payments. The fourth house will begin at Eddy Place in April 2007.
  • Wednesday, March 21 is our March Homeowner Information session at the Our Towns Habitat office at 7 p.m. Come and find out more about applying to be a Habitat homeowner in Cornelius, Davidson, Huntersville, or Mooresville. Contact Rachel or Sarah for more information.
  • On Tuesday, March 13 at 6 p.m. there will be the kick-off event for Women Build at Midtown Sundries in Cornelius. Come find out how you can be a part of Women Build 2007 and enjoy a dutch treat with others interested in this program. Contact Amy for more information.
    <% If Not rsCurrentEvents.EOF Or Not rsCurrentEvents.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT rsCurrentEvents.EOF)) %>
<% If rsCurrentEvents.Fields.Item("EventLocation").Value <> ("") Then 'script %> <% If rsCurrentEvents.Fields.Item("EventLocation").Value <> ("none") Then 'script %> <% End If ' end If rsCurrentEvents.Fields.Item("EventLocation").Value <> ("none") script %> <% End If ' end If rsCurrentEvents.Fields.Item("EventLocation").Value <> ("") script %>
<% If rsCurrentEvents.Fields.Item("EventTitle").Value <> ("") Then 'script %>

<%=stripHTMLtags(rsCurrentEvents.Fields.Item("EventTitle").Value)%>

 <% End If ' end If rsCurrentEvents.Fields.Item("EventTitle").Value <> ("") script %>

When: <% If rsCurrentEvents.Fields.Item("ScheduleDate").Value <> ("") Then 'script %> <%=(rsCurrentEvents.Fields.Item("ScheduleDate").Value)%> <% End If ' end If rsCurrentEvents.Fields.Item("ScheduleDate").Value <> ("") script %> <% If rsCurrentEvents.Fields.Item("ScheduleTime").Value <> ("") Then 'script %>   <%=DoEasyTime(rsCurrentEvents.Fields.Item("ScheduleTime").Value)%> <% End If ' end If rsCurrentEvents.Fields.Item("ScheduleTime").Value <> ("") script %>

Where: <% If rsCurrentEvents.Fields.Item("EventLocation").Value <> ("") Then 'script %> <%=stripHTMLtags(rsCurrentEvents.Fields.Item("EventLocation").Value)%> <% End If ' end If rsCurrentEvents.Fields.Item("EventLocation").Value <> ("") script %>

<% If rsCurrentEvents.Fields.Item("EventDesc").Value <> ("") Then 'script %>

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

" >--read more about it--
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsCurrentEvents.MoveNext() Wend %> <% End If ' end Not rsCurrentEvents.EOF Or NOT rsCurrentEvents.BOF %> <% If rsCurrentEvents.EOF And rsCurrentEvents.BOF Then %>
 

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

 

 

 

 

 

 

 

 

Newsletters
Press Releases
News Items

-----------------------------------------------------
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 ::

 

 

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