<%@LANGUAGE="VBSCRIPT"%> <% Dim combo Dim combo_cmd Dim combo_numRows Set combo_cmd = Server.CreateObject ("ADODB.Command") combo_cmd.ActiveConnection = MM_conRemax_STRING combo_cmd.CommandText = "SELECT agents.AgentName, agents.AgentSurname, agents2.AgentName as Name2, agents2.AgentSurname as Surname2, homes.* FROM agents, homes left outer join agents agents2 on agents2.AgentID = homes.AgentID2 WHERE agents.AgentID = homes.AgentID and homes.area = 'Stratford'" combo_cmd.Prepared = true Set combo = combo_cmd.Execute 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 %>
<% combo.MoveFirst Randomize combo.Move(Int((rrRecCount_combo * Rnd) + 0)) %>

<%=(combo.Fields.Item("HomeAddress").Value)%>, <%=(combo.Fields.Item("HomeCity").Value)%>, <%=(combo.Fields.Item("HomeProvince").Value)%>, <%=(combo.Fields.Item("HomePostal").Value)%>

Agent(s)
<%=(combo.Fields.Item("AgentName").Value)%> <%=(combo.Fields.Item("AgentSurname").Value)%> 
<%=(combo.Fields.Item("Name2").Value)%> <%=(combo.Fields.Item("Surname2").Value)%>
 <% If (combo.Fields.Item("MainPic").Value) <> "" Then Response.Write "" Else Response.Write "" End if %>
MLS #:
 <%=(combo.Fields.Item("MLSNumber").Value)%>
Home Price:
 <%= FormatCurrency((combo.Fields.Item("HomePrice").Value), 2, -2, -2, -2) %>
Home Taxes:
 <% If (combo.Fields.Item("HomeTaxes").Value) <> "0" Then Response.Write " " & FormatCurrency((combo.Fields.Item("HomeTaxes").Value), 2, -2, -2, -2) & "" Else Response.Write("") End if %>
Home Type:
 <%=(combo.Fields.Item("HomeType").Value)%>
Home Style:
 <%=(combo.Fields.Item("HomeStyle").Value)%>
Bedrooms:
 <%=(combo.Fields.Item("Bedrooms").Value)%>
Bathrooms:
 <%=(combo.Fields.Item("Bathrooms").Value)%>
Basement:
 <%=(combo.Fields.Item("Basement").Value)%>
Lot Size:
 <%=(combo.Fields.Item("LotSize").Value)%>
Heating:
 <%=(combo.Fields.Item("Heating").Value)%>
Exterior:
 <%=(combo.Fields.Item("Exterior").Value)%>
Garage/Driveway:
 <%=(combo.Fields.Item("Garage").Value)%> / <%=(combo.Fields.Item("Driveway").Value)%>   
<% combo.MoveFirst 'RandomRecord_tail combo %>

Disclaimer: All information is deemed reliable but not guaranteed and should be independently verified. All properties are subject to prior sale, change or withdrawal. RE/MAX a-b Realty Ltd. brokerage shall not be responsible for any typographical errors, misinformation, misprints and shall be held totally harmless. Please call RE/MAX a-b Realty Ltd. for more details, in Stratford at 519-273-2821 or in St. Marys at 519-284-4720.
<% combo.Close() %>