Public Function SaveXmlToFile(strXml)
If (strXml="") Then
Exit Function
End If
Dim objXmldom
Set objXmldom = Server.CreateObject("Microsoft.XMLDom")
objXmldom.async=false
objXmldom.loadXml(strXml)
If objXmldom.parseError.errorCode=0 Then
objXmldom.save(server.mappath("./") & "\Test.xml")
End If
Set objXmlDom = Nothing
End Function