<% '############################
Function BreadCrumb(FullPath)
Do Until instr(1,FullPath,"/") = 0
'## Create an array of letters in the alphabet.
Letters = array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z")
'## split on the /
tmpPath = mid(FullPath,1,instr(1,FullPath,"/")-1)
strTmpPath = Trim(tmpPath)
DirPath = DirPath & strTmpPath & "/"
'## upshift the first character
firstLetter = ucase(mid(strTmpPath,1,1))
strTmpPath = firstLetter & mid(strTmpPath,2,len(strTmpPath))
'## replace udnerscores with spaces and upshift the following character
for each letter in letters
strTmpPath = Replace(Trim(strTmpPath),"_" & lcase(letter)," " & UCase(letter))
next
'## split the next one out
FullPath = mid(FullPath,instr(1,FullPath,"/")+1,Len(FullPath)-Len(tmpPath))
'## separate them with >> symbols
IF strTmpPath = "" THEN
response.write "Home Page"
ELSEIF strTmpPath = "Home" THEN
ELSE
response.write " > " & strTmpPath & ""
END IF
Loop
IF PageTitle = "" THEN
response.write " : Current Page"
ELSE
response.write " : " & PageTitle
END IF
End Function %>
DirectoryError processing SSI file
HOME | Committees | Directory | Departments | Emergency Services | Forms | Government | Library | Meetings | Our Town | Permits and Licenses | Schools | Seniors | Transportation