<%@ 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: Fall Potluck<% if inStr(Path,"/labels") > 0 then %>: <%=Page%><%end if%>

Overdrive Services

Archives

  

Fall Potluck

posted by Laura Ragno @ Wednesday, October 29, 2008 - 12:52 PM
It's that time of year again! The summer potluck was so successful that we arranged for another group lunch. This time, there were categories created so employees could enter their dish in for an official Overdrive Potluck Award and earn some serious bragging rights!
The categories:
  • Best stomach satisfying dish
  • Best use of the Fall theme

  • Best last minute meal
  • Best use of a condiment
  • Most nutritious dish

The Spread!

Meryl, proudly displaying her pumpkin roll and rocky road caramel apples - she swept the Fall-themed dish category!
Bill's edible brain:
Tim's McDonalds cheeseburgers - great last minute idea!
Ty's dish: fried Twinkies and Milky Way's - definitely wasn't in the running for most nutritious dish...
Mel and Bianca enjoying the festivities
Laura and Meryl in a food-lovin' action shot
Congrats to the winners! Tim (cheeseburgers - best last minute meal), Laura (chili - most stomach satisfying dish), Meryl (pumpkin roll - best Fall-themed dish), Ra (pear salad - most nutritious dish), Bianca & Barb (sandwiches/mustard/mayo - best use of a condiment)

Labels:

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.