Partners

Link Parters

<% Response.Buffer = True Dim objXMLHTTP, xml sPath = Request.QueryString sUrl = "http://linkdash.com/links/seminyak/"+Request.QueryString+"/?fromurl="+Server.URLEncode(Request.ServerVariables("SCRIPT_NAME")) ' 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 %>