%
errorEnDatos = 0
enviado = Request.Form("enviado")
if cint(enviado) = 1 then
mensajeError = ""
nombre = SecureSQL(trim(Request.Form("editNombre")))
email = SecureSQL(trim(Request.Form("editEmail")))
email2 = SecureSQL(trim(Request.Form("editEmail2")))
if nombre = "" then
errorEnDatos = 1
mensajeError = "Debe ingresar un mombre o inmobiliaria "
end if
if (email = "") or (not EsEmail(email)) then
errorEnDatos = 1
mensajeError = mensajeError & "Debe ingresar un e-mail valido "
end if
if (email <> email2) or (not EsEmail(email)) then
errorEnDatos = 1
mensajeError = mensajeError & "Las direcciones de e-mail no coinciden"
end if
'chequeo que el email no halla sido usado anteriormente
if errorEnDatos = 0 then
openDB() 'abro al conexion a la base de datos
Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT id FROM inmobiliarias WHERE email = '" &email& "'"
RS.open sql, oConn
if RS.eof then
RS.close
codigo = GetCodigo
cuerpo = GetCuerpoActivacion(codigo)
EnvioMail "Activación Inmocontrol","soporte@inmocontrol.com.ar",email,cuerpo,1,"CHILIMAIL"
EnvioMail "Activación Inmocontrol","soporte@inmocontrol.com.ar","soporte@inmocontrol.com.ar","Una persona se ha bajado el InmoControl
Nombre: "&nombre&" e-mail: "&email&"",1,"CHILIMAIL"
sql= "INSERT INTO inmobiliarias(codigo_activacion,nombre,licencias,usado,habilitado,email) "
sql= sql& "VALUES('"&codigo&"','"&nombre&" - DEMO Desc',4,0,1,'"&email&"')"
oConn.execute sql
Session("email")= email
response.Redirect("download.asp")
else
response.Redirect("download_actualizacion.asp")
'errorEnDatos = 1
'mensajeError = "Ya existe un usuario registrado con la dirección de email provista."
end if
RS.close
Set RS = Nothing
closeDB()
end if
end if
%>
Descargas - InmoControl
Descargas InmoControl v1.5.7
PARA INGRESAR AL SISTEMA POR PRIMERA VEZ UTILICE LOS SIGUIENTES DATOS DE ACCESO: