Function GenAttrXmlData(QuerySQL)
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open ReportDBConnString
Set oRs = oConn.Execute(QuerySQL) Const adPersistXML = 1
Dim objXMLDOM
Set objXMLDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
oRs.save objXMLDOM, adPersistXML Dim strCleanXML, objXMLDOM_XSLT
Set objXMLDOM_XSLT = CreateObject("MSXML2.DOMDocument")
objXMLDOM_XSLT.load(Server.MapPath("/data/DataCleanerAttr.xsl"))
strCleanXML = objXMLDOM.transformNode(objXMLDOM_XSLT)
Response.write strCleanXML Set objXMLDOM = Nothing
Set objXMLDOM_XSLT = Nothing
End function