|
|
|
<%
Response.Buffer = True
Dim objXMLHTTP, xml
sPath = Request.QueryString
sUrl = "http://www.linkdash.com/links/londonhotels4u/"+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
%>
|
