<% 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 %>

KSS Retains Highest Level of Microsoft Partnership

Gold Certified Partnership recognizes breadth and quality of KSS development skills and ensures high quality products for customers

Florham Park, NJ – April 9, 2009 – KSS Inc. today announced that for the sixth consecutive year it has retained its Gold Certified Partnership with Microsoft, the highest level in Microsoft’s Partner Program.

Gold Certification acknowledges the highest level of competence and expertise with Microsoft technologies and represents the closest working relationship with Microsoft. It also provides early access to the latest Microsoft technologies and participation in beta programs, enabling KSS to take advantage of appropriate developments for its fuel price management software, as well as development and testing processes.

KSS develops price management software that helps fuel retailers and wholesalers automatically survey their competitive landscape – on an enterprise or site-by-site basis – and then helps them set optimal fuel prices that will maximize both volume and margins while maintaining compliance with government regulations.

“It’s an honor to be a member of this elite group of partner companies, and to have the opportunity to continue delivering the highest quality business solutions to our customers, based on the very latest Microsoft technologies”, stated Bob Stein, president and chief executive officer of KSS.

Attaining Gold Certification requires Microsoft Partners to prove their skills by acquiring specific competencies, training their staff to qualify as Microsoft Certified Professionals and securing customer references. As part of its successful renewal, KSS has extended its existing competencies in Data Management, Business Intelligence, Custom Development Solutions, Security Solutions and Business Process & Integration Solutions with the addition of the Mobility Solutions competency.

# # # # # 

 

 

<%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 %>

---

---

---

---

---

---

---

<%end if%>

---