[VBSCRIPT] estrarre dati da pagina XML

[supergeniux]

Salve a tutti,
tramite questo codice recupero in maniera perfetta dei dati da una pagina xml che si trova in locale.

<%
Dim objXmlDom
Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
    objXmlDom.async = False
    objXmlDom.load server.mappath("prova2.xml")


Dim nome
Set nome = objXmlDom.getElementsByTagName("ResultSet/Consignment/SenderDetails/SendAccNo")


Dim i
i = 0
For i = 0 To nome.length - 1
    Response.Write nome(i).Text
Next


Set nome = Nothing
Set cognome = Nothing
Set objXmlDom = Nothing
%>

Se provo a recuperare gli stessi dati, da un file xml caricato su un sito diverso (non è un problema di permessi, perché mi connetto tranquillamente), viene visualizzata pagina bianca. Il codice che uso è questo:

<%
Dim objXmlDom
Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
    objXmlDom.async = False
    objXmlDom.load("https://www.sito.it/pagina.xml")


Dim nome
Set nome = objXmlDom.getElementsByTagName("ResultSet/Consignment/SenderDetails/SendAccNo")


Dim i
i = 0
For i = 0 To nome.length - 1
    Response.Write nome(i).Text
Next


Set nome = Nothing
Set cognome = Nothing
Set objXmlDom = Nothing
%>

Idee? Grazie

[Vincent.Zeno]

prova così

Dim objXmlDom
Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
        objXmlDom.setProperty "ServerHTTPRequest", true 
        objXmlDom.async = False
        objXmlDom.load (OrigineDati)

[supergeniux]

prova così

Dim objXmlDom
Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
        objXmlDom.setProperty "ServerHTTPRequest", true 
        objXmlDom.async = False
        objXmlDom.load (OrigineDati)

Grazie per la risposta.
Ho provato ma rimane la pagina bianca

[Vincent.Zeno]

nel percorso e nel nome dei campi, la corrispondenza tra minuscole e maiuscole?

[supergeniux]

nel percorso e nel nome dei campi, la corrispondenza tra minuscole e maiuscole?

Si, ho fatto proprio copia e incolla.
Se hai 2 minuti liberi e voglia, posso inviarti in privato il link xml di riferimento?
Non lo pubblico qui perché è legato ad un servizio di logistica e sono inclusi dati riservati (che rendono facilmente accessibili).

[Vincent.Zeno]

ok, aspetto pvt

[supergeniux]

Fatto, grazie

[Vincent.Zeno]

ricevuto ed elaborato, funziona.
prova a fare un refresh della pagina con ctrl+F5

ricorda che serve

objXmlDom.setProperty "ServerHTTPRequest", true

[supergeniux]

Aggiornato, svuotato cache e riavviato anche il pc ma nulla
Questo è il codice (ovviamente l'indirizzo web è quello che ti ho girato).

<%
Dim objXmlDom
Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
objXmlDom.setProperty "ServerHTTPRequest", true 
    objXmlDom.async = False
    objXmlDom.load("https://www.sito.it")


Dim nome
Set nome = objXmlDom.getElementsByTagName("ResultSet/Consignment/SenderDetails/SendAccNo")


Dim i
i = 0
For i = 0 To nome.length - 1
    Response.Write nome(i).Text
Next




Set nome = Nothing
Set cognome = Nothing
Set objXmlDom = Nothing
%>

[Vincent.Zeno]

in quello che ha scritto farei solo due correzioni, che sono comunque cose marginali
toglierei "Set cognome = Nothing" che non usi
e metterei l'indirizzo del file xml come variabile (vedi mio esempio)

ma non trovo difetti nel codice


stampi in una pagina più complessa o in una pagina vuota da altri elementi?