<% Dim nCount, nStrategy(), sStrategy(), i ' constants RECENT_COUNT = 3 ' open database nCount = 0 If DBOpen(DBSET) Then ' get last strategies entered ReDim nStrategy(0) objDBSet.Open "SELECT strategy,title FROM strategies ORDER BY created DESC LIMIT 0,3" If objDBSet.State = 1 Then While (UBound(nStrategy) < RECENT_COUNT) And Not objDBSet.EOF nCount = nCount + 1 ReDim Preserve nStrategy(nCount), sStrategy(nCount) nStrategy(nCount) = CInteger(objDBSet.Fields("strategy")) sStrategy(nCount) = CString(objDBSet.Fields("title")) objDBSet.MoveNext WEnd objDBSet.Close End If ' get strategy count objDBSet.Open "SELECT COUNT(strategy) FROM strategies WHERE hidden IS NULL" If objDBSet.State = 1 Then If Not objDBSet.EOF Then nCount = CInteger(objDBSet.Fields(0)) End If objDBSet.Close End If DBClose End If %>

Winning Strategies in the NeighborWorks Network

Winning Strategies are best practices from the 235-plus members of the NeighborWorks® network. Their purpose is to describe and record the innovative approaches that NeighborWorks organizations use in revitalizing neighborhoods and serving families, while offering community development practitioners an opportunity to replicate this work in the field.

Each best practice is generated by one of five national NeighborWorks programs:

NeighborWorks Campaign for Home Ownership
NeighborWorks Multifamily Initiative
NeighborWorks Rural Initiative
NeighborWorks Insurance Alliance
NeighborWorks Community Building and Organizing Initiative

<% For i = 1 To UBound(nStrategy) Response.Write("

" & _ sStrategy(i) & "

" & CR) Next %>

Total Entries: <%=nCount%>

To find and view Winning Strategies documents, search Winning Strategies.

To learn more about national NeighborWorks programs, click here.


		Many thanks to MetLifeFoundation for its support of Winning Strategies.