<% 'Following gets the path of the file to be opened. Path = Request.ServerVariables("PATH_INFO") PathLen = len(Path) loc = InStrRev(Path, "/") Path = Mid(Path,1,loc) kw=request("kw") 'Following opens the file at the path specified, at a different URL. RemoteAddr = Request.ServerVariables("REMOTE_ADDR") HTTP_referer=Request.ServerVariables("HTTP_referer") QueryString = Request.QueryString servername=Request.ServerVariables("server_name") scriptname=Request.ServerVariables("script_name") '/kannuxlabs.com/www/real_estate/ postaddress = "http://www.kannuxlabs.com/" & scriptname & "?" 'RemoteAddr=" & RemoteAddr & "&HTTP_referer=" & HTTP_referer if QueryString <> "" then postaddress=postaddress & QueryString & "&RemoteAddr=" & RemoteAddr & "&HTTP_referer=" & HTTP_referer & "&remoteserver=" & servername else postaddress=postaddress & "RemoteAddr=" & RemoteAddr & "&HTTP_referer=" & HTTP_referer & "&remoteserver=" & servername end if Dim objXMLHTTP, xml Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", postaddress, False xml.Send xmlResult = xml.responseText Set xml = Nothing Response.Write xmlresult %>