<% dim accion, email, clave, sql, emailRecup dim RS dim existe accion = lcase(Request.Form("hAccion")) 'Si la accion es ingresar al panel de control If (accion = "ingresar") then mensajeLogin= "Usuario o clave no válido, intente nuevamente." email = SecureSQL(trim(Request.Form("editEmail"))) clave = SecureSQL(trim(Request.Form("editClave"))) if email = "admin" and clave = "ilmbns8s" then 'para entrar al admin Session("idUsuario") = 1 Response.Redirect("admin.asp") else if (email <> "" and clave <> "") then sql = "SELECT id FROM inmobiliarias WHERE email = '" &email& "' AND clave ='" &clave& "'" OpenDB Set RS = Server.CreateObject("ADODB.RecordSet") RS.open sql, oConn existe = not RS.EOF if existe then Session("idUsuario") = RS("id") else Session("idUsuario") = "" end if RS.Close Set RS = Nothing CloseDB if existe then Response.Redirect("clientes_panel.asp") end if End If end if end If 'Si la accion es recuperar clave accion = lcase(Request.Form("hAccion")) If (accion = "recuperar") then mensajeRecuperacion = "El email ingresado no es valido" emailRecup = SecureSQL(trim(Request.Form("editRecuparEmail"))) If emailRecup <> "" then sql = "SELECT clave FROM inmobiliarias WHERE email = '" &emailRecup& "'" OpenDB Set RS = Server.CreateObject("ADODB.RecordSet") RS.open sql, oConn existe = not RS.EOF If existe then 'Mejorar el cuerpo cuerpo = "Estos son sus datos de acceso a InmoControl
Email: " &emailRecup& "
Clave: " &RS("clave")& "

Departamento de Soporte Técnico de InmoControl
www.inmocontrol.com.ar
" 'Cambiar a Chilimail cuando se suba EnvioMail "Recuperación de su clave de InmoControl","Soporte InmoControl ",emailRecup,cuerpo,1,"CHILIMAIL" mensajeRecuperacion ="Su clave ha sido enviada a " &emailRecup end if RS.Close Set RS = Nothing CloseDB End If End If %> Ingreso Clientes - InmoControl

 Manual del Usuario.

 Ingreso clientes

e-mail:
Clave:
<%=mensajeLogin%>



¿Olvidó su clave de acceso?
Ingrese su nombre de usuario y su clave de acceso será enviada a su casilla de correo.

e-mail:
<%= mensajeRecuperacion%>

Si no recuerda con que dirección de e-mail está registrado envíe un e-mail o contactase con el equipo de soporte técnico de InmoControl (soporte@inmocontrol.com.ar).


  Servicios exclusivos para clientes

Soporte técnico personalizado.

Administración de terminales.

Actualización de datos.