Our Towns Habitat News and Events

<%@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 rsCurrentPressRels Dim rsCurrentPressRels_numRows Set rsCurrentPressRels = Server.CreateObject("ADODB.Recordset") rsCurrentPressRels.ActiveConnection = MM_connDevEvents_VB_STRING rsCurrentPressRels.Source = "SELECT tblEventInfo.EventID, tblEventInfo.EventTitle, tblEventInfo.EventDesc, tblEventInfo.DateCreated, tblScheduleItems.ScheduleItemID,tblScheduleItems.DisplayDateStart, Left(tblEventInfo.EventDetail,200) AS ShortEventDetail FROM tblContentTypes INNER JOIN (tblEventInfo INNER JOIN tblScheduleItems ON tblEventInfo.EventID = tblScheduleItems.EventID) ON tblContentTypes.ContentTypeID = tblScheduleItems.ContentTypeID WHERE ((tblContentTypes.ContentTypeName)='PressReleases') AND ((tblScheduleItems.Active)=True) AND ((tblEventInfo.EventActive)=True) ORDER BY tblScheduleItems.DisplayDateStart DESC;" rsCurrentPressRels.CursorType = 0 rsCurrentPressRels.CursorLocation = 2 rsCurrentPressRels.LockType = 1 rsCurrentPressRels.Open() rsCurrentPressRels_numRows = 0 %> <% 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 rsCurrentPressRels_numRows = rsCurrentPressRels_numRows + Repeat3__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsCurrentAnnouncements_numRows = rsCurrentAnnouncements_numRows + Repeat2__numRows %> Our Towns Habitat News and Events

News and Events

<% If Not rsCurrentPressRels.EOF Or Not rsCurrentPressRels.BOF Then %> <% While ((Repeat3__numRows <> 0) AND (NOT rsCurrentPressRels.EOF)) %>

<% If rsCurrentPressRels.Fields.Item("EventTitle").Value <> ("") Then 'script %> <%=stripHTMLtags(rsCurrentPressRels.Fields.Item("EventTitle").Value)%><%=rsCurrentPressRels("DisplayDateStart")%> <% End If ' end If rsCurrentPressRels.Fields.Item("EventTitle").Value <> ("") script %>

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

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

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

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

Business Build Press Release

Collegiate Challenge Press Release

Read exciting news about Our Towns Habitat for Humanity Tithe to Habitat Guatemala.

	Newsletters
	Current Events
	News Items

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