Salve a tutti, volevo sapere se è possibile estrarre xml da una pagina aspx e salvarlo su desktop .Ho costruito questo codice ma non funziona:
Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

'Imposto l'oggetto XMLHTTP e recupero il file XML
Dim xmlHTTP, ResponseXML
xmlHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
xmlHTTP.open("GET", "http://1.56.4.63/openwork/list.aspx?ListType=13&ListSubType=0&modelid=53&hid eactions=all", False)
xmlHTTP.send()
ResponseXML = XmlHttp.ResponseText



'Imposto l'oggetto XMLDOM e carico il file XML come stringa

Dim doc_x, ErrorMessage
doc_x = Server.CreateObject("Microsoft.XMLDOM")
doc_x.async = False
doc_x.validateOnParse = False
doc_x.resolveExternals = False
If not doc_x.LoadXml(ResponseXML) then
ErrorMessage = "errore"
else
'parserizza
end if

'Recupero i nodi del file XML

Dim user
Dim role
Dim id
user = doc_x.getElementsByTagName("table/userprofile/user/name")
role = doc_x.getElementsByTagName("table/userprofile/user/role")
id = doc_x.getElementsByTagName("table/userprofile/user/userid")

'Carico xsl e processo xml
Dim xsl, xsldoc
xsl = Server.CreateObject("Msxml2.XSLTemplate.3.0")
xsldoc = Server.CreateObject("Msxml2.FreeThreadedDOMDocumen t.3.0")
if xsldoc.load(Server.MapPath("gestione_mandato.xsl") ) then
xsl.stylesheet = xsldoc
End if
'Trasformo in Html
Dim xslproc
xslproc = xsl.CreateProcessor()
xslproc.input = doc_x
xslproc.Transform
Response.ContentType = "text/xhtml"
Response.Write (xslproc.output)






End Sub