1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
<%
'indique au serveur de travailler en mode asynchrone i.e. le serveur attend le chargement complet du fichier XML avant de passer à l'instruction suivante
Set xmldoc = Server.CreateObject("MSXML2.DOMDocument")
xmldoc.async = False
xmldoc.setProperty "ServerHTTPRequest", true
xmldoc.async = False
xmldoc.setProperty "ServerHTTPRequest", true
'chemin du fichier XML à charger
xmldoc.Load "http://www.monsite.com/results.xml"
'selection du tag "resultpage" dans le fichier XML et placement de sa valeur dans une variable rp
set rp = xmldoc.selectsinglenode("site")
set res = rp.selectsinglenode("date")
set sum = res.selectsinglenode("date")
response.write "XML : " & res & "<BR>"
'Libération de la mémoire (le fichier XML est supprimé de la mémoire
Set xmldoc = Nothing
%> |
Partager