You can also use something like this to get the content of the page your trying to display:
strHTML = GetHTML("http://www.homesinrichmond.com/eagent/show.fpl?NewSrch=1&shomy=1&showmy=1&LA=renjones&group=5&Table=0")
Response.Write strHTML
Function GetHTML(strURL)
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", strURL, False
xml.Send
GetHTML = xml.responseText
Set xml = Nothing
End Function
Your going to have to do some string parsing on strHTML to clean things up a bit (im really anal about clean code ;-)). Also copy over the images to the correct place on your side or create new ones. That will make it easier on your end.
|