%@LANGUAGE="VBSCRIPT"%> <% Dim rs_open_house__MMColParam rs_open_house__MMColParam = "0" 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, OPDate, OPTime, OPTime2 FROM homes WHERE OPDate <> '" + Replace(rs_open_house__MMColParam, "'", "''") + "' ORDER BY OPDate ASC, OPTime2 ASC" 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 = -1 Repeat1__index = 0 rs_open_house_numRows = rs_open_house_numRows + Repeat1__numRows %>
|
|||||||||||||||||||||
|
|||||||||||||||||||||