%@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
Back One Screen
" target="_blank">
<%
If (combo.Fields.Item("Pic1").Value) <> "" Then
Response.Write("
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||