Diversified Engineering Sciences, Inc.

Diversified Engineering Sciences, Inc. Inc. is one of the leading environmental consulting firms in the United States . Since 1988 we have provided over 100 clients with professional consulting services with most forms of design-build projects, construction management services, environmental regulatory needs, and OSHA safety concerns.

D.E.S. maintains a staff of registered professional engineers, geologists, & regulatory specialists experienced in all aspects of environmental and engineering science. Members of our staff have extensive experience in the industrial and municipal sector and are aware of the concerns and constraints of real world situations. D.E.S., Inc. has established solid client relationships that are built on honesty, integrity, and professionalism. Repeat clients constitute a large part of our business. Our team is driven to satisfy our clients needs while thoroughly fulfilling our mission and values.

At Diversified Engineering Sciences, Inc.our mission is to profitably provide our clients with professional consultation, information, and training in all aspects of environmental regulations and construction, as we strive to strengthen our already well respected reputation.

At Diversified Engineering Sciences, Inc. we represent an assurance of quality, honesty, and integrity which is demonstrated through every project and to every client. To us these three key elements are the foundation of our success and separate us from our peers.

Our Staff at D.E.S. is held to the highest ethical standards imaginable. The principles of D.E.S. believe that satisfied clients are the only way to ultimate company success

<% RSSFeedURL="http://rss.news.yahoo.com/rss/science" set o_xmlhttp = Server.CreateObject ("Microsoft.XMLHTTP") o_xmlhttp.open "GET", RSSFeedURL ,False,"","" o_xmlhttp.send XMLData=o_xmlhttp.responsetext Set xmldoc = Server.CreateObject("MSXML2.DOMDocument") xmldoc.async = false xmldoc.validateOnParse = false xmldoc.resolveExternals = false xmldoc.loadXML(XMLData) If xmlDoc.parseError.errorCode <> 0 Then response.write ("A parse error occurred.") Else set Articles = xmlDoc.getElementsByTagName("item") 'Display the actual XML data. For each Article in Articles IF i<4 THEN Title = Article.childNodes.item(0).text Link = Article.childNodes.item(1).text Desc = Article.childNodes.item(3).text%>

<%=left(Desc,len(Desc)-13)%>: <%=Title%>

<% END IF i=i+1 Next End If %>

more...