<% response.buffer = true %> <% RTIPO_BUSQUEDA = TRIM(Request.Form("TIPO_BUSQUEDA")) RTIPO_MONEDA = TRIM(Request.Form("TIPO_MONEDA")) RPRECIO_DESDE = CDBL(Request.Form("PRECIO_DESDE")) RPRECIO_HASTA = CDBL(Request.Form("PRECIO_HASTA")) RSECTOR = TRIM(Request.Form("SECTOR")) RID_ASOCIADO = TRIM(Request.Form("ID_ASOCIADO")) RRTP = CINT(Request.Form("RTP")) If CDBL(RPRECIO_DESDE) > CDBL(RPRECIO_HASTA) Then Response.Redirect("getproperty.asp?RTP=" & RRTP & "&err=price") End If Select Case RTIPO_BUSQUEDA Case "ALQ" RCAMPO_PRECIO = "palquiler" RTIPO_BUSQUEDA_LABEL = "Alquiler" Case "VEN" RCAMPO_PRECIO = "pventa" RTIPO_BUSQUEDA_LABEL = "Venta" Case "AMB" RCAMPO_PRECIO = "pventa" RTIPO_BUSQUEDA_LABEL = "Alquiler y/o Venta" Case "TRA" RCAMPO_PRECIO = "ptraspaso" RTIPO_BUSQUEDA_LABEL = "Traspaso" End Select Set RSResultado = Server.CreateObject("ADODB.RecordSet") SqlStmResultado = "SELECT id_propiedad, " & RCAMPO_PRECIO & " AS xprecio, descripcion, tipo_moneda, (SELECT nombre FROM c21_sectores WHERE id_sector = c21_propiedades.id_sector) AS nombre_sector, (SELECT nombre FROM c21_asociados WHERE id_asociado = c21_propiedades.id_asociado) AS nombre_asociado FROM c21_propiedades WHERE status = '1' AND id_tipo=" & RRTP If RTIPO_MONEDA <> "ALL" Then SqlStmResultado = SqlStmResultado & " AND tipo_moneda=" & RTIPO_MONEDA End If If RSECTOR <> "ALL" Then SqlStmResultado = SqlStmResultado & " AND id_sector=" & RSECTOR End If If RID_ASOCIADO <> "ALL" Then SqlStmResultado = SqlStmResultado & " AND id_asociado=" & RID_ASOCIADO End If SqlStmResultado = SqlStmResultado & " AND tipo_busqueda=" & Comillas(RTIPO_BUSQUEDA) If RTIPO_BUSQUEDA <> "AMB" Then SqlStmResultado = SqlStmResultado & " AND " & RCAMPO_PRECIO & " BETWEEN " & RPRECIO_DESDE & " AND " & RPRECIO_HASTA SqlStmResultado = SqlStmResultado & " ORDER BY " & RCAMPO_PRECIO Else SqlStmResultado = SqlStmResultado & " ORDER BY id_propiedad" End If Set RSResultado=Conn.Execute(SqlStmResultado) If RSResultado.EOF Then Response.Redirect("getproperty.asp?RTP=" & RRTP & "&err=empty") End If %> Century21 - Resultado de Búsqueda
" width="342" height="39">
<% If (RID_ASOCIADO) <> "ALL" And (RID_ASOCIADO) > "0" And (RID_ASOCIADO) <> "" Then %> <% End If %> <% RCONTADOR = 0 RCONSULTEPRECIO = "Consulte Precio" Do While not RSResultado.EOF RID_PROPIEDAD = RSResultado("id_propiedad") RDESCRIPCION = Left(RSResultado("descripcion"), 50) & "..." RTM = CINT(RSResultado("tipo_moneda")) RPRECIO = CDBL(RSResultado("xprecio")) RSECTOR = TRIM(RSResultado("nombre_sector")) RASOCIADO = TRIM(RSResultado("nombre_asociado")) If K = 1 Then K = 0 RCOLOR = "#D0D0D0" Else K = 1 RCOLOR = "#FFFFFF" End If RCONTADOR = RCONTADOR + 1 %> <% RSResultado.MoveNext Loop If RCONTADOR = 0 OR RCONTADOR = "" Then Response.Redirect("getproperty.asp?RTP=" & RRTP & "&err=empty") End If %>
SECTOR: <%=NombreSector(RSECTOR)%>

En <%=RTIPO_BUSQUEDA_LABEL%>
ASOCIADO: <%=DatoAsociado(RID_ASOCIADO, "N")%>
DESCRIPCION SECTOR ASOCIADO PRECIO
>

<%=RDESCRIPCION%>

 >

<%=RSECTOR%>

 >

<%=RASOCIADO%>

 >

<% If RPRECIO > 0 Then %> <%=TipoMoneda(RTM) & FORMATNUMBER(RPRECIO)%> <% Else %> <%=RCONSULTEPRECIO%> <% End If %>

Se localizaron <%=RCONTADOR%> registros.