Home | <% strURL= "/WhyManagePrice/pricing_challenges" 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 %> Pricing Challenges <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Pricing Challenges <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Pricing Challenges <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Pricing Challenges <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Pricing Challenges <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Pricing Challenges <% 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 %> Pricing Challenges <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Pricing Challenges <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Pricing Challenges <% 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 %> Pricing Challenges <% else %> Pricing Challenges <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Pricing Challenges <% end if end if end if end select %> | <% strURL= "/WhyManagePrice/ReturnonInvestment" 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 %> Return on Investment <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Return on Investment <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Return on Investment <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Return on Investment <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Return on Investment <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Return on Investment <% 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 %> Return on Investment <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Return on Investment <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Return on Investment <% 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 %> Return on Investment <% else %> Return on Investment <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Return on Investment <% end if end if end if end select %> | <% strURL= "/WhyManagePrice/ProcessImprovement" 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 %> Process Improvement <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Process Improvement <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Process Improvement <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Process Improvement <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Process Improvement <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Process Improvement <% 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 %> Process Improvement <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Process Improvement <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Process Improvement <% 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 %> Process Improvement <% else %> Process Improvement <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Process Improvement <% end if end if end if end select %> | <% strURL= "/WhyManagePrice/Compliance" 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 %> Compliance <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Compliance <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Compliance <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Compliance <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Compliance <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Compliance <% 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 %> Compliance <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Compliance <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Compliance <% 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 %> Compliance <% else %> Compliance <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Compliance <% end if end if end if end select %> | <% strURL= "/WhyManagePrice/MarginImprovement" 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 %> Margin Improvement <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Margin Improvement <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Margin Improvement <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Margin Improvement <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Margin Improvement <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Margin Improvement <% 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 %> Margin Improvement <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Margin Improvement <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Margin Improvement <% 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 %> Margin Improvement <% else %> Margin Improvement <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Margin Improvement <% end if end if end if end select %> | <% strURL= "/WhyManagePrice/kss_consulting" 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 %> KSS Consulting <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Consulting <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Consulting <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Consulting <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Consulting <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Consulting <% 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 %> KSS Consulting <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Consulting <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Consulting <% 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 %> KSS Consulting <% else %> KSS Consulting <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Consulting <% end if end if end if end select %> | <% strURL= "/WhyManagePrice/kss_consulting/fuel_store_link" 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 %> | <% strURL= "/WhyManagePrice/fuels_pricing_terminology" 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 %> Fuels Pricing Terminology <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Fuels Pricing Terminology <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Fuels Pricing Terminology <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Fuels Pricing Terminology <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Fuels Pricing Terminology <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Fuels Pricing Terminology <% 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 %> Fuels Pricing Terminology <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Fuels Pricing Terminology <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Fuels Pricing Terminology <% 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 %> Fuels Pricing Terminology <% else %> Fuels Pricing Terminology <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Fuels Pricing Terminology <% end if end if end if end select %>