Home | <% strURL= "/AboutUs/News" 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 %> News <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> News <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> News <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> News <% else if lcase(fileE) <> "default.aspx" then %> <% else %> News <% 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 %> News <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> News <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> News <% 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 %> News <% else %> News <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News <% end if end if end if end select %> | <% strURL= "/AboutUs/News/default.aspx" 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 %> Latest Press Releases <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Latest Press Releases <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Latest Press Releases <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Latest Press Releases <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Latest Press Releases <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Latest Press Releases <% 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 %> Latest Press Releases <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Latest Press Releases <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Latest Press Releases <% 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 %> Latest Press Releases <% else %> Latest Press Releases <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Latest Press Releases <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2010" 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 %> News 2010 <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News 2010 <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> News 2010 <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> News 2010 <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> News 2010 <% else if lcase(fileE) <> "default.aspx" then %> <% else %> News 2010 <% 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 %> News 2010 <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> News 2010 <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> News 2010 <% 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 %> News 2010 <% else %> News 2010 <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News 2010 <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2010/Status_of_fuel_industry.aspx" 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 %> Status of Fuel Industry Prompts Trend Commentaries from KSS Inc <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Status of Fuel Industry Prompts Trend Commentaries from KSS Inc <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Status of Fuel Industry Prompts Trend Commentaries from KSS Inc <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Status of Fuel Industry Prompts Trend Commentaries from KSS Inc <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Status of Fuel Industry Prompts Trend Commentaries from KSS Inc <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Status of Fuel Industry Prompts Trend Commentaries from KSS Inc <% 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 %> Status of Fuel Industry Prompts Trend Commentaries from KSS Inc <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Status of Fuel Industry Prompts Trend Commentaries from KSS Inc <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Status of Fuel Industry Prompts Trend Commentaries from KSS Inc <% 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 %> Status of Fuel Industry Prompts Trend Commentaries from KSS Inc <% else %> Status of Fuel Industry Prompts Trend Commentaries from KSS Inc <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Status of Fuel Industry Prompts Trend Commentaries from KSS Inc <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2010/kss_expands_sales_organization.aspx" 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 Expands Sales Organization to Address Increasing Demand <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Expands Sales Organization to Address Increasing Demand <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Expands Sales Organization to Address Increasing Demand <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Expands Sales Organization to Address Increasing Demand <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Expands Sales Organization to Address Increasing Demand <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Expands Sales Organization to Address Increasing Demand <% 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 Expands Sales Organization to Address Increasing Demand <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Expands Sales Organization to Address Increasing Demand <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Expands Sales Organization to Address Increasing Demand <% 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 Expands Sales Organization to Address Increasing Demand <% else %> KSS Expands Sales Organization to Address Increasing Demand <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Expands Sales Organization to Address Increasing Demand <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2010/KSS_enters_brazilian_fuels_market.aspx" 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 Enters Brazilian Fuels Market <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Enters Brazilian Fuels Market <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Enters Brazilian Fuels Market <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Enters Brazilian Fuels Market <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Enters Brazilian Fuels Market <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Enters Brazilian Fuels Market <% 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 Enters Brazilian Fuels Market <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Enters Brazilian Fuels Market <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Enters Brazilian Fuels Market <% 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 Enters Brazilian Fuels Market <% else %> KSS Enters Brazilian Fuels Market <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Enters Brazilian Fuels Market <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2010/The_pantry_chooses_KSS_For_fuel_Price_Management.aspx" 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 %> The Pantry Chooses KSS <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> The Pantry Chooses KSS <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> The Pantry Chooses KSS <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> The Pantry Chooses KSS <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> The Pantry Chooses KSS <% else if lcase(fileE) <> "default.aspx" then %> <% else %> The Pantry Chooses KSS <% 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 %> The Pantry Chooses KSS <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> The Pantry Chooses KSS <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> The Pantry Chooses KSS <% 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 %> The Pantry Chooses KSS <% else %> The Pantry Chooses KSS <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> The Pantry Chooses KSS <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2010/wayne_oil_chooses_kss.aspx" 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 %> Wayne Oil Co. Chooses KSS to Manage and Optimize Fuel Pricing <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Wayne Oil Co. Chooses KSS to Manage and Optimize Fuel Pricing <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Wayne Oil Co. Chooses KSS to Manage and Optimize Fuel Pricing <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Wayne Oil Co. Chooses KSS to Manage and Optimize Fuel Pricing <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Wayne Oil Co. Chooses KSS to Manage and Optimize Fuel Pricing <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Wayne Oil Co. Chooses KSS to Manage and Optimize Fuel 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 %> Wayne Oil Co. Chooses KSS to Manage and Optimize Fuel Pricing <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Wayne Oil Co. Chooses KSS to Manage and Optimize Fuel Pricing <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Wayne Oil Co. Chooses KSS to Manage and Optimize Fuel 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 %> Wayne Oil Co. Chooses KSS to Manage and Optimize Fuel Pricing <% else %> Wayne Oil Co. Chooses KSS to Manage and Optimize Fuel Pricing <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Wayne Oil Co. Chooses KSS to Manage and Optimize Fuel Pricing <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2010/gold_certified_partnerships.aspx" 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 Retains Elite Gold Microsoft Partnership <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Retains Elite Gold Microsoft Partnership <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Retains Elite Gold Microsoft Partnership <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Retains Elite Gold Microsoft Partnership <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Retains Elite Gold Microsoft Partnership <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Retains Elite Gold Microsoft Partnership <% 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 Retains Elite Gold Microsoft Partnership <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Retains Elite Gold Microsoft Partnership <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Retains Elite Gold Microsoft Partnership <% 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 Retains Elite Gold Microsoft Partnership <% else %> KSS Retains Elite Gold Microsoft Partnership <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Retains Elite Gold Microsoft Partnership <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2010/new_version_of_kss_rackprice.aspx" 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 %> New Version of KSS Ltd's RackPrice Fuel Price Management Software for Fuel Wholesalers Certified as <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> New Version of KSS Ltd's RackPrice Fuel Price Management Software for Fuel Wholesalers Certified as <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> New Version of KSS Ltd's RackPrice Fuel Price Management Software for Fuel Wholesalers Certified as <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> New Version of KSS Ltd's RackPrice Fuel Price Management Software for Fuel Wholesalers Certified as <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> New Version of KSS Ltd's RackPrice Fuel Price Management Software for Fuel Wholesalers Certified as <% else if lcase(fileE) <> "default.aspx" then %> <% else %> New Version of KSS Ltd's RackPrice Fuel Price Management Software for Fuel Wholesalers Certified as <% 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 %> New Version of KSS Ltd's RackPrice Fuel Price Management Software for Fuel Wholesalers Certified as <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> New Version of KSS Ltd's RackPrice Fuel Price Management Software for Fuel Wholesalers Certified as <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> New Version of KSS Ltd's RackPrice Fuel Price Management Software for Fuel Wholesalers Certified as <% 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 %> New Version of KSS Ltd's RackPrice Fuel Price Management Software for Fuel Wholesalers Certified as <% else %> New Version of KSS Ltd's RackPrice Fuel Price Management Software for Fuel Wholesalers Certified as <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> New Version of KSS Ltd's RackPrice Fuel Price Management Software for Fuel Wholesalers Certified as <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2010/kss_introduces_rack_price_saas.aspx" 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 Introduces RackPrice SaaS for Fuel Wholesalers <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Introduces RackPrice SaaS for Fuel Wholesalers <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Introduces RackPrice SaaS for Fuel Wholesalers <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Introduces RackPrice SaaS for Fuel Wholesalers <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Introduces RackPrice SaaS for Fuel Wholesalers <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Introduces RackPrice SaaS for Fuel Wholesalers <% 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 Introduces RackPrice SaaS for Fuel Wholesalers <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Introduces RackPrice SaaS for Fuel Wholesalers <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Introduces RackPrice SaaS for Fuel Wholesalers <% 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 Introduces RackPrice SaaS for Fuel Wholesalers <% else %> KSS Introduces RackPrice SaaS for Fuel Wholesalers <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Introduces RackPrice SaaS for Fuel Wholesalers <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009" 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 %> News 2009 <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News 2009 <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> News 2009 <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> News 2009 <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> News 2009 <% else if lcase(fileE) <> "default.aspx" then %> <% else %> News 2009 <% 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 %> News 2009 <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> News 2009 <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> News 2009 <% 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 %> News 2009 <% else %> News 2009 <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News 2009 <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/fuel_pricing_command.aspx" 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 launches "Fuel Pricing Command & Control" <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS launches "Fuel Pricing Command & Control" <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS launches "Fuel Pricing Command & Control" <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS launches "Fuel Pricing Command & Control" <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS launches "Fuel Pricing Command & Control" <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS launches "Fuel Pricing Command & Control" <% 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 launches "Fuel Pricing Command & Control" <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS launches "Fuel Pricing Command & Control" <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS launches "Fuel Pricing Command & Control" <% 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 launches "Fuel Pricing Command & Control" <% else %> KSS launches "Fuel Pricing Command & Control" <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS launches "Fuel Pricing Command & Control" <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/KSS_joins_PCATS.aspx" 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 Inc. Joins PCATS <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Inc. Joins PCATS <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Inc. Joins PCATS <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Inc. Joins PCATS <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Inc. Joins PCATS <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Inc. Joins PCATS <% 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 Inc. Joins PCATS <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Inc. Joins PCATS <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Inc. Joins PCATS <% 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 Inc. Joins PCATS <% else %> KSS Inc. Joins PCATS <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Inc. Joins PCATS <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/westex_capital_selects_kss.aspx" 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 %> Westex Capital Selects KSS PriceNet SaaS for Pico, Amigo Chains <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Westex Capital Selects KSS PriceNet SaaS for Pico, Amigo Chains <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Westex Capital Selects KSS PriceNet SaaS for Pico, Amigo Chains <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Westex Capital Selects KSS PriceNet SaaS for Pico, Amigo Chains <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Westex Capital Selects KSS PriceNet SaaS for Pico, Amigo Chains <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Westex Capital Selects KSS PriceNet SaaS for Pico, Amigo Chains <% 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 %> Westex Capital Selects KSS PriceNet SaaS for Pico, Amigo Chains <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Westex Capital Selects KSS PriceNet SaaS for Pico, Amigo Chains <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Westex Capital Selects KSS PriceNet SaaS for Pico, Amigo Chains <% 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 %> Westex Capital Selects KSS PriceNet SaaS for Pico, Amigo Chains <% else %> Westex Capital Selects KSS PriceNet SaaS for Pico, Amigo Chains <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Westex Capital Selects KSS PriceNet SaaS for Pico, Amigo Chains <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/susser_continues_growth.aspx" 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 %> Susser Continues Growth and Success with KSS <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Susser Continues Growth and Success with KSS <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Susser Continues Growth and Success with KSS <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Susser Continues Growth and Success with KSS <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Susser Continues Growth and Success with KSS <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Susser Continues Growth and Success with KSS <% 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 %> Susser Continues Growth and Success with KSS <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Susser Continues Growth and Success with KSS <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Susser Continues Growth and Success with KSS <% 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 %> Susser Continues Growth and Success with KSS <% else %> Susser Continues Growth and Success with KSS <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Susser Continues Growth and Success with KSS <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/using_qlikview.aspx" 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 Inc. Introduces KSS Analytics for Fuel Retailers and Wholesalers <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Inc. Introduces KSS Analytics for Fuel Retailers and Wholesalers <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Inc. Introduces KSS Analytics for Fuel Retailers and Wholesalers <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Inc. Introduces KSS Analytics for Fuel Retailers and Wholesalers <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Inc. Introduces KSS Analytics for Fuel Retailers and Wholesalers <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Inc. Introduces KSS Analytics for Fuel Retailers and Wholesalers <% 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 Inc. Introduces KSS Analytics for Fuel Retailers and Wholesalers <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Inc. Introduces KSS Analytics for Fuel Retailers and Wholesalers <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Inc. Introduces KSS Analytics for Fuel Retailers and Wholesalers <% 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 Inc. Introduces KSS Analytics for Fuel Retailers and Wholesalers <% else %> KSS Inc. Introduces KSS Analytics for Fuel Retailers and Wholesalers <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Inc. Introduces KSS Analytics for Fuel Retailers and Wholesalers <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/profit_tuneup.aspx" 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 Launches "Profit Tune-Up" Service for Fuel Marketers <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Launches "Profit Tune-Up" Service for Fuel Marketers <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Launches "Profit Tune-Up" Service for Fuel Marketers <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Launches "Profit Tune-Up" Service for Fuel Marketers <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Launches "Profit Tune-Up" Service for Fuel Marketers <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Launches "Profit Tune-Up" Service for Fuel 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 %> KSS Launches "Profit Tune-Up" Service for Fuel Marketers <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Launches "Profit Tune-Up" Service for Fuel Marketers <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Launches "Profit Tune-Up" Service for Fuel 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 %> KSS Launches "Profit Tune-Up" Service for Fuel Marketers <% else %> KSS Launches "Profit Tune-Up" Service for Fuel Marketers <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Launches "Profit Tune-Up" Service for Fuel Marketers <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/hosted_solution.aspx" 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 Introduces PriceNet SaaS <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Introduces PriceNet SaaS <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Introduces PriceNet SaaS <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Introduces PriceNet SaaS <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Introduces PriceNet SaaS <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Introduces 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 %> KSS Introduces PriceNet SaaS <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Introduces PriceNet SaaS <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Introduces 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 %> KSS Introduces PriceNet SaaS <% else %> KSS Introduces PriceNet SaaS <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Introduces PriceNet SaaS <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/kss_receives_patent.aspx" 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 Receives Patent for Intelligence Behind RackPrice Software <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Receives Patent for Intelligence Behind RackPrice Software <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Receives Patent for Intelligence Behind RackPrice Software <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Receives Patent for Intelligence Behind RackPrice Software <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Receives Patent for Intelligence Behind RackPrice Software <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Receives Patent for Intelligence Behind RackPrice Software <% 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 Receives Patent for Intelligence Behind RackPrice Software <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Receives Patent for Intelligence Behind RackPrice Software <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Receives Patent for Intelligence Behind RackPrice Software <% 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 Receives Patent for Intelligence Behind RackPrice Software <% else %> KSS Receives Patent for Intelligence Behind RackPrice Software <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Receives Patent for Intelligence Behind RackPrice Software <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/software_named_finalist.aspx" 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 Mapping Software Named Finalist <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Mapping Software Named Finalist <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Mapping Software Named Finalist <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Mapping Software Named Finalist <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Mapping Software Named Finalist <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Mapping Software Named Finalist <% 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 Mapping Software Named Finalist <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Mapping Software Named Finalist <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Mapping Software Named Finalist <% 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 Mapping Software Named Finalist <% else %> KSS Mapping Software Named Finalist <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Mapping Software Named Finalist <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/KSS_consulting_expands_and_launches_dynamic_pricing_and_performance_management.aspx" 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 Latest Press Release... <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Latest Press Release... <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Latest Press Release... <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Latest Press Release... <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Latest Press Release... <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Latest Press Release... <% 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 Latest Press Release... <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Latest Press Release... <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Latest Press Release... <% 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 Latest Press Release... <% else %> KSS Latest Press Release... <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Latest Press Release... <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/kss_retains_highest_level_of_partnership_for_sixth_consecutive_year.aspx" 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 Retains Highest Level of Microsoft Partnership <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Retains Highest Level of Microsoft Partnership <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Retains Highest Level of Microsoft Partnership <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Retains Highest Level of Microsoft Partnership <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Retains Highest Level of Microsoft Partnership <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Retains Highest Level of Microsoft Partnership <% 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 Retains Highest Level of Microsoft Partnership <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Retains Highest Level of Microsoft Partnership <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Retains Highest Level of Microsoft Partnership <% 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 Retains Highest Level of Microsoft Partnership <% else %> KSS Retains Highest Level of Microsoft Partnership <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Retains Highest Level of Microsoft Partnership <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/dailys_convenience_stores_chooses_kss_pricenet_for_fuel_price_management.aspx" 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 %> Daily's Convenience Stores Chooses KSS PriceNet <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Daily's Convenience Stores Chooses KSS PriceNet <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Daily's Convenience Stores Chooses KSS PriceNet <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Daily's Convenience Stores Chooses KSS PriceNet <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Daily's Convenience Stores Chooses KSS PriceNet <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Daily's Convenience Stores Chooses KSS 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 %> Daily's Convenience Stores Chooses KSS PriceNet <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Daily's Convenience Stores Chooses KSS PriceNet <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Daily's Convenience Stores Chooses KSS 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 %> Daily's Convenience Stores Chooses KSS PriceNet <% else %> Daily's Convenience Stores Chooses KSS PriceNet <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Daily's Convenience Stores Chooses KSS PriceNet <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/KSS_guarantees_results.aspx" 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 Guarantees Results from Its Fuel Pricing Solutions <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Guarantees Results from Its Fuel Pricing Solutions <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Guarantees Results from Its Fuel Pricing Solutions <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Guarantees Results from Its Fuel Pricing Solutions <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Guarantees Results from Its Fuel Pricing Solutions <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Guarantees Results from Its Fuel Pricing Solutions <% 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 Guarantees Results from Its Fuel Pricing Solutions <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Guarantees Results from Its Fuel Pricing Solutions <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Guarantees Results from Its Fuel Pricing Solutions <% 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 Guarantees Results from Its Fuel Pricing Solutions <% else %> KSS Guarantees Results from Its Fuel Pricing Solutions <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Guarantees Results from Its Fuel Pricing Solutions <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/Pump_Up_the_Volume.aspx" 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 %> Pump Up the Volume: Fuel Retailers and Wholesalers can <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Pump Up the Volume: Fuel Retailers and Wholesalers can <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Pump Up the Volume: Fuel Retailers and Wholesalers can <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Pump Up the Volume: Fuel Retailers and Wholesalers can <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Pump Up the Volume: Fuel Retailers and Wholesalers can <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Pump Up the Volume: Fuel Retailers and Wholesalers can <% 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 %> Pump Up the Volume: Fuel Retailers and Wholesalers can <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Pump Up the Volume: Fuel Retailers and Wholesalers can <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Pump Up the Volume: Fuel Retailers and Wholesalers can <% 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 %> Pump Up the Volume: Fuel Retailers and Wholesalers can <% else %> Pump Up the Volume: Fuel Retailers and Wholesalers can <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Pump Up the Volume: Fuel Retailers and Wholesalers can <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/Latest_KSS_PriceNet_software_supports_volume_and_profit_growth_strategies.aspx" 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 %> Latest KSS PriceNet software supports volume and profit growth strategies <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Latest KSS PriceNet software supports volume and profit growth strategies <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Latest KSS PriceNet software supports volume and profit growth strategies <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Latest KSS PriceNet software supports volume and profit growth strategies <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Latest KSS PriceNet software supports volume and profit growth strategies <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Latest KSS PriceNet software supports volume and profit growth strategies <% 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 %> Latest KSS PriceNet software supports volume and profit growth strategies <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Latest KSS PriceNet software supports volume and profit growth strategies <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Latest KSS PriceNet software supports volume and profit growth strategies <% 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 %> Latest KSS PriceNet software supports volume and profit growth strategies <% else %> Latest KSS PriceNet software supports volume and profit growth strategies <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Latest KSS PriceNet software supports volume and profit growth strategies <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2009/New_Version_of_KSS_RackPrice_Addresses_Wholesale_Fuel_Profitability.aspx" 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 %> New Version of KSS RackPrice Addresses Wholesale Fuel Profitability <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> New Version of KSS RackPrice Addresses Wholesale Fuel Profitability <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> New Version of KSS RackPrice Addresses Wholesale Fuel Profitability <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> New Version of KSS RackPrice Addresses Wholesale Fuel Profitability <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> New Version of KSS RackPrice Addresses Wholesale Fuel Profitability <% else if lcase(fileE) <> "default.aspx" then %> <% else %> New Version of KSS RackPrice Addresses Wholesale Fuel Profitability <% 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 %> New Version of KSS RackPrice Addresses Wholesale Fuel Profitability <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> New Version of KSS RackPrice Addresses Wholesale Fuel Profitability <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> New Version of KSS RackPrice Addresses Wholesale Fuel Profitability <% 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 %> New Version of KSS RackPrice Addresses Wholesale Fuel Profitability <% else %> New Version of KSS RackPrice Addresses Wholesale Fuel Profitability <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> New Version of KSS RackPrice Addresses Wholesale Fuel Profitability <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008" 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 %> News 2008 <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News 2008 <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> News 2008 <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> News 2008 <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> News 2008 <% else if lcase(fileE) <> "default.aspx" then %> <% else %> News 2008 <% 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 %> News 2008 <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> News 2008 <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> News 2008 <% 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 %> News 2008 <% else %> News 2008 <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News 2008 <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/feb_18.aspx" 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 renews Microsoft Partnership at Highest Level <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS renews Microsoft Partnership at Highest Level <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS renews Microsoft Partnership at Highest Level <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS renews Microsoft Partnership at Highest Level <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS renews Microsoft Partnership at Highest Level <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS renews Microsoft Partnership at Highest Level <% 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 renews Microsoft Partnership at Highest Level <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS renews Microsoft Partnership at Highest Level <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS renews Microsoft Partnership at Highest Level <% 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 renews Microsoft Partnership at Highest Level <% else %> KSS renews Microsoft Partnership at Highest Level <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS renews Microsoft Partnership at Highest Level <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/RickerOilExpandsKSSPriceNetUsage.aspx" 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 %> Ricker Oil Expands KSS PriceNet Usage <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Ricker Oil Expands KSS PriceNet Usage <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Ricker Oil Expands KSS PriceNet Usage <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Ricker Oil Expands KSS PriceNet Usage <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Ricker Oil Expands KSS PriceNet Usage <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Ricker Oil Expands KSS PriceNet Usage <% 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 %> Ricker Oil Expands KSS PriceNet Usage <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Ricker Oil Expands KSS PriceNet Usage <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Ricker Oil Expands KSS PriceNet Usage <% 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 %> Ricker Oil Expands KSS PriceNet Usage <% else %> Ricker Oil Expands KSS PriceNet Usage <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Ricker Oil Expands KSS PriceNet Usage <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/SusserHoldingsAnnouncesRolloutOfKSSPriceNetToStripesStores.aspx" 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 %> Susser Holdings announces rollout of KSS PriceNet to Stripes stores <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Susser Holdings announces rollout of KSS PriceNet to Stripes stores <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Susser Holdings announces rollout of KSS PriceNet to Stripes stores <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Susser Holdings announces rollout of KSS PriceNet to Stripes stores <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Susser Holdings announces rollout of KSS PriceNet to Stripes stores <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Susser Holdings announces rollout of KSS PriceNet to Stripes stores <% 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 %> Susser Holdings announces rollout of KSS PriceNet to Stripes stores <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Susser Holdings announces rollout of KSS PriceNet to Stripes stores <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Susser Holdings announces rollout of KSS PriceNet to Stripes stores <% 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 %> Susser Holdings announces rollout of KSS PriceNet to Stripes stores <% else %> Susser Holdings announces rollout of KSS PriceNet to Stripes stores <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Susser Holdings announces rollout of KSS PriceNet to Stripes stores <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/KSS_Releases_PriceNet_Dealer_Pricing.aspx" 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 Releases PriceNet Dealer Pricing <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Releases PriceNet Dealer Pricing <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Releases PriceNet Dealer Pricing <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Releases PriceNet Dealer Pricing <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Releases PriceNet Dealer Pricing <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Releases 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 %> KSS Releases PriceNet Dealer Pricing <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Releases PriceNet Dealer Pricing <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Releases 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 %> KSS Releases PriceNet Dealer Pricing <% else %> KSS Releases PriceNet Dealer Pricing <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Releases PriceNet Dealer Pricing <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/CircleKExpandsKSSPriceNetUsage.aspx" 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 %> Circle K Expands KSS PriceNet Usage <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Circle K Expands KSS PriceNet Usage <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Circle K Expands KSS PriceNet Usage <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Circle K Expands KSS PriceNet Usage <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Circle K Expands KSS PriceNet Usage <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Circle K Expands KSS PriceNet Usage <% 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 %> Circle K Expands KSS PriceNet Usage <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Circle K Expands KSS PriceNet Usage <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Circle K Expands KSS PriceNet Usage <% 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 %> Circle K Expands KSS PriceNet Usage <% else %> Circle K Expands KSS PriceNet Usage <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Circle K Expands KSS PriceNet Usage <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/KSSReleasesMapBasedBusinessIntelligenceTool.aspx" 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 Releases Map-based Business Intelligence Tool <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Releases Map-based Business Intelligence Tool <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Releases Map-based Business Intelligence Tool <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Releases Map-based Business Intelligence Tool <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Releases Map-based Business Intelligence Tool <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Releases Map-based Business Intelligence Tool <% 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 Releases Map-based Business Intelligence Tool <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Releases Map-based Business Intelligence Tool <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Releases Map-based Business Intelligence Tool <% 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 Releases Map-based Business Intelligence Tool <% else %> KSS Releases Map-based Business Intelligence Tool <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Releases Map-based Business Intelligence Tool <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/KSS_Reports_Record_Revenues_Profitability_and_New_Customer_Installs_for_Fiscal_2008.aspx" 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 Reports Record Revenues, Profitability and New Customer Installs for Fiscal 2008 <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Reports Record Revenues, Profitability and New Customer Installs for Fiscal 2008 <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Reports Record Revenues, Profitability and New Customer Installs for Fiscal 2008 <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Reports Record Revenues, Profitability and New Customer Installs for Fiscal 2008 <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Reports Record Revenues, Profitability and New Customer Installs for Fiscal 2008 <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Reports Record Revenues, Profitability and New Customer Installs for Fiscal 2008 <% 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 Reports Record Revenues, Profitability and New Customer Installs for Fiscal 2008 <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Reports Record Revenues, Profitability and New Customer Installs for Fiscal 2008 <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Reports Record Revenues, Profitability and New Customer Installs for Fiscal 2008 <% 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 Reports Record Revenues, Profitability and New Customer Installs for Fiscal 2008 <% else %> KSS Reports Record Revenues, Profitability and New Customer Installs for Fiscal 2008 <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Reports Record Revenues, Profitability and New Customer Installs for Fiscal 2008 <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/KSSPriceNetSoftwareWinsCSPsRetailerChoiceBestNewProductContest2008.aspx" 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 PriceNet Software Wins CSP's Retailer Choice Best New Product Contest 2008 <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS PriceNet Software Wins CSP's Retailer Choice Best New Product Contest 2008 <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS PriceNet Software Wins CSP's Retailer Choice Best New Product Contest 2008 <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS PriceNet Software Wins CSP's Retailer Choice Best New Product Contest 2008 <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS PriceNet Software Wins CSP's Retailer Choice Best New Product Contest 2008 <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS PriceNet Software Wins CSP's Retailer Choice Best New Product Contest 2008 <% 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 PriceNet Software Wins CSP's Retailer Choice Best New Product Contest 2008 <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS PriceNet Software Wins CSP's Retailer Choice Best New Product Contest 2008 <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS PriceNet Software Wins CSP's Retailer Choice Best New Product Contest 2008 <% 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 PriceNet Software Wins CSP's Retailer Choice Best New Product Contest 2008 <% else %> KSS PriceNet Software Wins CSP's Retailer Choice Best New Product Contest 2008 <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS PriceNet Software Wins CSP's Retailer Choice Best New Product Contest 2008 <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/KSSReinforcesCommitmenttoitsCustomers.aspx" 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 Reinforces Commitment to its Customers <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Reinforces Commitment to its Customers <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Reinforces Commitment to its Customers <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Reinforces Commitment to its Customers <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Reinforces Commitment to its Customers <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Reinforces Commitment to its Customers <% 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 Reinforces Commitment to its Customers <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Reinforces Commitment to its Customers <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Reinforces Commitment to its Customers <% 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 Reinforces Commitment to its Customers <% else %> KSS Reinforces Commitment to its Customers <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Reinforces Commitment to its Customers <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/KSSUnlocksNewStrategiesforHandlingReducedFuelDemand.aspx" 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 Unlocks New Strategies for Handling Reduced Fuel Demand <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% 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 Unlocks New Strategies for Handling Reduced Fuel Demand <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% 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 Unlocks New Strategies for Handling Reduced Fuel Demand <% else %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/KSS_unlocks_new_strategies_for_handling_reduced_fuel_demand.aspx" 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 Unlocks New Strategies for Handling Reduced Fuel Demand <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% 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 Unlocks New Strategies for Handling Reduced Fuel Demand <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% 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 Unlocks New Strategies for Handling Reduced Fuel Demand <% else %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Unlocks New Strategies for Handling Reduced Fuel Demand <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/giant_carlisle_to_manage_fuel_pricing_with_kss_software.aspx" 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 %> Giant-Carlisle to manage fuel pricing with KSS software <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Giant-Carlisle to manage fuel pricing with KSS software <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Giant-Carlisle to manage fuel pricing with KSS software <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Giant-Carlisle to manage fuel pricing with KSS software <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Giant-Carlisle to manage fuel pricing with KSS software <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Giant-Carlisle to manage fuel pricing with KSS software <% 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 %> Giant-Carlisle to manage fuel pricing with KSS software <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Giant-Carlisle to manage fuel pricing with KSS software <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Giant-Carlisle to manage fuel pricing with KSS software <% 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 %> Giant-Carlisle to manage fuel pricing with KSS software <% else %> Giant-Carlisle to manage fuel pricing with KSS software <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Giant-Carlisle to manage fuel pricing with KSS software <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/Gulf_oil_selects_kss_fuels_pricing.aspx" 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 %> Gulf Oil Selects KSS Fuels Pricing and Business Intelligence Solutions <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Gulf Oil Selects KSS Fuels Pricing and Business Intelligence Solutions <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Gulf Oil Selects KSS Fuels Pricing and Business Intelligence Solutions <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Gulf Oil Selects KSS Fuels Pricing and Business Intelligence Solutions <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Gulf Oil Selects KSS Fuels Pricing and Business Intelligence Solutions <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Gulf Oil Selects KSS Fuels Pricing and Business Intelligence Solutions <% 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 %> Gulf Oil Selects KSS Fuels Pricing and Business Intelligence Solutions <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Gulf Oil Selects KSS Fuels Pricing and Business Intelligence Solutions <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Gulf Oil Selects KSS Fuels Pricing and Business Intelligence Solutions <% 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 %> Gulf Oil Selects KSS Fuels Pricing and Business Intelligence Solutions <% else %> Gulf Oil Selects KSS Fuels Pricing and Business Intelligence Solutions <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Gulf Oil Selects KSS Fuels Pricing and Business Intelligence Solutions <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/KSS_Pricenet_Expands_Network_of_circle_K_Sites.aspx" 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 PriceNet Expands Network of Circle K Sites <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS PriceNet Expands Network of Circle K Sites <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS PriceNet Expands Network of Circle K Sites <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS PriceNet Expands Network of Circle K Sites <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS PriceNet Expands Network of Circle K Sites <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS PriceNet Expands Network of Circle K Sites <% 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 PriceNet Expands Network of Circle K Sites <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS PriceNet Expands Network of Circle K Sites <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS PriceNet Expands Network of Circle K Sites <% 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 PriceNet Expands Network of Circle K Sites <% else %> KSS PriceNet Expands Network of Circle K Sites <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS PriceNet Expands Network of Circle K Sites <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/Susser_holdings_corp_selects_KSS_PriceNet_Fuels_Pricng_Solution.aspx" 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 %> Susser Holdings Corp selects KSS PriceNet Fuels Pricing Solution <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Susser Holdings Corp selects KSS PriceNet Fuels Pricing Solution <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Susser Holdings Corp selects KSS PriceNet Fuels Pricing Solution <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Susser Holdings Corp selects KSS PriceNet Fuels Pricing Solution <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Susser Holdings Corp selects KSS PriceNet Fuels Pricing Solution <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Susser Holdings Corp selects KSS PriceNet Fuels Pricing Solution <% 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 %> Susser Holdings Corp selects KSS PriceNet Fuels Pricing Solution <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Susser Holdings Corp selects KSS PriceNet Fuels Pricing Solution <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Susser Holdings Corp selects KSS PriceNet Fuels Pricing Solution <% 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 %> Susser Holdings Corp selects KSS PriceNet Fuels Pricing Solution <% else %> Susser Holdings Corp selects KSS PriceNet Fuels Pricing Solution <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Susser Holdings Corp selects KSS PriceNet Fuels Pricing Solution <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/KSSStrengthensTeamwithIndustryExpert.aspx" 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 Strengthens Team with Industry Expert <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Strengthens Team with Industry Expert <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Strengthens Team with Industry Expert <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Strengthens Team with Industry Expert <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Strengthens Team with Industry Expert <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Strengthens Team with Industry Expert <% 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 Strengthens Team with Industry Expert <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Strengthens Team with Industry Expert <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Strengthens Team with Industry Expert <% 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 Strengthens Team with Industry Expert <% else %> KSS Strengthens Team with Industry Expert <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Strengthens Team with Industry Expert <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/KSSHasReleasedANewWhitePaperForPetroleumRetailers.aspx" 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 Reveals Top Tips for Fuels Retailers in New Volatility White Paper <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Reveals Top Tips for Fuels Retailers in New Volatility White Paper <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Reveals Top Tips for Fuels Retailers in New Volatility White Paper <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Reveals Top Tips for Fuels Retailers in New Volatility White Paper <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Reveals Top Tips for Fuels Retailers in New Volatility White Paper <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Reveals Top Tips for Fuels Retailers in New Volatility White Paper <% 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 Reveals Top Tips for Fuels Retailers in New Volatility White Paper <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Reveals Top Tips for Fuels Retailers in New Volatility White Paper <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Reveals Top Tips for Fuels Retailers in New Volatility White Paper <% 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 Reveals Top Tips for Fuels Retailers in New Volatility White Paper <% else %> KSS Reveals Top Tips for Fuels Retailers in New Volatility White Paper <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Reveals Top Tips for Fuels Retailers in New Volatility White Paper <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/update_to_rackprice.aspx" 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 Releases Update to RackPrice Wholesale Fuels Pricing System <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Releases Update to RackPrice Wholesale Fuels Pricing System <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Releases Update to RackPrice Wholesale Fuels Pricing System <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Releases Update to RackPrice Wholesale Fuels Pricing System <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Releases Update to RackPrice Wholesale Fuels Pricing System <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Releases Update to RackPrice Wholesale Fuels Pricing System <% 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 Releases Update to RackPrice Wholesale Fuels Pricing System <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Releases Update to RackPrice Wholesale Fuels Pricing System <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Releases Update to RackPrice Wholesale Fuels Pricing System <% 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 Releases Update to RackPrice Wholesale Fuels Pricing System <% else %> KSS Releases Update to RackPrice Wholesale Fuels Pricing System <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Releases Update to RackPrice Wholesale Fuels Pricing System <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/BrookshireGrocerySelectsKSSsolutions.aspx" 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 %> Brookshire Grocery Co. Selects KSS Solutions for Fuels Pricing <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Brookshire Grocery Co. Selects KSS Solutions for Fuels Pricing <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Brookshire Grocery Co. Selects KSS Solutions for Fuels Pricing <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Brookshire Grocery Co. Selects KSS Solutions for Fuels Pricing <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Brookshire Grocery Co. Selects KSS Solutions for Fuels Pricing <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Brookshire Grocery Co. Selects KSS Solutions for Fuels 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 %> Brookshire Grocery Co. Selects KSS Solutions for Fuels Pricing <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Brookshire Grocery Co. Selects KSS Solutions for Fuels Pricing <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Brookshire Grocery Co. Selects KSS Solutions for Fuels 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 %> Brookshire Grocery Co. Selects KSS Solutions for Fuels Pricing <% else %> Brookshire Grocery Co. Selects KSS Solutions for Fuels Pricing <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Brookshire Grocery Co. Selects KSS Solutions for Fuels Pricing <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/KSSDoubleVision.aspx" 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 Double Vision <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Double Vision <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Double Vision <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Double Vision <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Double Vision <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Double Vision <% 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 Double Vision <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Double Vision <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Double Vision <% 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 Double Vision <% else %> KSS Double Vision <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Double Vision <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/KSSannounceslatesversionofpricenet.aspx" 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 %> Latest KSS PriceNet 4.6 release helps address volatility, compliance and biofuels pricing <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Latest KSS PriceNet 4.6 release helps address volatility, compliance and biofuels pricing <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Latest KSS PriceNet 4.6 release helps address volatility, compliance and biofuels pricing <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Latest KSS PriceNet 4.6 release helps address volatility, compliance and biofuels pricing <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Latest KSS PriceNet 4.6 release helps address volatility, compliance and biofuels pricing <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Latest KSS PriceNet 4.6 release helps address volatility, compliance and biofuels 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 %> Latest KSS PriceNet 4.6 release helps address volatility, compliance and biofuels pricing <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Latest KSS PriceNet 4.6 release helps address volatility, compliance and biofuels pricing <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Latest KSS PriceNet 4.6 release helps address volatility, compliance and biofuels 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 %> Latest KSS PriceNet 4.6 release helps address volatility, compliance and biofuels pricing <% else %> Latest KSS PriceNet 4.6 release helps address volatility, compliance and biofuels pricing <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Latest KSS PriceNet 4.6 release helps address volatility, compliance and biofuels pricing <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/landmarktenthimplementation.aspx" 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 announces landmark tenth implementation of PriceNet with multi-national fuels supplier and marketer <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS announces landmark tenth implementation of PriceNet with multi-national fuels supplier and marketer <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS announces landmark tenth implementation of PriceNet with multi-national fuels supplier and marketer <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS announces landmark tenth implementation of PriceNet with multi-national fuels supplier and marketer <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS announces landmark tenth implementation of PriceNet with multi-national fuels supplier and marketer <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS announces landmark tenth implementation of PriceNet with multi-national fuels supplier and marketer <% 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 announces landmark tenth implementation of PriceNet with multi-national fuels supplier and marketer <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS announces landmark tenth implementation of PriceNet with multi-national fuels supplier and marketer <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS announces landmark tenth implementation of PriceNet with multi-national fuels supplier and marketer <% 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 announces landmark tenth implementation of PriceNet with multi-national fuels supplier and marketer <% else %> KSS announces landmark tenth implementation of PriceNet with multi-national fuels supplier and marketer <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS announces landmark tenth implementation of PriceNet with multi-national fuels supplier and marketer <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/KSSChairsPetroForum.aspx" 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 VP Chairs Major Petroleum Conference <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS VP Chairs Major Petroleum Conference <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS VP Chairs Major Petroleum Conference <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS VP Chairs Major Petroleum Conference <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS VP Chairs Major Petroleum Conference <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS VP Chairs Major Petroleum Conference <% 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 VP Chairs Major Petroleum Conference <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS VP Chairs Major Petroleum Conference <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS VP Chairs Major Petroleum Conference <% 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 VP Chairs Major Petroleum Conference <% else %> KSS VP Chairs Major Petroleum Conference <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS VP Chairs Major Petroleum Conference <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/westernrefining.aspx" 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 %> Western Refining selects KSS fuels pricing management system <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Western Refining selects KSS fuels pricing management system <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Western Refining selects KSS fuels pricing management system <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Western Refining selects KSS fuels pricing management system <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Western Refining selects KSS fuels pricing management system <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Western Refining selects KSS fuels pricing management system <% 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 %> Western Refining selects KSS fuels pricing management system <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Western Refining selects KSS fuels pricing management system <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Western Refining selects KSS fuels pricing management system <% 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 %> Western Refining selects KSS fuels pricing management system <% else %> Western Refining selects KSS fuels pricing management system <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Western Refining selects KSS fuels pricing management system <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/PriceNetSelected.aspx" 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 %> GPM Investments, LLC Streamlines Fuel Pricing with KSS PriceNet <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> GPM Investments, LLC Streamlines Fuel Pricing with KSS PriceNet <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> GPM Investments, LLC Streamlines Fuel Pricing with KSS PriceNet <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> GPM Investments, LLC Streamlines Fuel Pricing with KSS PriceNet <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> GPM Investments, LLC Streamlines Fuel Pricing with KSS PriceNet <% else if lcase(fileE) <> "default.aspx" then %> <% else %> GPM Investments, LLC Streamlines Fuel Pricing with KSS 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 %> GPM Investments, LLC Streamlines Fuel Pricing with KSS PriceNet <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> GPM Investments, LLC Streamlines Fuel Pricing with KSS PriceNet <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> GPM Investments, LLC Streamlines Fuel Pricing with KSS 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 %> GPM Investments, LLC Streamlines Fuel Pricing with KSS PriceNet <% else %> GPM Investments, LLC Streamlines Fuel Pricing with KSS PriceNet <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> GPM Investments, LLC Streamlines Fuel Pricing with KSS PriceNet <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/jan_28.aspx" 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 RackPrice and PriceNet become SAP-Endorsed Business Solutions <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS RackPrice and PriceNet become SAP-Endorsed Business Solutions <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS RackPrice and PriceNet become SAP-Endorsed Business Solutions <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS RackPrice and PriceNet become SAP-Endorsed Business Solutions <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS RackPrice and PriceNet become SAP-Endorsed Business Solutions <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS RackPrice and PriceNet become SAP-Endorsed Business Solutions <% 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 RackPrice and PriceNet become SAP-Endorsed Business Solutions <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS RackPrice and PriceNet become SAP-Endorsed Business Solutions <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS RackPrice and PriceNet become SAP-Endorsed Business Solutions <% 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 RackPrice and PriceNet become SAP-Endorsed Business Solutions <% else %> KSS RackPrice and PriceNet become SAP-Endorsed Business Solutions <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS RackPrice and PriceNet become SAP-Endorsed Business Solutions <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2008/feb_13.aspx" 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 %> Wesco selects KSS fuels pricing suite to improve customer service <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Wesco selects KSS fuels pricing suite to improve customer service <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Wesco selects KSS fuels pricing suite to improve customer service <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Wesco selects KSS fuels pricing suite to improve customer service <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Wesco selects KSS fuels pricing suite to improve customer service <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Wesco selects KSS fuels pricing suite to improve customer service <% 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 %> Wesco selects KSS fuels pricing suite to improve customer service <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Wesco selects KSS fuels pricing suite to improve customer service <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Wesco selects KSS fuels pricing suite to improve customer service <% 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 %> Wesco selects KSS fuels pricing suite to improve customer service <% else %> Wesco selects KSS fuels pricing suite to improve customer service <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Wesco selects KSS fuels pricing suite to improve customer service <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007" 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 %> News 2007 <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News 2007 <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> News 2007 <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> News 2007 <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> News 2007 <% else if lcase(fileE) <> "default.aspx" then %> <% else %> News 2007 <% 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 %> News 2007 <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> News 2007 <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> News 2007 <% 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 %> News 2007 <% else %> News 2007 <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News 2007 <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007/Dec_10.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007/Feb_8.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007/Feb_15.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007/Feb_16.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007/March_21.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007/March_27.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007/April_4.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007/April_17.aspx" 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 presents fuel pricing study at NACS State of Industry Conference <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS presents fuel pricing study at NACS State of Industry Conference <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS presents fuel pricing study at NACS State of Industry Conference <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS presents fuel pricing study at NACS State of Industry Conference <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS presents fuel pricing study at NACS State of Industry Conference <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS presents fuel pricing study at NACS State of Industry Conference <% 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 presents fuel pricing study at NACS State of Industry Conference <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS presents fuel pricing study at NACS State of Industry Conference <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS presents fuel pricing study at NACS State of Industry Conference <% 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 presents fuel pricing study at NACS State of Industry Conference <% else %> KSS presents fuel pricing study at NACS State of Industry Conference <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS presents fuel pricing study at NACS State of Industry Conference <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007/July_10.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007/July_23.aspx" 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 announces new licensee for RackPrice wholesale fuels pricing system <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS announces new licensee for RackPrice wholesale fuels pricing system <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS announces new licensee for RackPrice wholesale fuels pricing system <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS announces new licensee for RackPrice wholesale fuels pricing system <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS announces new licensee for RackPrice wholesale fuels pricing system <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS announces new licensee for RackPrice wholesale fuels pricing system <% 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 announces new licensee for RackPrice wholesale fuels pricing system <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS announces new licensee for RackPrice wholesale fuels pricing system <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS announces new licensee for RackPrice wholesale fuels pricing system <% 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 announces new licensee for RackPrice wholesale fuels pricing system <% else %> KSS announces new licensee for RackPrice wholesale fuels pricing system <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS announces new licensee for RackPrice wholesale fuels pricing system <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007/Aug_2.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007/Sept_24.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007/Oct_24.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007/Oct_29.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2007/Nov_5.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2006" 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 %> News 2006 <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News 2006 <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> News 2006 <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> News 2006 <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> News 2006 <% else if lcase(fileE) <> "default.aspx" then %> <% else %> News 2006 <% 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 %> News 2006 <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> News 2006 <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> News 2006 <% 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 %> News 2006 <% else %> News 2006 <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News 2006 <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2006/default.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2006/jan26_2006.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2006/April21_2006.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2006/may10_2006.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2006/may19_2006.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2006/July25_2006.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2006/Aug14_2006.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2006/Sept14_2006.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2006/Oct3a_2006.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2006/Oct3_2006.aspx" 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 %> Pinnacle Partners with KSS <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Pinnacle Partners with KSS <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Pinnacle Partners with KSS <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Pinnacle Partners with KSS <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Pinnacle Partners with KSS <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Pinnacle Partners with KSS <% 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 %> Pinnacle Partners with KSS <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Pinnacle Partners with KSS <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Pinnacle Partners with KSS <% 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 %> Pinnacle Partners with KSS <% else %> Pinnacle Partners with KSS <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Pinnacle Partners with KSS <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2006/Oct9_2006.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2006/Oct24_2006.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2006/Aug11_2006.aspx" 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 %> <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> <% else if lcase(fileE) <> "default.aspx" then %> <% else %> <% 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 %> <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> <% 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 %> <% else %> <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2006/Nov18_2006.aspx" 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 Releases Fuel Pricing Study at Outlook Leadership Conference <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Releases Fuel Pricing Study at Outlook Leadership Conference <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> KSS Releases Fuel Pricing Study at Outlook Leadership Conference <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> KSS Releases Fuel Pricing Study at Outlook Leadership Conference <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> KSS Releases Fuel Pricing Study at Outlook Leadership Conference <% else if lcase(fileE) <> "default.aspx" then %> <% else %> KSS Releases Fuel Pricing Study at Outlook Leadership Conference <% 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 Releases Fuel Pricing Study at Outlook Leadership Conference <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> KSS Releases Fuel Pricing Study at Outlook Leadership Conference <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> KSS Releases Fuel Pricing Study at Outlook Leadership Conference <% 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 Releases Fuel Pricing Study at Outlook Leadership Conference <% else %> KSS Releases Fuel Pricing Study at Outlook Leadership Conference <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> KSS Releases Fuel Pricing Study at Outlook Leadership Conference <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news_2005" 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 %> News 2005 <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News 2005 <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> News 2005 <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> News 2005 <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> News 2005 <% else if lcase(fileE) <> "default.aspx" then %> <% else %> News 2005 <% 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 %> News 2005 <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> News 2005 <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> News 2005 <% 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 %> News 2005 <% else %> News 2005 <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News 2005 <% end if end if end if end select %> | <% strURL= "/AboutUs/News/news2004" 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 %> News 2004 <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News 2004 <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> News 2004 <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> News 2004 <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> News 2004 <% else if lcase(fileE) <> "default.aspx" then %> <% else %> News 2004 <% 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 %> News 2004 <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> News 2004 <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> News 2004 <% 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 %> News 2004 <% else %> News 2004 <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News 2004 <% end if end if end if end select %> | <% strURL= "/AboutUs/News_articles" 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 %> News Articles <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News Articles <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> News Articles <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> News Articles <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> News Articles <% else if lcase(fileE) <> "default.aspx" then %> <% else %> News Articles <% 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 %> News Articles <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> News Articles <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> News Articles <% 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 %> News Articles <% else %> News Articles <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News Articles <% end if end if end if end select %> | <% strURL= "/AboutUs/News_articles/news_atricles_2008" 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 %> News Articles 2008 <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News Articles 2008 <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> News Articles 2008 <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> News Articles 2008 <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> News Articles 2008 <% else if lcase(fileE) <> "default.aspx" then %> <% else %> News Articles 2008 <% 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 %> News Articles 2008 <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> News Articles 2008 <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> News Articles 2008 <% 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 %> News Articles 2008 <% else %> News Articles 2008 <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News Articles 2008 <% end if end if end if end select %> | <% strURL= "/AboutUs/News_articles/news_articles_2007" 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 %> News Articles 2007 <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News Articles 2007 <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> News Articles 2007 <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> News Articles 2007 <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> News Articles 2007 <% else if lcase(fileE) <> "default.aspx" then %> <% else %> News Articles 2007 <% 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 %> News Articles 2007 <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> News Articles 2007 <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> News Articles 2007 <% 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 %> News Articles 2007 <% else %> News Articles 2007 <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> News Articles 2007 <% end if end if end if end select %> | <% strURL= "/AboutUs/Management_Team" 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 %> Management Team <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Management Team <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Management Team <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Management Team <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Management Team <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Management Team <% 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 %> Management Team <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Management Team <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Management Team <% 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 %> Management Team <% else %> Management Team <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Management Team <% end if end if end if end select %> | <% strURL= "/AboutUs/events" 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 %> Events <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Events <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Events <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Events <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Events <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Events <% 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 %> Events <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Events <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Events <% 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 %> Events <% else %> Events <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Events <% end if end if end if end select %> | <% strURL= "/AboutUs/clients" 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 %> Clients <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Clients <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Clients <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Clients <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Clients <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Clients <% 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 %> Clients <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Clients <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Clients <% 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 %> Clients <% else %> Clients <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Clients <% end if end if end if end select %> | <% strURL= "/AboutUs/clients/client_quotes" 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 %> Client Quotes <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Client Quotes <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Client Quotes <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Client Quotes <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Client Quotes <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Client Quotes <% 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 %> Client Quotes <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Client Quotes <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Client Quotes <% 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 %> Client Quotes <% else %> Client Quotes <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Client Quotes <% end if end if end if end select %> | <% strURL= "/AboutUs/partners" 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 %> Partners <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Partners <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Partners <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Partners <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Partners <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Partners <% 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 %> Partners <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Partners <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Partners <% 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 %> Partners <% else %> Partners <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Partners <% end if end if end if end select %> | <% strURL= "/AboutUs/professional_associations" 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 %> Professional Associations <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Professional Associations <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Professional Associations <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Professional Associations <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Professional Associations <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Professional Associations <% 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 %> Professional Associations <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Professional Associations <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Professional Associations <% 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 %> Professional Associations <% else %> Professional Associations <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Professional Associations <% end if end if end if end select %> | <% strURL= "/AboutUs/Whitepapers" 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 %> Whitepapers <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Whitepapers <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Whitepapers <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Whitepapers <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Whitepapers <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Whitepapers <% 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 %> Whitepapers <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Whitepapers <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Whitepapers <% 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 %> Whitepapers <% else %> Whitepapers <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Whitepapers <% end if end if end if end select %> | <% strURL= "/AboutUs/CaseStudies" 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 %> Case Studies <% end if case 3 if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Case Studies <% else if instr(lcase(cutPath),lcase(cutURL)) <> 0 and lcase(fileE) = "default.aspx" then %> Case Studies <% else if lcase(strURL) = lcase(currPath) and lcase(fileE) <> "default.aspx" then %> Case Studies <% else if lcase(fileE) <> "default.aspx" and lcase(left(strURL,len(findChar))) = lcase(findChar) and lcase(cutPath) <> lcase(topLev) then %> Case Studies <% else if lcase(fileE) <> "default.aspx" then %> <% else %> Case Studies <% 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 %> Case Studies <% elseif instr(lcase(findChar),lcase(backone)) <> 0 then %> Case Studies <% else if instr(lcase(cutURL),lcase(cutPath)) <> 0 then %> Case Studies <% 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 %> Case Studies <% else %> Case Studies <% end if else if lcase(strURL) = lcase(currPath) and lcase(fileE) = "default.aspx" then %> Case Studies <% end if end if end if end select %>