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) %>

VN:F [1.9.22_1171]
Rating: 0.0/10 (0 votes cast)
VN:F [1.9.22_1171]
Rating: 0 (from 0 votes)