<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_woodstock__MMColParam rs_woodstock__MMColParam = "Woodstock" If (Request("MM_EmptyValue") <> "") Then rs_woodstock__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_woodstock Dim rs_woodstock_numRows Set rs_woodstock = Server.CreateObject("ADODB.Recordset") rs_woodstock.ActiveConnection = MM_conRemax_STRING rs_woodstock.Source = "SELECT HomeID, HomeCategory, HomeAddress, HomeCity, HomePrice, DateAdded FROM homes WHERE Area = '" + Replace(rs_woodstock__MMColParam, "'", "''") + "' ORDER BY DateAdded DESC" rs_woodstock.CursorType = 0 rs_woodstock.CursorLocation = 2 rs_woodstock.LockType = 1 rs_woodstock.Open() rs_woodstock_numRows = 0 %> <% Dim rs_open_house__MMColParam rs_open_house__MMColParam = "Stratford" If (Request("MM_EmptyValue") <> "") Then rs_open_house__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_open_house Dim rs_open_house_numRows Set rs_open_house = Server.CreateObject("ADODB.Recordset") rs_open_house.ActiveConnection = MM_conRemax_STRING rs_open_house.Source = "SELECT HomeID, HomeCategory, HomeAddress, HomeCity, HomePrice, HomeTaxes, Bedrooms, Bathrooms, HomeStyle, HomeType, DateAdded FROM homes WHERE Area = '" + Replace(rs_open_house__MMColParam, "'", "''") + "' ORDER BY DateAdded DESC" rs_open_house.CursorType = 0 rs_open_house.CursorLocation = 2 rs_open_house.LockType = 1 rs_open_house.Open() rs_open_house_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 7 Repeat1__index = 0 rs_open_house_numRows = rs_open_house_numRows + Repeat1__numRows %>

<% While ((Repeat1__numRows <> 0) AND (NOT rs_open_house.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_open_house.MoveNext() Wend %>



? <%= "HomeID=" & rs_open_house.Fields.Item("HomeID").Value %>"> <%=(rs_open_house.Fields.Item("HomeAddress").Value)%> , <%=(rs_open_house.Fields.Item("HomeCity").Value)%>, <%=(rs_open_house.Fields.Item("HomeCategory").Value)%> <%=(rs_open_house.Fields.Item("HomeType").Value)%>, <%=(rs_open_house.Fields.Item("HomeStyle").Value)%>, <%=(rs_open_house.Fields.Item("Bedrooms").Value)%> Bedroom(s), <%=(rs_open_house.Fields.Item("Bathrooms").Value)%> Bathroom(s)	<%= FormatCurrency((rs_open_house.Fields.Item("HomePrice").Value), 2, -2, -2, -2) %>

Privacy Act | Relocation Package | Complete Moving Checklist

Disclaimer: All information is deemed reliable but not guaranteed and should be independently verified. All properties are subject to prior sale, change or withdrawal. RE/MAX a-b Realty Ltd. brokerage shall not be responsible for any typographical errors, misinformation, misprints and shall be held totally harmless. Please call RE/MAX a-b Realty Ltd. for more details, in Stratford at 519-273-2821 or in St. Marys at 519-284-4720.

<% rs_woodstock.Close() Set rs_woodstock = Nothing %> <% rs_open_house.Close() Set rs_open_house = Nothing %>