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

Overdrive Services

Archives

  

Potluck! An Overdrive Smorgasbord

posted by Laura Ragno @ Friday, April 25, 2008 - 11:00 AM
Potluck lunches are a great way for people to take a break in their day and enjoy each other's company with some pretty amazing food...so that's just what we did. Hopefully, it's the start of a regular tradition here at Overdrive. There was everything from smoked salmon to a chocolate fountain - a true smorgasbord of food!


Getting things started!
The spread...Dig in everyone!
Everett's Snapple that he brought in was CLUTCH.
Michael brought the boombox so we rocked out while we ate!Bill, excellent dipping form on the chocolate fountain; I'm impressed!
Harry, you too...
Those are the smiles of satisfaction!



We took laps around the track afterwards since we were so stuffed, plus it was such a nice day outside! Love the aviators Ra.

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.