<%@ 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: 25 Random Things About Overdrive Interactive<% if inStr(Path,"/labels") > 0 then %>: <%=Page%><%end if%>

 

25 Random Things About Overdrive Interactive

Unless you've been living under a rock for the last month, you have probably been tagged in one of your friend's '25 Random Things About Me' on Facebook. The New York Times last week reported that running a Google search on '25 Random Things About Me" yielded 35,700 pages of results within a two week period!

We decided by participating in this as a company, we would have a fun way to share with our friends and fans a 'behind-the-scenes' look at what goes on at Overdrive. There is a mix of just about everything from: #16 Overdrive has an unspoken employee stand-off each day - it’s called ‘who will get stuck replacing the water jug’ to #21 A member of our SEO team graduated from college at 15 years old!

For a full read through of our 25 random things, please visit our Facebook page.

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