MOSS 2007 Breadcrumb problem

Question

I've got a page layout for a publishing site with an odd behaviour.

Imagine a publishing site (site) with a subsite (subsite1) which has the following pages (page1 [default], page2, and page3)

for page 2 and page three the breadcrumb renders correctly:

site > subsite1 > page2 
site > subsite1 > page3

however for the default page the breadcrumb only renders as

site > subsite1

Any idea how to force it to display the title of the default page too?

Answer 1

After much searching and failing repeatedly I decided to use an AJAX include. Before anyone marks me down for using the devils language (VB.Net) I only used it as I had other developers who were using and maintaing this code so they had to be able to read it...

The include did the following:

1. split the current url into its constituent parts
2. For each part get the Sharepoint URL and Sharepoint Web
3. Print the Title of the sharepoint web
4. If the part is a page, get the page title and print it

This isnt the final code (i'm going to refactor it tonight):

  Dim lsPage = Request.Item("CurrentPage")
  Dim TravelURL as string = "http://site/"
  Dim aryURLSections() = lsPage.Replace(TravelUrl, "").Split("/")
  Dim i as integer

  Response.Write("<span class='breadcrumbCurrent'>You are in &gt;</span> <span class='ms-sitemapdirectional'><a href='" & TravelUrl & "' title='Home'>Home</a> &gt; </span>")

  for i = 0 to (aryURLSections.Length -1)
    Dim PositionString as string = aryURLSections(i)
    if PositionString.Contains(".aspx") then
     'Render page
     Dim psite as SPSite = new SPSite(TravelUrl)
     Dim pobjSite As SPWeb = psite.OpenWeb() 
     Dim lList as SPList
     Dim lPage As SPListItem
     lList = pobjSite.Lists("Pages")
         If Not lList Is Nothing Then
             For Each lPage In lList.Items
             IF lsPage.ToUpper.Contains(lPage.Url.ToUpper) Then
       Response.Write("<span class='breadcrumbCurrent' >" & lPage.Title & "</span>")
          Else
       'Response.Write("<br>" & lPage.Url & " " & lsPage)
          End If
      Next
     End if
    Else if PositionString.Equals("Pages")
     ' do nothing
    else
     'render site
     TravelUrl = TravelUrl & PositionString & "/"
     'Response.Write(TravelUrl & " > ")
     Dim site as SPSite = new SPSite(TravelUrl)

     Dim objSite As SPWeb = site.OpenWeb() 
     Dim PubWeb = PublishingWeb.GetPublishingWeb(objSite)

     Response.Write("<span class='ms-sitemapdirectional'><a href='" & TravelUrl & "' title='" & PubWeb.Title & "'>" & PubWeb.Title & "</a> &gt; </span>")
    End if

    Next i