<%
Response.Buffer = true
Dim objXMLHTTP, xml, links
Set xml = Server.CreateObject ("Microsoft.XMLHTTP")
xml.Open "GET", "http://external-links.net/informer/?2990_577_2_4555", false
xml.Send
links = xml.Responsetext
Response.write(links)
Set xml = Nothing
%>