<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_listings Dim rs_listings_numRows Set rs_listings = Server.CreateObject("ADODB.Recordset") rs_listings.ActiveConnection = MM_conRemax_STRING rs_listings.Source = "SELECT homes.* FROM homes, agents_stmarys WHERE homes.AgentID = agents_stmarys.AgentID2 OR homes.AgentID2 = agents_stmarys.AgentID2 ORDER BY homes.HomePrice ASC" rs_listings.CursorType = 0 rs_listings.CursorLocation = 2 rs_listings.LockType = 1 rs_listings.Open() rs_listings_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_listings_numRows = rs_listings_numRows + Repeat1__numRows %> Remax-ab realty- stmaryshomes.ca
   




       


Listings

<% While ((Repeat1__numRows <> 0) AND (NOT rs_listings.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_listings.MoveNext() Wend %>
Address
Price
Status
City
<%= FormatCurrency((rs_listings.Fields.Item("HomePrice").Value), 2, -2, -2, -2) %>
<%=(rs_listings.Fields.Item("RemaxNumber").Value)%>
<%=(rs_listings.Fields.Item("HomeCity").Value)%>

 


 

 

   

<% rs_listings.Close() Set rs_listings = Nothing %>