%
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
%>
News 2009
<%if right(Request.ServerVariables("URL").ToLower,12)="default.aspx" then
dim pgdt as date
dim isDateDir as boolean = false
dim thisURL = left(Request.ServerVariables("URL"),instrrev(Request.ServerVariables("URL"),"/")-1)
dim getDir = mid(thisURL, instrrev(thisURL,"/")+1)
dim checkno = replace(replace(getDir,"-",""),"_","")
dim getYr
dim getMn
if len(checkno) = 6 and isNumeric(checkno) then
isDateDir = true
getYr = left(checkno, 4)
getMn = mid(checkno, 5)
end if
%>
<%
try
pgdt = CDate("2009-12-01")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
KSS launches "Fuel Pricing Command & Control" Program gives retailers greater control over fuel margins
<%
try
pgdt = CDate("2009-11-18")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
KSS Inc. Joins PCATS
<%
try
pgdt = CDate("2009-10-20")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
Westex Capital Selects KSS PriceNet SaaS for Pico, Amigo Chains
<%
try
pgdt = CDate("2009-10-13")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
Susser Continues Growth and Success with KSS
Partnership expands to include 30 additional sites
<%
try
pgdt = CDate("2009-10-06")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
KSS Inc. Introduces KSS Analytics for Fuel Retailers and Wholesalers
<%
try
pgdt = CDate("2009-09-15")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
Short-term Consulting Engagement Identifies Improvements to Fuel Pricing Processes
and Increase Profits for Fuel Retailers and Wholesalers
<%
try
pgdt = CDate("2009-09-08")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
Hosted Solution Gives Fuel Retailers the Ability to Obtain Fuel Price Management without Upfront Technology Investments
<%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
%>