House Price Calculator
What is your house worth? This calculator returns an indication
of the average property price for a particular region using Halifax property
price indices. Q4 2009 is made up of provisional data for October and November
2009. We do not make any statement to its accuracy or completeness (want this
calculator on your website?)
Enter the purchase price of your home then select the region in which your
property is located. Select a purchase quarter\year and a valuation
quarter\year then press "Get Price". We will calculate the change in avergage
property prices over the selected periods and apply this to the purchase price
of your property to give an estimate of your property's value. |
| |
|
|
| Purchase Price of your property |
|
|
| Region your property is located |
|
|
| |
|
|
| Purchase Period |
|
|
| Valuation Period |
|
|
| |
|
|
| |
|
|
| |
|
|
<%
dim purchase_price
strSQL = "SELECT stdprice FROM HousePricesNSA " _
& "WHERE quarter='" & Replace(Request.Form("quarter_start"), "'", "''") & "' " _
& "AND years='" & Replace(Request.Form("year_start"), "'", "''") & "' " _
& "AND region='"& Replace(Request.Form("region"), "'", "''") & "';"
Set cnnLogin = Server.CreateObject("ADODB.Connection")
cnnLogin.Open("DRIVER={Microsoft Access Driver (*.mdb)};" _
& "DBQ=" & Server.MapPath("../App_Data/2_7t_93e6_0x/HouseP2.mdb"))
Set rstLogin = cnnLogin.Execute(strSQL)
If Not rstLogin.EOF Then
purchase_price = rstLogin("stdprice")
' Clean Up 1
rstLogin.Close
Set rstLogin = Nothing
cnnLogin.Close
Set cnnLogin = Nothing
end if
dim valuation_price, growth
strSQL = "SELECT stdprice FROM HousePricesNSA " _
& "WHERE quarter='" & Replace(Request.Form("quarter_end"), "'", "''") & "' " _
& "AND years='" & Replace(Request.Form("year_end"), "'", "''") & "' " _
& "AND region='"& Replace(Request.Form("region"), "'", "''") & "';"
Set cnnLogin = Server.CreateObject("ADODB.Connection")
cnnLogin.Open("DRIVER={Microsoft Access Driver (*.mdb)};" _
& "DBQ=" & Server.MapPath("../App_Data/2_7t_93e6_0x/HouseP2.mdb"))
Set rstLogin = cnnLogin.Execute(strSQL)
If Not rstLogin.EOF Then
valuation_price = rstLogin("stdprice")
' Clean Up 2
rstLogin.Close
Set rstLogin = Nothing
cnnLogin.Close
Set cnnLogin = Nothing
if Request.Form("Price")="" then
price = 0
else
price = Request.Form("Price")
end if
growth_factor = valuation_price/purchase_price
growth = growth_factor-1
value = FormatCurrency(price*growth_factor,0)
%>
| Rate of change is <%response.write(FormatPercent(growth))%> |
|
| Your property is estimated to be worth <%response.write(value)%> |
| |
| Price will vary within regions and for different styles of
property. For a proper valuation of your property seek professional advice from
a surveyor. Data is provided by a third party over whom we have no control. No
warranties provided. |
|
| |
<%
else
%>
<%
end if
%>