% If IO.File.Exists(server.mappath("/includes/ksstop.aspx")) Then server.execute("/includes/ksstop.aspx") elseif IO.File.Exists(replace(server.mappath("/includes/ksstop.aspx"),"\CMS\","\test\")) Then server.execute("/includestst/ksstop.aspx") End if %> <% Dim getSect as String Dim thissect as String getSect = lcase(Request.ServerVariables("PATH_INFO")) select case true case instr(getSect,"retailpetroleum") > 0 thissect = "1" case instr(getSect,"dealerpricing") > 0 thissect = "2" case instr(getSect,"wholesalepetroleum") > 0 thissect = "3" case instr(getSect,"whymanageprice") > 0 thissect = "4" case instr(getSect,"ourtechnology") > 0 thissect = "5" case instr(getSect,"aboutus") > 0 thissect = "6" case else thissect = "0" end select %>
24 December, 2008
Know How Fuel Affects the Store
03 December, 2008
Maximizing Total Site Volume during Recessionary Times
14 November, 2008
"How to Keep Your Sanity Pricing Fuel in Volatile Times"
The product overviews PDFs:
<%if thissect = "1" then%> PriceNet