%@language=vbscript%>
<%
set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_skiptonwebproperty_STRING
Recordset2.Source = "SELECT ID, address, town, bedrooms, price, sold_stc, entrydate,oiro , hide_price,alt_price_text FROM details where agent like 'www.procter-brothers.co.uk' and development like 'Old Corn Mill' and not suspended order by address desc "
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 3
Recordset2.Open()
Recordset2_numRows = 0
%>
<%
dim soldstc
While (NOT Recordset2.EOF)
soldstc = cint(Recordset2.Fields.Item("sold_stc").Value)
%>
.asp<% if soldstc="-1" then response.write("?s=1")%>"><%=(Recordset2.Fields.Item("address").Value)%>, <%=(Recordset2.Fields.Item("town").Value)%> - <% if (Recordset2.Fields.Item("price").Value) <> "999999999" and (Recordset2.Fields.Item("price").Value) <> "99999999" then %>
<% if (Recordset2.Fields.Item("oiro").Value) then response.write("Price region: ")%>
<%=FormatCurrency((Recordset2.Fields.Item("price").Value), -0, -2, -2, -2) %>
<% if soldstc="-1" then response.write(" (Sold)")%>
<% end if %>
<%
Recordset2.MoveNext()
Wend
%>
<% If Recordset2.EOF And Recordset2.BOF Then %>
<% End If ' end Recordset2.EOF And Recordset2.BOF
Recordset2.Close()
%>
All new built properties are now sold, 4 mill units available summer 2004.
3 - 4 bedroom mill conversions
Plot 12: Sold
Plot 13: Sold
Plot 14: Sold
Plot 15: Sold
Plot 16: Sold