<% ' Start out declaring our variables. ' You are using Option Explicit aren't you? Dim objXmlHttp, objXmlDom Dim strHTML ' This is the server safe version from MSXML3. Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "GET", "http://www.zillow.com/webservice/GetSearchResults.htm?zws-id=(Zillow Id here)&address=7816+E+Gunning+Lane&citystatezip=99212", False ' Send it on it's merry way. objXmlHttp.send ' Get the text of the response. ' This object is designed to deal with XML so it also has the ' following properties: responseBody, responseStream, and ' responseXML. We just want the text so I use: Set objXmlDom = objXmlHttp.responseXML ' Trash our object now that I'm finished with it. Set objXmlHttp = Nothing ' All that's left to do is display the HTML we just retreived. ' I do it first as plain HTML (which gets interpretted by the ' browser like any other HTML) and then as source (by HTML ' encoding it so the tags display instead of rendering) ' The

s and s are just for appearence. Dim Address, Latitude, Longitude Dim oNode, oNodes Dim sXPathQuery sXPathQuery = "//SearchResults:searchresults/request/citystatezip" Set oNode = objXmlDom.documentElement.selectSingleNode(sXPathQuery) 'Address = oNode.Text sXPathQuery = "//SearchResults:searchresults/response/results/result" Set oNodes = objXmlDom.documentElement.selectNodes(sXPathQuery) For Each oNode in oNodes Street = oNode.selectSingleNode("address/street").Text City = oNode.selectSingleNode("address/city").Text state = oNode.selectSingleNode("address/state").Text ZipCode = oNode.selectSingleNode("address/zipcode").Text EstimateValue = oNode.selectSingleNode("zestimate/amount").Text OneweekChange = oNode.selectSingleNode("zestimate/oneWeekChange").Text LastUpdate = oNode.selectSingleNode("zestimate/last-updated").Text LowValue = oNode.selectSingleNode("zestimate/valuationRange/low").Text highValue = oNode.selectSingleNode("zestimate/valuationRange/high").Text PropertyChart = "" longitude = oNode.selectSingleNode("address/longitude").Text Latitude = oNode.selectSingleNode("address/latitude").Text Next %>

Beta Estimate
For <%=Street %> <%=city %>, <%=state %> <%=Zipcode%>
 Zestimate: <%=FormatCurrency(EstimateValue,0)%>
 Last Updated: <%=LastUpdate %>
 One week Change: <%=OneweekChange%>
 Low Valuation: <%=FormatCurrency(LowValue,0)%>
 High Valuation: <%=FormatCurrency(highvalue,0)%>

Data provided by Zillow

 <%=PropertyChart%>

View This Page Script Call: test.txt