<%
dim src
dim link
src="http://data.dezrez.com/Search.php?WCI=Results&Bedrooms=0&MinPrice=0&MaxPrice=10000000&PROPERTYTYPE=-1>YPE=2&GLAZINGTYPE=-1&PerPage=1&SHOWSTC=ON&XSLT=-1&EAID=134&town=(POM)"
Set XML = Server.CreateObject("Microsoft.XMLDOM")
set xmlhttp=createObject("Microsoft.XMLHTTP")
xmlhttp.onreadystatechange=getRef("stateChange")
xmlhttp.Open "POST", src, false
xmlhttp.Send()
'XML received
function stateChange()
dim num
if xmlhttp.readyState=4 then
if xmlhttp.status=200 then
xml.load (xmlhttp.responseXML)
'check parsing
readData xml.documentElement
else
Response.Write("XML data not OK")
Response.Write(xmlhttp.responseXML)
end if
end if
end function
'catch errors
function errorHandler(Err)
Response.Write("
")
Response.Write("
DezRez Services Ltd. Error Notification This message has been forwarded to the support desk If you need assistance with this subject please call the help line 01792 485588 and quote the following information. Please note this information can be printed.
Error Information")
Response.Write(" " & Err.reason)
Response.Write("")
end function
function readData(root)
dim propertyNode
dim propertyID
set propertyNode = root.childNodes.item(1)
if propertyNode.Tagname = "property" then
propertyId = CStr(propertyNode.getAttribute("id"))
link = "http://www.dezrez.com/DRApp/Search.php?WCI=Particular&WCE=00" + propertyID
else
link = "noresult.htm"
end if
end function
%>
The Space Sations
