<%@LANGUAGE="VBSCRIPT"%> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("Usuario")) If MM_valUsername <> "" Then MM_fldUserAuthorization="Nivel" MM_redirectLoginSuccess="Administrador.asp" MM_redirectLoginFailed="LogIn.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_ConnSuscriptores_STRING MM_rsUser.Source = "SELECT Login, Contraseña" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM Suscriptores WHERE Login='" & MM_valUsername &"' AND Contraseña='" & CStr(Request.Form("Contraseña")) & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> Bufete Aeroley
Bufete Aeroley  

Acceso Suscriptores ( Protección de Datos Personales)

__

¿Olvidó su contraseña?
Visítanos en FacebookSíguenos en Twitter
 

 

Comuníquese con Nosotros

1. Por teléfono:.......................................... (34) 956 795 075

2. Por email:............................................... clientes@aeroley.com

3. Sólo Suscriptores:............................... suscriptores@aeroley.com

4. Nuestra dirección postal:................... Apartado de Correos 172. Guadiaro, 11311 (Cádiz) Spain

EL BUFETE ESTÁ A SU SERVICIO:.......... de 10:00 a 14:00 (l.t.) de lunes a viernes.

CONSULTAS DE SUSCIPTORES "A":.... de 08:00 A 22:00.

 

  

© J. Recarte y Bufete Aeroley 2012

advertencias legales

 diseñado por:

 

Licencia Creative Commons

Bufete Aeroley por Javier Recarte Casanova se encuentra bajo una Licencia Creative Commons Atribución-NoComercial-SinDerivadas 3.0 Unported.
Basada en una obra en www.aeroley.com.
Permisos que vayan más allá de lo cubierto por esta licencia pueden encontrarse en www.aeroley.com.