<%@ Language=VBScript %> <% BaseURL="http://www.ovrdrv.com" Path=Trim(lcase(Request.ServerVariables("Path_Info"))) nP=InStrRev(Path, "/") if nP > 0 then Page = lcase(mid(Path, nP + 1)) section="" end if %> Overdrive Online Marketing Blog: Overdrive’s Team Feroush Walks for Hunger<% if inStr(Path,"/labels") > 0 then %>: <%=Page%><%end if%>

Overdrive Services

Archives

  

Overdrive’s Team Feroush Walks for Hunger

posted by Meryl Pinette @ Monday, May 5, 2008 - 4:38 PM
This Sunday, a team of Overdrivers dubbed ‘Team Feroush’ joined Project Bread’s 40th Annual Walk for Hunger. Meryl, Meghan, Laura, Ra, Mel, and Barb all joined to have some fun outside of work, while helping to raise money in support of a very worthy cause.

While our socks and shoes were soaked by rain before we had begun, we were not about to let that hold us back from completing the 20-mile walk that weaved through Boston, Brookline, Newton, and Cambridge! Our team raised just under $2,000! Next year we hope to raise even more.

Since 1969, Project Bread's Walk for Hunger has provided critical resources for hungry children and families in Massachusetts. Money raised through The Walk for Hunger funds more than 400 food pantries, soup kitchens, food banks, and food salvage programs in 126 communities across Massachusetts. Our Overdrive team felt proud to be a part of this incredible effort!

Labels:

0 Comments:

Post a Comment

Subscribe to Post Comments [Atom]

<< Home

Blog Search

 

RSS Feeds

 Atom
 RSS

Subscribe to Overdrive eMarketing Blog by Email





Delivered by FeedBurner

Categories

<% '-- add your label directory here labelDir = "m:\web\users\V029U45EBY\html\ovrdrv\blog\labels\" '-- Check for Directory Set FSO = Server.CreateObject("Scripting.FileSystemObject") If FSO.FolderExists(labelDir) Then Response.Write "
    " Set labelFolder = FSO.GetFolder(labelDir) Set labelBlogs = labelFolder.Files For each label in labelBlogs Set labelFile = FSO.GetFile(label) Set labelStream = labelFile.OpenAsTextStream (1, -2) iLabelCount = -1 '-- Read the file line by line Do While Not labelStream.AtEndOfStream Line = labelStream.readline LineCount = Sgn(InStr(Line,"blogger-labels")) iLabelCount = iLabelCount + LineCount Loop Response.Write "
  • " + Replace(labelFile.Name,".asp","") & " (" + CSTR(iLabelCount) & ")
    • " Set labelStream = nothing Set labelFile = nothing Next Response.Write "
" Else Response.Write "

No labels in folder: " & labelDir & "

" End If Set FSO = nothing %>
Blog Home  |  Social Media Map  |  Schedule a Seminar  |  eMarketing Blog  |  Contact Bloggers  |  © 2002-<%=Year(Date)%> Overdrive. All Rights Reserved.