Home | <% strURL= "/Software/retail_petroleum" 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 %> Retail Petroleum <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Retail Petroleum <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Retail Petroleum <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Retail Petroleum <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Retail Petroleum <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Retail Petroleum <% 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 %> Retail Petroleum <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Retail Petroleum <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Retail Petroleum <% 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 %> Retail Petroleum <% else %> Retail Petroleum <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Retail Petroleum <% end if end if end if end select %> | <% strURL= "/Software/retail_petroleum/pricenet" 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 %> PriceNet <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> PriceNet <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> PriceNet <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> PriceNet <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> PriceNet <% else if lcase(fileE) <> "default.aspx" then %> <% else %> PriceNet <% 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 %> PriceNet <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> PriceNet <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> PriceNet <% 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 %> PriceNet <% else %> PriceNet <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> PriceNet <% end if end if end if end select %> | <% strURL= "/Software/retail_petroleum/pricenet_saas" 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 %> PriceNet SaaS <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> PriceNet SaaS <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> PriceNet SaaS <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> PriceNet SaaS <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> PriceNet SaaS <% else if lcase(fileE) <> "default.aspx" then %> <% else %> PriceNet SaaS <% 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 %> PriceNet SaaS <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> PriceNet SaaS <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> PriceNet SaaS <% 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 %> PriceNet SaaS <% else %> PriceNet SaaS <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> PriceNet SaaS <% end if end if end if end select %> | <% strURL= "/Software/retail_petroleum/pricenet_mobile" 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 %> PriceNet Mobile <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> PriceNet Mobile <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> PriceNet Mobile <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> PriceNet Mobile <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> PriceNet Mobile <% else if lcase(fileE) <> "default.aspx" then %> <% else %> PriceNet Mobile <% 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 %> PriceNet Mobile <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> PriceNet Mobile <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> PriceNet Mobile <% 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 %> PriceNet Mobile <% else %> PriceNet Mobile <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> PriceNet Mobile <% end if end if end if end select %> | <% strURL= "/Software/retail_petroleum/pricenet_web" 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 %> PriceNet Web <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> PriceNet Web <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> PriceNet Web <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> PriceNet Web <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> PriceNet Web <% else if lcase(fileE) <> "default.aspx" then %> <% else %> PriceNet Web <% 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 %> PriceNet Web <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> PriceNet Web <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> PriceNet Web <% 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 %> PriceNet Web <% else %> PriceNet Web <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> PriceNet Web <% end if end if end if end select %> | <% strURL= "/Software/retail_petroleum/bp_branded_marketers" 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 %> BP Branded Marketers <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> BP Branded Marketers <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> BP Branded Marketers <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> BP Branded Marketers <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> BP Branded Marketers <% else if lcase(fileE) <> "default.aspx" then %> <% else %> BP Branded Marketers <% 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 %> BP Branded Marketers <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> BP Branded Marketers <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> BP Branded Marketers <% 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 %> BP Branded Marketers <% else %> BP Branded Marketers <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> BP Branded Marketers <% end if end if end if end select %> | <% strURL= "/Software/retail_petroleum/margin_improvement" 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= "/Software/dealer_pricing" 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 %> Dealer Pricing <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Dealer Pricing <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Dealer Pricing <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Dealer Pricing <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Dealer Pricing <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Dealer Pricing <% 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 %> Dealer Pricing <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Dealer Pricing <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Dealer Pricing <% 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 %> Dealer Pricing <% else %> Dealer Pricing <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Dealer Pricing <% end if end if end if end select %> | <% strURL= "/Software/dealer_pricing/pricenet_dealer_pricing" 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 %> PriceNet Dealer Pricing <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> PriceNet Dealer Pricing <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> PriceNet Dealer Pricing <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> PriceNet Dealer Pricing <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> PriceNet Dealer Pricing <% else if lcase(fileE) <> "default.aspx" then %> <% else %> PriceNet Dealer Pricing <% 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 %> PriceNet Dealer Pricing <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> PriceNet Dealer Pricing <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> PriceNet Dealer Pricing <% 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 %> PriceNet Dealer Pricing <% else %> PriceNet Dealer Pricing <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> PriceNet Dealer Pricing <% end if end if end if end select %> | <% strURL= "/Software/dealer_pricing/pricenet_mobile" 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 %> PriceNet Mobile <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> PriceNet Mobile <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> PriceNet Mobile <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> PriceNet Mobile <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> PriceNet Mobile <% else if lcase(fileE) <> "default.aspx" then %> <% else %> PriceNet Mobile <% 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 %> PriceNet Mobile <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> PriceNet Mobile <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> PriceNet Mobile <% 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 %> PriceNet Mobile <% else %> PriceNet Mobile <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> PriceNet Mobile <% end if end if end if end select %> | <% strURL= "/Software/dealer_pricing/pricenet_web" 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 %> PriceNet Web <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> PriceNet Web <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> PriceNet Web <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> PriceNet Web <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> PriceNet Web <% else if lcase(fileE) <> "default.aspx" then %> <% else %> PriceNet Web <% 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 %> PriceNet Web <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> PriceNet Web <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> PriceNet Web <% 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 %> PriceNet Web <% else %> PriceNet Web <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> PriceNet Web <% end if end if end if end select %> | <% strURL= "/Software/wholesale_petroleum" 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 %> Wholesale Petroleum <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Wholesale Petroleum <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Wholesale Petroleum <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Wholesale Petroleum <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Wholesale Petroleum <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Wholesale Petroleum <% 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 %> Wholesale Petroleum <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Wholesale Petroleum <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Wholesale Petroleum <% 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 %> Wholesale Petroleum <% else %> Wholesale Petroleum <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Wholesale Petroleum <% end if end if end if end select %> | <% strURL= "/Software/wholesale_petroleum/rackprice" 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 %> RackPrice <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> RackPrice <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> RackPrice <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> RackPrice <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> RackPrice <% else if lcase(fileE) <> "default.aspx" then %> <% else %> RackPrice <% 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 %> RackPrice <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> RackPrice <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> RackPrice <% 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 %> RackPrice <% else %> RackPrice <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> RackPrice <% end if end if end if end select %> | <% strURL= "/Software/wholesale_petroleum/rackprice_saas" 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 %> RackPrice SaaS <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> RackPrice SaaS <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> RackPrice SaaS <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> RackPrice SaaS <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> RackPrice SaaS <% else if lcase(fileE) <> "default.aspx" then %> <% else %> RackPrice SaaS <% 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 %> RackPrice SaaS <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> RackPrice SaaS <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> RackPrice SaaS <% 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 %> RackPrice SaaS <% else %> RackPrice SaaS <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> RackPrice SaaS <% end if end if end if end select %>