<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% tmpHotContent = 1 tmpPlaats = trim(request("plaatsnaam")) If tmpPlaats <> "" AND tmpPlaats <> "0" then 'wijken ophalen %> <% Else Dim wijken(1,1) tmpAantalWijken = -1 End if tmpWijk = Request("wijk2") tmpPostcode = Request("postcode") tmpAdres = Request("adres") tmpKamers = Request("kamers") tmpPostcode = replace(tmpPostcode, "'", "") tmpAdres = replace(tmpAdres, "'", "") tmpKamers = replace(tmpKamers, "'", "") tmpPostcode = replace(tmpPostcode, """", "") tmpAdres = replace(tmpAdres, """", "") tmpKamers = replace(tmpKamers, """", "") tmpSoort = Request("soort2") tmpBijzonderheden = Request("bijzonder2") tmpLigging = Request("ligging2") tmpPrijsVan = Request("PrijsVan") tmpPrijsTot = Request("PrijsTot") tmpSort = request("sort") If request("plaatssel") = "no" then tmpExtraURL = "" tmpExtraURL = tmpExtraURL & "?object1=1" tmpExtraURL = tmpExtraURL & "&object2=1" tmpExtraURL = tmpExtraURL & "&plaatsnaam=" & tmpPlaats tmpExtraURL = tmpExtraURL & "&wijk2=" & tmpWijk tmpExtraURL = tmpExtraURL & "&postcode=" & tmpPostcode tmpExtraURL = tmpExtraURL & "&adres=" & tmpAdres tmpExtraURL = tmpExtraURL & "&soort2=" & tmpSoort tmpExtraURL = tmpExtraURL & "&bijzonderheden2=" & tmpBijzonderheden tmpExtraURL = tmpExtraURL & "&ligging2=" & tmpLigging tmpExtraURL = tmpExtraURL & "&kamers=" & tmpKamers tmpExtraURL = tmpExtraURL & "&soorthuur=" & tmpSoortHuur tmpExtraURL = tmpExtraURL & "&PrijsVan=" & tmpPrijsVan tmpExtraURL = tmpExtraURL & "&PrijsTot=" & tmpPrijsTot tmpExtraURL = tmpExtraURL & "&Sort=" & tmpSort Response.redirect ("resultaat.asp" & tmpExtraURL) End if If len(tmpSoort) > 0 then ArrSoort = split(tmpSoort,",") End if If len(tmpBijzonderheden) > 0 then ArrBijzonderheden = split(tmpBijzonderheden,",") End if If len(tmpLigging) > 0 then ArrLigging = split(tmpLigging,",") End if %>

u bevindt zich hier: homezoekenzoeken naar een koopwoning

Koopwoning

koopwoning huurwoning          zoeken naar een koopwoning:                       plaatsnaam:   kies een plaatsnaam... <% for i = 0 to tmpAantalPlaatsen %> ><% Response.write ucase(left(Plaatsen(0,i),1)) & lcase(right(Plaatsen(0,i),len(Plaatsen(0,i))-1)) %> <% next %>                         wijk:   <% for i = 0 to tmpAantalWijken %> <% If len(Wijken(0,i)) > 0 then %> <% Response.write ucase(left(Wijken(0,i),1)) & lcase(right(Wijken(0,i),len(Wijken(0,i))-1)) %> <% End if %> <% next %>                         postcode:                           straatnaam:                           aantal kamers:                     soort woning:   <% for i = 1 to ubound(soortwoning) Tempie = 0 %> <% If tmpSoort <> "" then For j = 0 to ubound(ArrSoort) %> <% If trim(ArrSoort(j)) = trim(soortwoning(i)) then Tempie = 1 End if %> <% Next End if If Tempie = 0 then %> <%= soortwoning(i) %> <% End if Next %> <% If len(tmpSoort) > 0 then %> <% For i = 0 to ubound(ArrSoort) %> <%= trim(ArrSoort(i)) %> <% Next %> <% End if %>                   bijzonderheden:   <% for i = 1 to ubound(bijzonderheden) Tempie = 0 %> <% If tmpBijzonderheden <> "" then For j = 0 to ubound(ArrBijzonderheden) %> <% If trim(ArrBijzonderheden(j)) = trim(bijzonderheden(i)) then Tempie = 1 End if %> <% Next End if If Tempie = 0 then %> <%= bijzonderheden(i) %> <% End if Next %> <% If len(tmpBijzonderheden) > 0 then %> <% For i = 0 to ubound(ArrBijzonderheden) %> <%= trim(ArrBijzonderheden(i)) %> <% Next %> <% End if %>                   ligging:   <% for i = 1 to ubound(ligging) Tempie = 0 If tmpligging <> "" then For j = 0 to ubound(ArrLigging) If trim(ArrLigging(j)) = trim(ligging(i)) then Tempie = 1 End if Next End if If Tempie = 0 then %><%= ligging(i) %> <% End if Next %> <% If len(tmpLigging) > 0 then %> <% For i = 0 to ubound(ArrLigging) %> <%= trim(ArrLigging(i)) %> <% Next %> <% End if %>                   prijsklasse:                         van:   <% for i = 1 to (ubound(koopprijs)-1) %> ><%= koopprijs(i) %> <% next %> tot:   <% for i = 2 to ubound(koopprijs) %> <% IF tmpPrijsTot = "" AND i = ubound(koopprijs) THEN Response.write " selected" End if %>><%= koopprijs(i) %> <% next %>               zoek resultaat:                   sorteren:   >op plaatsnaam >op straatnaam >op koopprijs