<%@LANGUAGE="VBSCRIPT"%> <% Dim combo__HomePick combo__HomePick = "1" if (Request.QueryString("HomeID") <> "") then combo__HomePick = Request.QueryString("HomeID") %> <% set combo = Server.CreateObject("ADODB.Recordset") combo.ActiveConnection = MM_conRemax_STRING combo.Source = "SELECT agents.AgentName, agents.AgentSurname, homes.* FROM agents, homes WHERE agents.AgentID = homes.AgentID and homes.HomeID = " + Replace(combo__HomePick, "'", "''") + "" combo.CursorType = 0 combo.CursorLocation = 2 combo.LockType = 3 combo.Open() combo_numRows = 0 %> <% Dim combo_2ndagent__HomePick combo_2ndagent__HomePick = "1" if (Request.QueryString("HomeID") <> "") then combo_2ndagent__HomePick = Request.QueryString("HomeID") %> <% set combo_2ndagent = Server.CreateObject("ADODB.Recordset") combo_2ndagent.ActiveConnection = MM_conRemax_STRING combo_2ndagent.Source = "SELECT agents.AgentName, agents.AgentSurname, agents.AgentID FROM agents, homes WHERE agents.AgentID = homes.AgentID2 and homes.HomeID = " + Replace(combo_2ndagent__HomePick, "'", "''") + "" combo_2ndagent.CursorType = 0 combo_2ndagent.CursorLocation = 2 combo_2ndagent.LockType = 3 combo_2ndagent.Open() combo_2ndagent_numRows = 0 %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Stratford Remax a-b realty

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

Agent(s)
 <% If (combo.Fields.Item("MainPic").Value) <> "" Then Response.Write("") Else Response.Write("") End if %>
Home Status:
  <%=(combo.Fields.Item("RemaxNumber").Value)%>
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(" $") Response.Write(combo.Fields.Item("HomeTaxes").Value) 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:
  <%=(combo.Fields.Item("Garage").Value)%>
Driveway:
  <%=(combo.Fields.Item("Driveway").Value)%>
Video Tour:
   <% If (combo.Fields.Item("VideoTour").Value) <> "" Then Response.Write("") Response.Write("Click Here") Response.Write("") Else Response.Write("Not Available") End if %>

  " target="_blank" onClick="GP_AdvOpenWindow('../images/homes/<%=(combo.Fields.Item("Pic1").Value)%>','','fullscreen=no,toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,channelmode=no,directories=no',400,300,'center','ignoreLink','',0,'',0,1,5,'');return document.MM_returnValue"> <% If (combo.Fields.Item("Pic1").Value) <> "" Then Response.Write("") Else Response.Write("") End if %> " target="_blank" onClick="GP_AdvOpenWindow('../images/homes/<%=(combo.Fields.Item("Pic2").Value)%>','','fullscreen=no,toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,channelmode=no,directories=no',400,300,'center','ignoreLink','',0,'',0,1,5,'');return document.MM_returnValue"> <% If (combo.Fields.Item("Pic2").Value) <> "" Then Response.Write("") Else Response.Write("") End if %> " target="_blank" onClick="GP_AdvOpenWindow('../images/homes/<%=(combo.Fields.Item("Pic3").Value)%>','','fullscreen=no,toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,channelmode=no,directories=no',400,300,'center','ignoreLink','',0,'',0,1,5,'');return document.MM_returnValue"> <% If (combo.Fields.Item("Pic3").Value) <> "" Then Response.Write("") Else Response.Write("") End if %> " target="_blank" onClick="GP_AdvOpenWindow('../images/homes/<%=(combo.Fields.Item("Pic4").Value)%>','','fullscreen=no,toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,channelmode=no,directories=no',400,300,'center','ignoreLink','',0,'',0,1,5,'');return document.MM_returnValue"> <% If (combo.Fields.Item("Pic4").Value) <> "" Then Response.Write("") Else Response.Write("") End if %> " target="_blank" onClick="GP_AdvOpenWindow('../images/homes/<%=(combo.Fields.Item("Pic5").Value)%>','','fullscreen=no,toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,channelmode=no,directories=no',400,300,'center','ignoreLink','',0,'',0,1,5,'');return document.MM_returnValue"> <% If (combo.Fields.Item("Pic5").Value) <> "" Then Response.Write("") Else Response.Write("") End if %> " target="_blank" onClick="GP_AdvOpenWindow('../images/homes/<%=(combo.Fields.Item("Pic6").Value)%>','','fullscreen=no,toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,channelmode=no,directories=no',400,300,'center','ignoreLink','',0,'',0,1,5,'');return document.MM_returnValue"> <% If (combo.Fields.Item("Pic6").Value) <> "" Then Response.Write("") Else Response.Write("") End if %>

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

<% If (combo.Fields.Item("DateUpdated").Value) <> "" Then Response.Write("Last Updated:") Response.Write(combo.Fields.Item("DateUpdated").Value) Response.Write "

" Else Response.Write("") End if %>

Disclaimer: All information deemed reliable but not guaranteed and should be independently verified. All properties are subject to prior sale, change or withdrawal. Remax AB Realty LTD. shall not be responsible for any typographical errors, misinformation, misprints and shall not 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() %> <% combo_2ndagent.Close() %>