Asp Dersleri Bölüm-12 XML Okumak Veri Çekmek / Read Asp XML Data

<% Dim objXmlHttp Dim strHTML Set objXmlHttp = Server.CreateObject(“Msxml2.ServerXMLHTTP”) objXmlHttp.open “GET”, “http://www.asp101.com/samples/httpsamp.asp“, False objXmlHttp.send ‘ Response.Write “Status: ” & objXmlHttp.status & ” ” _ ‘   & objXmlHttp.statusText & “<br />” strHTML = objXmlHttp.responseText Set objXmlHttp = Nothing %> <%= strHTML %> <%= Server.HTMLEncode(strHTML) %>