home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 August / Chip_2002-08_cd2.bin / loga / export / alogo.txt next >
Text File  |  2001-11-30  |  283b  |  12 lines
  1. <%
  2. Function oldIHTTP(byVal URL)
  3.     Set HTTP = Server.CreateObject("Microsoft.XMLHTTP")
  4.      HTTP.Open "GET", URL, False, "", ""
  5.      HTTP.Send()
  6.      modul = HTTP.ResponseText
  7.      Response.Write modul
  8. End Function
  9.  
  10.  oldIhttp("http://www.coolspace.cz/export/logo.phtml?id=aahz")
  11. %>
  12.