');
document.write('
');
document.write('
<%');
document.write('
');
document.write('
\' Start out declaring our variables.');
document.write('
');
document.write('
\' You are using Option Explicit aren\'t you?');
document.write('
');
document.write('
Dim objXmlHttp, objXmlDom
');
document.write('
');
document.write('
Dim strHTML
');
document.write('
');
document.write('
');
document.write('
');
document.write('
\' This is the server safe version from MSXML3.');
document.write('
');
document.write('
Set objXmlHttp =
Server.
CreateObject("Msxml2.ServerXMLHTTP")');
document.write('
');
document.write('
');
document.write('
');
document.write('
');
document.write('
');
document.write('objXmlHttp.
open "GET",
"http://www.zillow.com/webservice/GetSearchResults.htm?zws-id=(Zillow Id here)&address=7816+E+Gunning+Lane&citystatezip=99212",
False');
document.write('
');
document.write('
');
document.write('
');
document.write('
\' Send it on it\'s merry way.');
document.write('
');
document.write('objXmlHttp.
send');
document.write('
');
document.write('
');
document.write('
');
document.write('
\' Get the text of the response.');
document.write('
');
document.write('
\' This object is designed to deal with XML so it also has the');
document.write('
');
document.write('
\' following properties: responseBody, responseStream, and');
document.write('
');
document.write('
\' responseXML. We just want the text so I use:');
document.write('
');
document.write('
Set objXmlDom = objXmlHttp.
responseXML');
document.write('
');
document.write('
');
document.write('
');
document.write('
\' Trash our object now that I\'m finished with it.');
document.write('
');
document.write('
Set objXmlHttp =
Nothing');
document.write('
');
document.write('
');
document.write('
');
document.write('
\' All that\'s left to do is display the HTML we just retreived.');
document.write('
');
document.write('
\' I do it first as plain HTML (which gets interpretted by the');
document.write('
');
document.write('
\' browser like any other HTML) and then as source (by HTML');
document.write('
');
document.write('
\' encoding it so the tags display instead of rendering)');
document.write('
');
document.write('
\' The <h1>s and <table>s are just for appearence.');
document.write('
');
document.write('
');
document.write('
');
document.write('
');
document.write('
');
document.write('
Dim Address, Latitude, Longitude
');
document.write('
');
document.write('
Dim oNode, oNodes
');
document.write('
');
document.write('
Dim sXPathQuery
');
document.write('
');
document.write('
');
document.write('
');
document.write('sXPathQuery =
"//SearchResults:searchresults/request/citystatezip"');
document.write('
');
document.write('
');
document.write('
');
document.write('
Set oNode = objXmlDom.
documentElement.
selectSingleNode(sXPathQuery
)');
document.write('
');
document.write('
\'Address = oNode.Text');
document.write('
');
document.write('sXPathQuery =
"//SearchResults:searchresults/response/results/result"');
document.write('
');
document.write('
Set oNodes = objXmlDom.
documentElement.
selectNodes(sXPathQuery
)');
document.write('
');
document.write('
');
document.write('
');
document.write('
For Each oNode
in oNodes
');
document.write('
');
document.write(' Street = oNode.
selectSingleNode("address/street").
Text');
document.write('
');
document.write(' City = oNode.
selectSingleNode("address/city").
Text');
document.write('
');
document.write(' state = oNode.
selectSingleNode("address/state").
Text');
document.write('
');
document.write(' ZipCode = oNode.
selectSingleNode("address/zipcode").
Text');
document.write('
');
document.write(' EstimateValue = oNode.
selectSingleNode("zestimate/amount").
Text');
document.write('
');
document.write(' OneweekChange = oNode.
selectSingleNode("zestimate/oneWeekChange").
Text');
document.write('
');
document.write(' LastUpdate = oNode.
selectSingleNode("zestimate/last-updated").
Text');
document.write('
');
document.write(' LowValue = oNode.
selectSingleNode("zestimate/valuationRange/low").
Text');
document.write('
');
document.write(' highValue = oNode.
selectSingleNode("zestimate/valuationRange/high").
Text');
document.write('
');
document.write(' PropertyChart =
"<image src=http://www.zillow.com/app?chartDuration=1year&chartType=partner&height=150&page=webservice%2FGetChart&service=chart&showPercent=true&width=300&zpid=" & oNode.
selectSingleNode("zpid").
Text &
">"');
document.write('
');
document.write(' longitude = oNode.
selectSingleNode("address/longitude").
Text');
document.write('
');
document.write(' Latitude = oNode.
selectSingleNode("address/latitude").
Text');
document.write('
');
document.write('
Next');
document.write('
');
document.write('
');
document.write('
');
document.write('
%>');
document.write('
');
document.write('<html>
');
document.write('
');
document.write('<head>
');
document.write('
');
document.write('<script src=
"http://dev.virtualearth.net/mapcontrol/v3/mapcontrol.js"></script>
');
document.write('
');
document.write(' <script>
');
document.write('
');
document.write('
var map =
null;
');
document.write('
');
document.write('
');
document.write('
');
document.write('
function GetMap
()');
document.write('
');
document.write('
{');
document.write('
');
document.write('
var map =
new VEMap
(\'myMap\');');
document.write('
');
document.write(' map.
LoadMap(new VELatLong
(<%=Latitude%>,
<%=Longitude%>
),
14 ,
\'r\' , false);');
document.write('
');
document.write('
var pin =
new VEPushpin
(1, map.
GetCenter(),
null,
');
document.write('
');
document.write('
\'Center of the Map\', \'The Home You Requested\'); ');
document.write('
');
document.write(' map.
AddPushpin(pin
);
');
document.write('
');
document.write('
} ');
document.write('
');
document.write('
');
document.write('
');
document.write('
</script>');
document.write('
');
document.write('</head>
');
document.write('
');
document.write('<body onload=
"GetMap();">
');
document.write('
');
document.write(' <table border=
"2" cellspacing=
"1" width=
"570" id=
"table3">
');
document.write('
');
document.write(' <tr>
');
document.write('
');
document.write(' <td colspan=
"2">
');
document.write('
');
document.write(' <h2><font color=
"#59A3C1">Beta Estimate<br>
');
document.write('
');
document.write(' <span style=
"font-weight: 400"><font size=
"2">For
<%=Street %> <%=city
%>, <%=state %> <%=Zipcode%></font></span></font></h2>
');
document.write('
');
document.write(' </td>
');
document.write('
');
document.write(' </tr>
');
document.write('
');
document.write(' <tr>
');
document.write('
');
document.write(' <td height=
"31" width=
"257"> <b><font size=
"2">Zestimate:
<%=FormatCurrency
(EstimateValue,
0)%><br>
');
document.write('
');
document.write(' Last Updated:
<%=LastUpdate %><br>
');
document.write('
');
document.write(' One week Change:
<%=OneweekChange%><br>
');
document.write('
');
document.write(' Low Valuation:
<%=FormatCurrency
(LowValue,
0)%><br>
');
document.write('
');
document.write(' High Valuation:
<%=FormatCurrency
(highvalue,
0)%></font></b>
');
document.write('
');
document.write(' <p><font size=
"1" color=
"#59A3C1">Data provided by Zillow</font></td>
');
document.write('
');
document.write(' <td height=
"31" width=
"306"><%=PropertyChart%></td>
');
document.write('
');
document.write(' </tr>
');
document.write('
');
document.write(' </table>
');
document.write('
');
document.write('<br>
');
document.write('
');
document.write('<div id=
\'myMap\' style="position:relative; width:570px; height:400px;"></div>');
document.write('
');
document.write('View This Page Script
Call: <a href=
"test.txt">test.
txt</a>
');
document.write('
');
document.write('</body>
');
document.write('
');
document.write('</html>
');
document.write('
');
document.write('