<% 'Version Control '*************************************************************************************************** '* * '* Source: index.asp * '* * '* Rev Inits Date Description * '* ----- ----- ------- ----------- * '* * '* 0.01 DC 11/01/05 Remove references to rentals and/or agents * '* 0.0 23/12/04 Initial * '* * '*************************************************************************************************** %> <% Dim conn, rs Set conn = Server.CreateObject("ADODB.connection") Set rs = Server.CreateObject("ADODB.RecordSet") conn.Open Application("connStr") Response.Cookies("connStr") = Application("connStr") Response.Cookies("siteRoot") = Application("siteRoot") ' Sales property form vars TypeProp = checkNumber(Request.Form("Type"), 10) country = checkNumber(Request.Form("country"), 10) if country = 0 then country = Application("DefaultCountry") province = checkNumber(Request.Form("province"), 10) if province = 0 then province = Application("DefaultProvince") location = checkNumber(Request.Form("location"), 10) maxPlotSize = checkNumber(Request.Form("maxPlotSize"), 10) MaxPrice = checkNumber(Request.Form("MaxPrice"), 10) noBeds = checkNumber(Request.Form("noBeds"), 10) noBaths = checkNumber(Request.Form("noBaths"), 10) ' Ref form vars propRef = cleanString(Request.Form("propRef"), 50) ' Set currency and measurement setCurrency(checkNumber(Request.Form("currency"), 10)) setMeasurement(checkNumber(Request.Form("measurement"), 10)) %>
" name="dropDownForm"> <% Call writeHeaderDropDownBar(Application("text_home"), "document.getElementById('dropdownform').submit()") %>
<% ' Display sales property of the week sql = "SELECT propid,photo1, price,description,location FROM tbproperties " & _ " LEFT JOIN tbLocations ON tbLocations.locationId = tbproperties.locationId " & _ "WHERE `tbproperties`.`CompanyId`='" & Application("companyId") & "' AND `PropOfWeek` = '1'" Set rs = conn.Execute(sql) if not rs.eof then %>

<%=Application("text_salepropofweek")%>

<% = writeThumbnail(rs("propId"), rs("photo1"), 1) %>
"><%=Application("text_clickdetails")%>
<% end if rs.Close %>
<%=Application("text_salepropqsearch")%>
<%=Application("text_minprice")%>: <% Call makePriceDropDown("minPrice", minPrice, Application("text_nominimum")) %>
<%=Application("text_maxprice")%>: <% Call makePriceDropDown("maxPrice", maxPrice, Application("text_nomaximum")) %>
">
<%=Application("text_proprefsearch")%>
<%=Application("text_propreference")%>:
">
<%set rs = nothing conn.Close set conn = nothing %>