Untitled Document

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% set combo = Server.CreateObject("ADODB.Recordset") combo.ActiveConnection = MM_conRemax_STRING combo.Source = "SELECT agents.AgentName, agents.AgentSurname, homes.HomeAddress, homes.HomeID, homes.HomePrice, homes.HomeCategory, homes.HomeCity, homes.RemaxNumber, homes.HomeType FROM agents, homes WHERE agents.AgentID = homes.AgentID AND (agents.AgentID = 16 or AgentID2 = 16) AND homes.HomeCategory = 'Agricultural' ORDER BY HomePrice ASC" combo.CursorType = 0 combo.CursorLocation = 2 combo.LockType = 3 combo.Open() combo_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 combo_numRows = combo_numRows + Repeat1__numRows %> Untitled Document

<% If Not combo.EOF Or Not combo.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT combo.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 combo.MoveNext() Wend %>

Address	City	Price
? <%= "HomeID=" & combo.Fields.Item("HomeID").Value %>" target="_blank"> <%=(combo.Fields.Item("HomeAddress").Value)%>	<%=(combo.Fields.Item("HomeCity").Value)%>	<%= FormatCurrency((combo.Fields.Item("HomePrice").Value), -1, -2, -2, -2) %>

<% End If ' end Not combo.EOF Or NOT combo.BOF %> <% If combo.EOF And combo.BOF Then %>

I currently do not have any agricultural listings listed.

Please check back in the future.

<% End If ' end combo.EOF And combo.BOF %>

<% combo.Close() %>