<%
response.buffer = true
%>
<%
If request("Flag") = "" then
Flag = 0
Else
Flag = request("Flag")
End If
%>
<% Select Case Flag %>
<% Case 0 %>
<%
Public Function BuscaSiguiente()
Set RS = Server.CreateObject("ADODB.RecordSet")
StrSql = "SELECT MAX(ID_PROPIEDAD) AS CodigoMaximo FROM c21_propiedades"
Set RS = Conn.Execute(StrSql)
If Not RS.EOF Then
If Not IsNull(RS.Fields(0).Value) Then
BuscaSiguiente = RS.Fields(0).Value + 1
Else
BuscaSiguiente = 1
End If
Else
BuscaSiguiente = 1
End If
RS.Close
Set RS = Nothing
Exit Function
End Function
%>
Adición de Propiedades - Remax Cima
<% Case 1 %>
<%
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")
Query = "INSERT INTO c21_propiedades VALUES ("
Query = Query & BuscaSiguiente & ","
Query = Query & CINT (ID_TIPO) & ","
Query = Query & Comillas (DIRECCION) & ","
Query = Query & ComillasMin (NUMERO) & ","
Query = Query & ComillasMin (BLOQUE) & ","
Query = Query & ComillasMin (PISO) & ","
Query = Query & ComillasMin (LETRA) & ","
Query = Query & ComillasMin (POBLACION) & ","
Query = Query & CINT (ID_SECTOR) & ","
Query = Query & CINT (ID_CIUDAD) & ","
Query = Query & CDBL (SUPERFICIE) & ","
Query = Query & CDBL (CONSTRUCCION) & ","
Query = Query & CDBL (PVENTA) & ","
Query = Query & CDBL (PALQUILER) & ","
Query = Query & ComillasMin (TIPO_MONEDA) & ","
Query = Query & ComillasMin (DESCRIPCION) & ","
Query = Query & CINT (ID_ASOCIADO) & ","
Query = Query & ComillasMin (STATUS) & ","
Query = Query & ComillasMin (TIPO_BUSQUEDA) & ")"
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
%>