Listing Details

<% For Each Item in Items %> <% ' find specific item before processing or next Set transid = Item.selectSingleNode("transid/text()") IF transid.data = varTRANSID THEN ' IF transid Is Nothing THEN vtransid = "" Else vtransid = transid.data END IF %> <% Set transid = Item.selectSingleNode("transid/text()") IF transid Is Nothing THEN vtransid = "" Else vtransid = transid.data END IF Set proptype = Item.selectSingleNode("proptype/text()") IF proptype Is Nothing THEN vtype = "" Else vtype = proptype.data END IF Set added = Item.selectSingleNode("added/text()") IF added Is Nothing THEN vadded = "" Else vadded = added.data END IF Set expires = Item.selectSingleNode("expires/text()") IF expires Is Nothing THEN vexpires = "" Else vexpires = expires.data END IF Set address = Item.selectSingleNode("address/text()") IF address Is Nothing THEN vaddress = "" Else vaddress = address.data END IF Set city = Item.selectSingleNode("city/text()") IF city Is Nothing THEN vcity = "" Else vcity = city.data END IF Set area = Item.selectSingleNode("area/text()") IF area Is Nothing THEN varea = "" Else varea = area.data END IF Set prov = Item.selectSingleNode("prov/text()") IF prov Is Nothing THEN vprov = "" Else vprov = prov.data END IF Set country = Item.selectSingleNode("country/text()") IF country Is Nothing THEN vcountry = "" Else vcountry = country.data END IF Set postalcode = Item.selectSingleNode("postalcode/text()") IF postalcode Is Nothing THEN vpostalcode = "" Else vpostalcode = postalcode.data END IF Set bedrooms = Item.selectSingleNode("bedrooms/text()") IF bedrooms Is Nothing THEN vbedrooms = "" Else vbedrooms = bedrooms.data END IF Set bathrooms = Item.selectSingleNode("bathrooms/text()") IF bathrooms Is Nothing THEN vbathrooms = "" Else vbathrooms = bathrooms.data END IF Set age = Item.selectSingleNode("age/text()") IF age Is Nothing THEN vage = "" Else vage = age.data END IF Set ageopnew = Item.selectSingleNode("ageopnew/text()") IF ageopnew Is Nothing THEN vageopnew = "" Else vageopnew = ageopnew.data END IF Set ageopunk = Item.selectSingleNode("ageopunk/text()") IF ageopunk Is Nothing THEN vageopunk = "" Else vageopunk = ageopunk.data END IF Set garage = Item.selectSingleNode("garage/text()") IF garage Is Nothing THEN vgarage = "" Else vgarage = garage.data END IF Set homesize = Item.selectSingleNode("homesize/text()") IF homesize Is Nothing THEN vhomesize = "" Else vhomesize = homesize.data END IF Set lotsize = Item.selectSingleNode("lotsize/text()") IF lotsize Is Nothing THEN vlotsize = "" Else vlotsize = lotsize.data END IF Set lottype = Item.selectSingleNode("lottype/text()") IF lottype Is Nothing THEN vlottype = "" Else vlottype = lottype.data END IF Set mls = Item.selectSingleNode("mls/text()") IF mls Is Nothing THEN vmls = "" Else vmls = mls.data END IF Set price = Item.selectSingleNode("price/text()") IF price Is Nothing THEN vprice = "" Else vprice = price.data END IF Set reduced = Item.selectSingleNode("reduced/text()") IF reduced Is Nothing THEN vreduced = "" Else vreduced = reduced.data END IF Set reducedprice = Item.selectSingleNode("reducedprice/text()") IF reducedprice Is Nothing THEN vreducedprice = "" Else vreducedprice = reducedprice.data END IF Set homefeatures = Item.selectSingleNode("homefeatures/text()") IF homefeatures Is Nothing THEN vhomefeatures = "" Else vhomefeatures = homefeatures.data END IF Set communityfeatures = Item.selectSingleNode("communityfeatures/text()") IF communityfeatures Is Nothing THEN vcommunityfeatures = "" Else vcommunityfeatures = communityfeatures.data END IF Set maplink = Item.selectSingleNode("maplink/text()") IF maplink Is Nothing THEN vmaplink = "" Else vmaplink = maplink.data END IF Set mortgagecalc = Item.selectSingleNode("mortgagecalc/text()") IF mortgagecalc Is Nothing THEN vmortgagecalc = "" Else vmortgagecalc = mortgagecalc.data END IF Set slideshow = Item.selectSingleNode("slideshow/text()") IF slideshow Is Nothing THEN vslideshow = "" Else vslideshow = slideshow.data END IF Set featured = Item.selectSingleNode("featured/text()") IF featured Is Nothing THEN vfeatured = "" Else vfeatured = featured.data END IF Set sold = Item.selectSingleNode("sold/text()") IF sold Is Nothing THEN vsold = "" Else vsold = sold.data END IF Set virtualtour = Item.selectSingleNode("virtualtour/text()") IF virtualtour Is Nothing THEN vvirtualtour = "" Else vvirtualtour = virtualtour.data END IF Set pdffeaturesheet = Item.selectSingleNode("pdffeaturesheet/text()") IF pdffeaturesheet Is Nothing THEN vpdffeaturesheet = "" Else vpdffeaturesheet = pdffeaturesheet.data END IF Set openhouse = Item.selectSingleNode("openhouse/text()") IF openhouse Is Nothing THEN vopenhouse = "" Else vopenhouse = openhouse.data END IF Set openhousedatestart = Item.selectSingleNode("openhousedatestart/text()") IF openhousedatestart Is Nothing THEN vopenhousedatestart = "" Else vopenhousedatestart = openhousedatestart.data END IF Set openhousedateend = Item.selectSingleNode("openhousedateend/text()") IF openhousedateend Is Nothing THEN vopenhousedateend = "" Else vopenhousedateend = openhousedateend.data END IF Set geocode = Item.selectSingleNode("geocode/text()") IF geocode Is Nothing THEN vgeocode = "" Else vgeocode = geocode.data END IF Set title = Item.selectSingleNode("title/text()") IF title Is Nothing THEN vtitle = "" Else vtitle = title.data END IF Set description = Item.selectSingleNode("description/text()") IF description Is Nothing THEN vdescription = "" Else vdescription = description.data END IF Set extras = Item.selectSingleNode("extras/text()") IF extras Is Nothing THEN vextras = "" Else vextras = extras.data END IF Set image01 = Item.selectSingleNode("image01/text()") IF image01 Is Nothing THEN vimage01 = "" Else vimage01 = image01.data END IF Set image02 = Item.selectSingleNode("image02/text()") IF image02 Is Nothing THEN vimage02 = "" Else vimage02 = image02.data END IF Set image03 = Item.selectSingleNode("image03/text()") IF image03 Is Nothing THEN vimage03 = "" Else vimage03 = image03.data END IF Set image04 = Item.selectSingleNode("image04/text()") IF image04 Is Nothing THEN vimage04 = "" Else vimage04 = image04.data END IF Set image05 = Item.selectSingleNode("image05/text()") IF image05 Is Nothing THEN vimage05 = "" Else vimage05 = image05.data END IF Set image06 = Item.selectSingleNode("image06/text()") IF image06 Is Nothing THEN vimage06 = "" Else vimage06 = image06.data END IF Set image07 = Item.selectSingleNode("image07/text()") IF image07 Is Nothing THEN vimage07 = "" Else vimage07 = image07.data END IF Set image08 = Item.selectSingleNode("image08/text()") IF image08 Is Nothing THEN vimage08 = "" Else vimage08 = image08.data END IF Set image09 = Item.selectSingleNode("image09/text()") IF image09 Is Nothing THEN vimage09 = "" Else vimage09 = image09.data END IF Set ulrooms = Item.selectSingleNode("ulrooms/text()") IF ulrooms Is Nothing THEN ulrooms = "" Else ulrooms = ulrooms.data END IF Set uldims = Item.selectSingleNode("uldims/text()") IF uldims Is Nothing THEN uldims = "" Else uldims = uldims.data END IF Set mlrooms = Item.selectSingleNode("mlrooms/text()") IF mlrooms Is Nothing THEN mlrooms = "" Else mlrooms = mlrooms.data END IF Set mldims = Item.selectSingleNode("mldims/text()") IF mldims Is Nothing THEN mldims = "" Else mldims = mldims.data END IF Set bmrooms = Item.selectSingleNode("bmrooms/text()") IF bmrooms Is Nothing THEN bmrooms = "" Else bmrooms = bmrooms.data END IF Set bmdims = Item.selectSingleNode("bmdims/text()") IF bmdims Is Nothing THEN bmdims = "" Else bmdims = bmdims.data END IF %>

