% On Error Resume Next %> <% Function GetData() set oXML = Server.Createobject ("MSXML2.serverxmlhttp") oXML.Open "GET","http://www.cybertechdomains.com/GlobalSiteMap.asp" oXML.Send TempData = oXML.responseText GetData = TempData End Function %>
|
|||
Links
<%
Response.write ( GetData() )
%>
|