<%@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.RemaxNumber, homes.HomeType, homes.MainPic, homes.Features FROM agents, homes WHERE agents.AgentID = homes.AgentID AND (agents.AgentID = 59 or AgentID2 = 59) ORDER BY HomePrice ASC" combo.CursorType = 0 combo.CursorLocation = 2 combo.LockType = 3 combo.Open() combo_numRows = 0 %> <% Dim rrSource_combo, rrRecCount_combo, re_combo Set re_combo = New regexp re_combo.Pattern = "SELECT (.*) FROM " re_combo.Global = False re_combo.IgnoreCase = True rrSource_combo="Select Count(*) as RecCount From " & re_combo.Replace(combo.Source,"") rrRecCount_combo=CInt(combo.ActiveConnection.Execute(rrSource_combo)("RecCount")) Set rrSource_combo = Nothing Set re_combo = Nothing %> Kristin Sainsbury - Re/Max a-b Realty ltd., Realtor

BedfordNeighbours.com

 

Are you interested in making an informed real-estate decision?

I understand the importance of making the best decisions possible when buying or selling your home. My priority is to educate you and guide you through the home buying/selling process so that you can make the right decisions about one of your most important assets.

Client satisfaction is my #1 priority. Call today for a free market evaluation or advice about the home buying process. Ask about my buyer/seller services, and my Hot New Listings Notification.

In today's increasingly competitive and complex market place, it's important to know you're working with a professional who cares about you.

<% combo.MoveFirst Randomize combo.Move(Int((rrRecCount_combo * Rnd) + 0)) %>

<%=(combo.Fields.Item("Features").Value)%>

<% combo.MoveFirst 'RandomRecord_tail combo %>

Call today!               
            Kristin
     

 

<% combo.Close() %>