%
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,"software") > 0
thissect = "1"
case instr(getSect,"analytics") > 0
thissect = "2"
case instr(getSect,"consulting") > 0
thissect = "3"
case instr(getSect,"pricemanagement") > 0
thissect = "4"
case instr(getSect,"ourtechnology") > 0
thissect = "5"
case instr(getSect,"aboutus") > 0
thissect = "6"
case else
thissect = "0"
end select
%>
<%
dim ActiveURL as string = Request.ServerVariables("URL")
Dim reSpl = split(ActiveURL,"/")
dim getTotalDir as string
getTotalDir = "/" + reSpl(0) + "/" + reSpl(1) + "/"
dim stFilePath as string = server.mappath(getTotalDir + "leftmenu.aspx")
If IO.File.Exists(stFilePath) Then
server.execute(getTotalDir + "leftmenu.aspx")
End if
%>
CEO Corner
Happy New Year and a resolution for a quick economic recovery in 2009
Despite the economic crisis the world experienced in the closing months of 2008, 2009 begins as every New Year should with renewed optimism and hope.
Where can we look for optimism and hope?
A new administration in the United States
Realization that every country’s economy is intertwined with the global economy
More cooperation and collaboration between countries to solve economic woes and spur growth
Politicians throughout the world with a common focus and goal: “Fix the Economy”
Lessons learned to build a better future
Taking care of business with attention to detail and getting back to the basics
Realizing the value and importance of family and friends
The economy can and will recover in 2009 with each of our individual and collective efforts
We at KSS begin 2009 hopeful and optimistic:
Thankful for our valued customers in 22 countries throughout the world
Committed to outstanding support and value-added benefits to our customers
New product releases for each of our fuel pricing solutions; Retail Pricing, Dealer Pricing and Wholesale Pricing
Launch KSS Consultancy Division to bring our best practices knowledge and experience to customers and new prospects
New service offering and product to analyze fuel gallons and store merchandise sales, thereby pricing for the total site benefit
Convince prospects that the benefit of better process, automation, business intelligence, using historical data and speed of execution does increase profits
Finally I want to thank the great staff of KSS for their tremendous efforts in 2008. We have great Fuel Pricing Solutions, but it is our professional, experienced and customer-oriented staff that creates value for our clients.
If you are currently a KSS customer, thank you and we will do even more for you in 2009. If you are not yet a customer, we will increase our efforts to demonstrate the value of our solutions and people to earn your business.
Bring on 2009 – we are ready for a recovery.
12 January, 2009
<% If thissect = "1" then %>
<% end if%>
<%
If IO.File.Exists(server.mappath("/includes/kssbase.aspx")) Then
server.execute("/includes/kssbase.aspx")
elseif IO.File.Exists(replace(server.mappath("/includes/kssbase.aspx"),"\CMS\","\test\")) Then
server.execute("/includestst/kssbase.aspx")
End if
%>