House Price Calculator

<%@LANGUAGE="VBSCRIPT"%> <% 'Option Explicit '********************************************************** ' To make this script work you simply need to create a ' table named tblLoginInfo in your database with one ' column named username and another named password. Put ' the values you want for username and password into a ' record in the table. The advantages of this script are ' that it's more secure than if you hard-coded the ' username/password values directly in the script, and ' that you can change the username and password simply by ' changing the values in your login_table. ' ' NOTE: BE SURE TO EITHER MOVE THE INCLUDED SAMPLE ' DATABASE TO A SECURE AREA OUTSIDE THE WEB SITE OR ' USE A DIFFERENT SECURE DATABASE. OTHERWISE ANYONE ' CAN SIMPLY DOWNLOAD THE WHOLE DB AND RETREIVE YOUR ' USERNAME AND PASSWORD FROM IT. '********************************************************** Dim cnnLogin Dim rstLogin Dim strUsername, strUserid Dim strSQL %>

<% 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) %> <%end if%>

House Price Calculator What is your house worth? This calculator will give a reasonable indication as to the value of your property. Data currently runs to June 2009 and is updated quarterly. (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 average 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



<% if request.form("quarter_end")="Q2" or request.form("quarter_end")="Q3" and request.form("year_end")="2009" then%>
No Data

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.