Underwater Photo Books

<% Function BreadCrumbs() Dim lstrPathAry Dim llngMaxIndex Dim lstrPath Dim lstrHTML lstrPathAry = Split(Request.ServerVariables("PATH_INFO"), "/") llngMaxIndex = UBound(lstrPathAry) - 1 lstrHTML = "You are here: " lstrPath = "/" lstrHTML = lstrHTML & "Home " For llngIndex = 1 To llngMaxIndex lstrPath = lstrPath & Server.URLPathEncode(lstrPathAry(llngIndex)) & "/" lstrHTML = lstrHTML & "> " & Server.HTMLEncode(lstrPathAry(llngIndex)) & "" Next BreadCrumbs = lstrHTML End Function %> 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

[Home] [Books] [UK Divers]

Back to Top