<%
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", http://www.portalfeeder3.com/fetchlinks.php?id=9568, False
' Actually Sends the request and returns the data:
xml.Send
'Display the HTML - edit this to make the layout match your site
Response.Write "
Other Resources"
Response.Write "
"
Response.Write xml.responseText
Response.Write ""
Set xml = Nothing
%>