<% dim strURL as string dim currPath as string dim cutURL as string dim cutPath as string dim topLev as string dim slashcount dim findChar as string dim fileE as string Dim chkCurrPath dim ovrrd dim edChk dim backone %>
Home | <% strURL= "/Consulting/fuelstorelink" if instr(lcase(strURL),".aspx") = 0 then strURL = strURL + "/default.aspx" end if currPath = Request.ServerVariables("URL") cutURL = left(strURL,instrrev(strURL,"/")) backone = left(cutURL,instrrev(cutURL,"/",len(cutURL)-1)) cutPath = left(currPath,instrrev(currPath,"/")) topLev = left(cutURL,instr(2,cutURL,"/")) slashcount = ubound(split(cutURL,"/")) chkCurrPath = split(currPath,"/") edChk = ubound(split(currPath,"/")) if edChk > 2 then if len(chkCurrPath(3)) <> 0 then findChar = "/" + chkCurrPath(1) + "/" + chkCurrPath(2) + "/" + chkCurrPath(3) + "/" elseif len(chkCurrPath(2)) <> 0 then findChar = "/" + chkCurrPath(1) + "/" + chkCurrPath(2) + "/" else findChar = "/" + chkCurrPath(1) + "/" end if end if fileE = mid(strURL,instrrev(strURL,"/")+1) select case slashcount case 2 if lcase(fileE) <> "default.aspx" then %> Fuel-Store Link <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Fuel-Store Link <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Fuel-Store Link <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Fuel-Store Link <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Fuel-Store Link <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Fuel-Store Link <% end if end if end if end if end if case 4 if lcase(fileE) = "default.aspx" then if lcase(cutPath) <> lcase(topLev) then if lcase(strURL) = lcase(currPath) then %> Fuel-Store Link <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Fuel-Store Link <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Fuel-Store Link <% end if end if else end if end if case 5 if lcase(fileE) = "default.aspx" then if lcase(cutPath) <> lcase(topLev) then if lcase(strURL) = lcase(currPath) then %> Fuel-Store Link <% else %> Fuel-Store Link <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Fuel-Store Link <% end if end if end if end select %>