<%
Sub getXML(sourceFile)
dim styleFile
dim source, style
styleFile = Server.MapPath("news.xsl")
set source = Server.CreateObject("Msxml2.DomDocument")
source.async = false
source.setProperty "ServerHTTPRequest", true
source.load CStr(sourceFile)
set style = Server.CreateObject("Msxml2.DomDocument")
style.async = false
style.load styleFile
source.transformNodeToObject style, Response
set source = nothing
set style = nothing
End Sub
%>
ASQ Section 1105 Main Page
Mission & Vision:
mission:The American
Society for Quality advances individual and organizational performance
excellence worldwide by providing opportunities for learning, quality
improvement, and knowledge exchange.
vision:
Achieve local and national
recognition as an organization that adds value to the quality profession and the
community in which we reside.
Direct Web Page Questions & Feedback to the
Section 1105 Internet Chair. 