<%= vaddress %>, <%= vcity%>, <%= vprov %>, <%= vcountry %>     <%= Replace(FormatCurrency(vprice),".00","") %>

 

<%= vdescription %>

 

Property Details

Photo Gallery

 

 

View photographs of the property below.  Click on each photo to see a larger version.

 

<% ' check images and show noimage where missing IF vimage02 = "" THEN vimage02 = "ni" IF vimage03 = "" THEN vimage03 = "ni" IF vimage04 = "" THEN vimage04 = "ni" IF vimage05 = "" THEN vimage05 = "ni" IF vimage06 = "" THEN vimage06 = "ni" IF vimage07 = "" THEN vimage07 = "ni" IF vimage08 = "" THEN vimage08 = "ni" IF vimage09 = "" THEN vimage09 = "ni" %>

Room Dimensions   Main Floor   <% IF mlrooms <> "" THEN %> <% varMLROOMS = Split((mlrooms),"|") varMLDIMS = Split((mldims),"|") i = 0 For Each mlroom in varMLROOMS IF Len(varMLROOMS(i)) > 1 THEN %> <%= varMLROOMS(i) %> - <%= varMLDIMS(i) %> <% END IF i = i + 1 NEXT %> <% END IF %>   Upper Level   <% IF mlrooms <> "" THEN %> <% varULROOMS = Split((ulrooms),"|") varULDIMS = Split((uldims),"|") i = 0 For Each ulroom in varULROOMS IF Len(varULROOMS(i)) > 1 THEN %> <%= varULROOMS(i) %> - <%= varULDIMS(i) %> <% END IF i = i + 1 NEXT %> <% END IF %>   Basement   <% IF mlrooms <> "" THEN %> <% varBMROOMS = Split((bmrooms),"|") varBMDIMS = Split((bmdims),"|") i = 0 For Each bmroom in varBMROOMS IF Len(varBMROOMS(i)) > 1 THEN %> <%= varBMROOMS(i) %> - <%= varBMDIMS(i) %> <% END IF i = i + 1 NEXT %> <% END IF %>