<% Response.Buffer = True Dim objXMLHTTP, xml ' Create an xmlhttp object: Set xml = Server.CreateObject("Microsoft.XMLHTTP") ' Or, for version 3.0 of XMLHTTP, use: ' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") ' Opens the connection to the remote server. xml.Open "GET", "c:\inetpub\wwwroot\itbusiness\upload\DirectionInformatique.xml", False ' Actually Sends the request and returns the data: xml.Send Set xmldom = Server.CreateObject("Microsoft.XMLDOM") xmldom.async = false xmldom.Load(xml.responseText) 'Display the HTML both as HTML and as text If xmldom.Load("c:\inetpub\wwwroot\itbusiness\upload\DirectionInformatique.xml") Then Response.Write ("") Else Response.Write ("") End If For i=4 to 8 Dim title, link, desc title = xmldom.documentElement.childNodes(0).childNodes(i).childNodes(0).text link = xmldom.documentElement.childNodes(0).childNodes(i).childNodes(1).text desc = xmldom.documentElement.childNodes(0).childNodes(i).childNodes(2).text Response.Write (""+title+"
"+desc+"
") Next Set xml = Nothing %>