<%@ 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: Walk for Hunger 2009!<% if inStr(Path,"/labels") > 0 then %>: <%=Page%><%end if%>

Overdrive Services

Archives

  

Walk for Hunger 2009!

posted by Laura Ragno @ Tuesday, May 5, 2009 - 8:54 AM
On Sunday, 5/3, 44,000 people came to the Boston Common to raise millions for the hungry during Project Bread’s annual Walk for Hunger. The 20-mile pledge Walk attracted over 1,000 religious organizations, as well as 1,200 corporate teams, 1,200 schools, and 700 friends and family groups. These Walkers and their sponsors raised $3.8 million to provide food for 400 emergency food programs in 128 Massachusetts cities and towns. The funds will provide a hot meal or a bag of groceries for out-of-work families next winter.

To learn more about the cause or to donate, please visit: http://tinyurl.com/dfhk3b

This year, five Overdrive team members joined the walk and raised $1,200 for the cause (of course we were decked out in our full OD gear!). It was the 2nd year in a row that Overdrive has been represented at the Walk for Hunger...and luckily, NO RAIN this year!

Getting started - leaving the Commons full of energy:

Mile 10 - halfway there...
Once we saw the bridge, we knew we were in the home stretch!
At last - happy faces after crossing the finish line!!

We'll be back again next year!

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.