<%@ 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: You Drive Less. Shouldn't You Save More?<% if inStr(Path,"/labels") > 0 then %>: <%=Page%><%end if%>

Overdrive Services

Archives

  

You Drive Less. Shouldn't You Save More?

posted by David @ Friday, July 11, 2008 - 1:02 PM
Everyone is concerned about ever-increasing gas prices and one of our clients, GMAC Insurance, has a program that offers substantial insurance premium discounts to low-mileage drivers. To support this program, Overdrive Interactive recently launched a landing page for GMAC Insurance called "The Commuter Calculator".

Using the site's online calculator visitors can find out how much their weekly commute costs and whether they are above or below average in the number of miles driven for their particular area of the country. Site links take visitors to the GMAC Insurance corporate site for more information about their low mileage discount program.

Even though the insurance discount program is only available to drivers who have an OnStar-equipped GM vehicle, go to the site and try out the Commuter Calculator for yourself!

Here's the URL for the site: http://www.lowmileagediscount.com

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.