<%@LANGUAGE="VBSCRIPT"%> <% Dim agents Dim agents_cmd Dim agents_numRows Set agents_cmd = Server.CreateObject ("ADODB.Command") agents_cmd.ActiveConnection = MM_conRemax_STRING agents_cmd.CommandText = "SELECT * FROM agents" agents_cmd.Prepared = true Set agents = agents_cmd.Execute agents_numRows = 0 %> <% Dim rrSource_agents, rrRecCount_agents, re_agents Set re_agents = New regexp re_agents.Pattern = "SELECT (.*) FROM " re_agents.Global = False re_agents.IgnoreCase = True rrSource_agents="Select Count(*) as RecCount From " & re_agents.Replace(agents.Source,"") rrRecCount_agents=CInt(agents.ActiveConnection.Execute(rrSource_agents)("RecCount")) Set rrSource_agents = Nothing Set re_agents = Nothing %>
<% agents.MoveFirst Randomize agents.Move(Int((rrRecCount_agents * Rnd) + 0)) %>

<%=(agents.Fields.Item("AgentName").Value)%> <%=(agents.Fields.Item("AgentSurname").Value)%>

<% If (agents.Fields.Item("AgentImage").Value) <> "" Then Response.Write "" Else Response.Write("") End if %>

<%=(agents.Fields.Item("Designation").Value)%>

   In Real Estate Since:
<%=(agents.Fields.Item("AgentYear").Value)%>
  Areas of Specializations:
<%=(agents.Fields.Item("Specializations").Value)%>
  Districts Serviced:
<%=(agents.Fields.Item("Districts").Value)%>
  RE/MAX Awards/Designations:
<% If (agents.Fields.Item("AwardMiracle").Value) = "Yes" Then Response.Write("Childrens Miracle Network") Else Response.Write("") End if %> <% If (agents.Fields.Item("AwardPresident").Value) = "Yes" Then Response.Write(", ") Response.Write("Remax President's Club") Else Response.Write("") End if %> <% If (agents.Fields.Item("AwardExecutive").Value) = "Yes" Then Response.Write(", ") Response.Write("Remax Executive Club") Else Response.Write("") End if %> <% If (agents.Fields.Item("Award100").Value) = "Yes" Then Response.Write(", ") Response.Write("Remax 100% Club") Else Response.Write("") End if %> <% If (agents.Fields.Item("AwardFame").Value) = "Yes" Then Response.Write(", ") Response.Write("Hall of Fame") Else Response.Write("") End if %> <% If (agents.Fields.Item("AwardPlatinum").Value) = "Yes" Then Response.Write(", ") Response.Write("Remax Platinum Award") Else Response.Write("") End if %> <% If (agents.Fields.Item("AwardUltimate").Value) = "Yes" Then Response.Write(", ") Response.Write("Remax Lifetime Achievement") Else Response.Write("") End if %>
   Service Clubs/Other Interests:
<%=(agents.Fields.Item("OtherInterest").Value)%>
   E-Mail:
<%=(agents.Fields.Item("EmailAddress").Value)%>
   Website:
<%=(agents.Fields.Item("WebsiteURL").Value)%>
<%=(agents.Fields.Item("WebsiteURL2").Value)%>
Office: <%=(agents.Fields.Item("BusNumber").Value)%>   Fax: <%=(agents.Fields.Item("FaxNumber").Value)%>
<%=(agents.Fields.Item("GeneralInfo").Value)%>
<% agents.MoveFirst 'RandomRecord_tail agents %>
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.
<% agents.Close() %>