%@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 Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 7 Repeat2__index = 0 rs_woodstock_numRows = rs_woodstock_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 7 Repeat1__index = 0 rs_open_house_numRows = rs_open_house_numRows + Repeat1__numRows %>
|
||||||||||||||||||||||||
|
||||||||||||||||||||||||