<% 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 underscores 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" ELSEIF strTmpPath = "Home" THEN ELSE response.write " > " & strTmpPath & " " END IF Loop IF PageTitle = "" THEN response.write " : Current Page" ELSE response.write " : " & PageTitle response.write "" END IF End Function 'replace the next text in the next line (between the tags) to read the title of your page PageTitle = "Search" %><% = BreadCrumb(Request.ServerVariables("PATH_INFO")) %>
 |
|
|
|
|
 |
|
|
About Us | County Council | Agricultural Service Board | Transportation & Utilities Assessment | Planning & Development | Emergency Services | Parks & Recreation Family & Community | County FAQ | Links | Feedback | Search | Contact Us |
|
|
© Copyright
Athabasca County 2004 Read our Site Disclaimer |
|