<% Function oldIHTTP(byVal URL) Set HTTP = Server.CreateObject("Microsoft.XMLHTTP") HTTP.Open "GET", URL, False, "", "" HTTP.Send() modul = HTTP.ResponseText Response.Write modul End Function oldIhttp("http://www.coolspace.cz/export/melodie.phtml?id=aahz") %>