<%@ 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: Ty's Surprise Baby Shower<% if inStr(Path,"/labels") > 0 then %>: <%=Page%><%end if%>

 

Ty's Surprise Baby Shower

posted by Laura Ragno @ Monday, November 3, 2008 - 2:56 PM
On Friday afternoon, the agency threw Ty a surprise baby shower as his little one's due date was approaching quickly!

This is Meryl setting up the Ty JR pictures that Katie crafted so creatively:
The finished product - Ty mobile, sweets and a diaper cake :)
The surprised Dad-to-be taking it all in:
Congrats Papa Ty! Thank goodness we had this on Friday because the Velde's welcomed their son Liam into the world today! I'm sure there will be more pics to follow so stay tuned...

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 %>