<%
response.buffer = true
%>
<%
RRIP = CINT(request.querystring("RIP"))
If RRIP <> "" AND RRIP <> 0 Then
Set RS = Server.CreateObject("ADODB.RecordSet")
StrSql = "SELECT * FROM c21_propiedades WHERE id_propiedad=" & RRIP
Set RS = Conn.Execute(StrSql)
If RS.EOF Then
response.redirect("default.asp") '"act_propiedades.asp"
Else
SESSION("ID_PROPIEDAD") = CINT(RS("id_propiedad"))
ID_TIPO = CINT(RS("id_tipo"))
DIRECCION = TRIM(RS("direccion"))
NUMERO = TRIM(RS("numero"))
BLOQUE = TRIM(RS("bloque"))
PISO = TRIM(RS("piso"))
LETRA = TRIM(RS("letra"))
POBLACION = TRIM(RS("poblacion"))
ID_SECTOR = CINT(RS("id_sector"))
ID_CIUDAD = CINT(RS("id_ciudad"))
SUPERFICIE = CDBL(RS("superficie"))
CONSTRUCCION = CDBL(RS("construccion"))
PVENTA = CDBL(RS("pventa"))
PALQUILER = CDBL(RS("palquiler"))
TIPO_MONEDA = TRIM(RS("tipo_moneda"))
DESCRIPCION = TRIM(RS("descripcion"))
ID_ASOCIADO = CINT(RS("id_asociado"))
STATUS = TRIM(RS("status"))
TIPO_BUSQUEDA = TRIM(RS("tipo_busqueda"))
FOTO2 = TRIM(RS("foto2"))
FOTO3 = TRIM(RS("foto3"))
FOTO4 = TRIM(RS("foto4"))
End If
End If
If request("Flag") = "" then
Flag = 0
Else
Flag = request("Flag")
End If
%>
<% Select Case Flag %>
<% Case 0 %>
INMODOM - Actualización de Propiedades
<% Case 1 %>
<%
SRIP = CINT(SESSION("ID_PROPIEDAD"))
ID_TIPO = request.form("ID_TIPO")
DIRECCION = request.form("DIRECCION")
NUMERO = request.form("NUMERO")
BLOQUE = request.form("BLOQUE")
PISO = request.form("PISO")
LETRA = request.form("LETRA")
POBLACION = request.form("POBLACION")
ID_SECTOR = request.form("ID_SECTOR")
ID_CIUDAD = request.form("ID_CIUDAD")
SUPERFICIE = request.form("SUPERFICIE")
CONSTRUCCION = request.form("CONSTRUCCION")
PVENTA = request.form("PVENTA")
PALQUILER = request.form("PALQUILER")
TIPO_MONEDA = request.form("TIPO_MONEDA")
DESCRIPCION = request.form("DESCRIPCION")
ID_ASOCIADO = request.form("ID_ASOCIADO")
STATUS = request.form("STATUS")
TIPO_BUSQUEDA = request.form("TIPO_BUSQUEDA")
FOTO2 = request.form("FOTO2")
FOTO3 = request.form("FOTO3")
FOTO4 = request.form("FOTO4")
Query = "UPDATE c21_propiedades SET "
Query = Query & "id_tipo=" & CINT (ID_TIPO)
Query = Query & ",direccion=" & Comillas (DIRECCION)
Query = Query & ",numero=" & ComillasMin (NUMERO)
Query = Query & ",bloque=" & ComillasMin (BLOQUE)
Query = Query & ",piso=" & ComillasMin (PISO)
Query = Query & ",letra=" & ComillasMin (LETRA)
Query = Query & ",poblacion=" & ComillasMin (POBLACION)
Query = Query & ",id_sector=" & CINT (ID_SECTOR)
Query = Query & ",id_ciudad=" & CINT (ID_CIUDAD)
Query = Query & ",superficie=" & CDBL (SUPERFICIE)
Query = Query & ",construccion=" & CDBL (CONSTRUCCION)
Query = Query & ",pventa=" & CDBL (PVENTA)
Query = Query & ",palquiler=" & CDBL (PALQUILER)
Query = Query & ",tipo_moneda=" & ComillasMin (TIPO_MONEDA)
Query = Query & ",descripcion=" & ComillasMin (DESCRIPCION)
Query = Query & ",id_asociado=" & CINT (ID_ASOCIADO)
Query = Query & ",status=" & ComillasMin (STATUS)
Query = Query & ",tipo_busqueda=" & ComillasMin (TIPO_BUSQUEDA)
Query = Query & ",foto2=" & ComillasMin (FOTO2)
Query = Query & ",foto3=" & ComillasMin (FOTO3)
Query = Query & ",foto4=" & ComillasMin (FOTO4)
Query = Query & " WHERE id_propiedad=" & SRIP
Set RS=Conn.Execute(Query)
If err.number > 0 then
response.write "VBScript Errors Occured:" & ""
response.write "Error Number=" & err.number & "
"
response.write "Error Descr.=" & err.description & "
"
response.write "Help Context=" & err.helpcontext & "
"
response.write "Help Path=" & err.helppath & "
"
response.write "Native Error=" & err.nativeerror & "
"
response.write "Source=" & err.source & "
"
response.write "SQLState=" & err.sqlstate & "
"
End if
If conn.errors.count > 0 then
response.write "Database Errors Occured" & "
"
response.write SQLstmt & "
"
for counter= 0 to conn.errors.count
response.write "Error #" & conn.errors(counter).number & "
"
response.write "Error desc. -> " & conn.errors(counter).description & "
"
next
Else
response.redirect "act_propiedades.asp"
End if
Conn.Close
Set Conn = Nothing
End Select
%>