<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_combo Dim rs_combo_cmd Dim rs_combo_numRows Set rs_combo_cmd = Server.CreateObject ("ADODB.Command") rs_combo_cmd.ActiveConnection = MM_conRemax_STRING rs_combo_cmd.CommandText = "SELECT Designation, AgentName, AgentImage, AgentSurname FROM agents" rs_combo_cmd.Prepared = true Set rs_combo = rs_combo_cmd.Execute rs_combo_numRows = 0 %> <% Dim rrSource_rs_combo, rrRecCount_rs_combo, re_rs_combo Set re_rs_combo = New regexp re_rs_combo.Pattern = "SELECT (.*) FROM " re_rs_combo.Global = False re_rs_combo.IgnoreCase = True rrSource_rs_combo="Select Count(*) as RecCount From " & re_rs_combo.Replace(rs_combo.Source,"") rrRecCount_rs_combo=CInt(rs_combo.ActiveConnection.Execute(rrSource_rs_combo)("RecCount")) Set rrSource_rs_combo = Nothing Set re_rs_combo = Nothing %>

<% rs_combo.MoveFirst Randomize rs_combo.Move(Int((rrRecCount_rs_combo * Rnd) + 0)) %>

88 Wellington St.
Stratford, Ontario
N5A 2L2
Phone: 519-273-2821
Fax: 519-273-4202

Festival Marketplace
1067 Ontario Street
Stratford, Ontario

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

" width="150" border="1">

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

184 Queen St West
St Marys, Ontario
N4X 1A4
Phone: 519-284-4720
Fax: 519-284-4761

521 Dundas Street
Woodstock, ON
N4S 1C3
Phone: 519-536-7535
Fax: 519-536-9317

<% rs_combo.MoveFirst 'RandomRecord_tail rs_combo %>

Visit us at www.stratfordhomes.ca for all our listings.

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