<%
response.buffer = true
%>
<%
RID_PRO = TRIM(Request.Querystring("id_pro"))
RTIPO_BUSQUEDA = TRIM(Request.Querystring("TB"))
RRTP = CINT(Request.Form("RTP"))
If RID_PRO = "" OR RTIPO_BUSQUEDA = "" Then
Response.Redirect("getproperty.asp?RTP=" & RRTP & "&err=noid")
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, id_sector, piso, superficie, construccion, " & RCAMPO_PRECIO & " as xprecio, palquiler, pventa, descripcion, id_asociado, tipo_moneda from c21_propiedades WHERE id_propiedad=" & Comillas(RID_PRO)
Set RSResultado=Conn.Execute(SqlStmResultado)
If RSResultado.Eof then
Response.Redirect "getproperty.asp"
Else
RID_SECTOR = CINT(RSResultado("id_sector"))
RPISO = TRIM(RSResultado("piso"))
RSUPERFICIE = CDBL(RSResultado("superficie"))
RCONSTRUCCION = CDBL(RSResultado("construccion"))
RPRECIO = CDBL(RSResultado("xprecio"))
RPRECIO_ALQ = CDBL(RSResultado("palquiler"))
RPRECIO_VEN = CDBL(RSResultado("pventa"))
RDESCRIPCION = TRIM(RSResultado("descripcion"))
RID_ASOCIADO = CINT(RSResultado("id_asociado"))
RTM = CINT(RSResultado("tipo_moneda"))
If RID_SECTOR = "" Then
RID_SECTOR = 0
End If
If RSUPERFICIE = "" Then
RSUPERFICIE = 0
End If
If RCONSTRUCCION = "" Then
RCONSTRUCCION = 0
End If
If RPRECIO = "" Then
RPRECIO = 0
End If
If RID_ASOCIADO = "" Then
RID_ASOCIADO = 0
End If
End If
%>
INMODOM - Detalle de Propiedad
<%=NombreSector(RID_SECTOR)%>
En <%=RTIPO_BUSQUEDA_LABEL%>
" width="250">
<%=RID_PRO%>
<%=FORMATNUMBER(RCONSTRUCCION)%> Mts² de construcción
Superficie Total de <%=FORMATNUMBER(RSUPERFICIE)%> Mts²
Piso <%=RPISO%>
Descripción:
<%=RDESCRIPCION%>
<% If RTIPO_BUSQUEDA = "AMB" Then %>
Precios
Venta:
<%
If RPRECIO > 0 Then
Response.Write(TipoMoneda(RTM) & FormatNumber(RPRECIO_VEN) & " ")
Else
Response.Write("Consulte Precio" & " ")
End If
%>
Alquiler:
<%
If RPRECIO > 0 Then
Response.Write(TipoMoneda(RTM) & FormatNumber(RPRECIO_ALQ) & " ")
Else
Response.Write("Consulte Precio" & " ")
End If
%>
<% Else %>
<%
If RPRECIO > 0 Then
Response.Write(TipoMoneda(RTM) & FormatNumber(RPRECIO) & " ")
Else
Response.Write("Consulte Precio" & " ")
End If
%>
