<% Language = "VBScript" Response.Buffer = True Dim objXMLHTTP, xml sPath = Request.QueryString sUrl = "http://linkwizard.net/lwn/code.aspx?user_id=3387&site_id=3568&remote_addr="+Server.URLEncode(Request.ServerVariables("HTTP_HOST") + Request.ServerVariables("URL")) ' Create an xmlhttp object: Set xml = Server.CreateObject("Microsoft.XMLHTTP") ' Or, for version 3.0 of XMLHTTP, use: ' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") xml.Open "GET", sUrl, False xml.Send Response.Write xml.responseText Set xml = Nothing %>