<%@LANGUAGE="VBSCRIPT"%> <% set R_areaprivada = Server.CreateObject("ADODB.Recordset") R_areaprivada.ActiveConnection = MM_MCWEB_STRING R_areaprivada.Source = "SELECT * FROM clientes_web" R_areaprivada.CursorType = 0 R_areaprivada.CursorLocation = 2 R_areaprivada.LockType = 3 R_areaprivada.Open() R_areaprivada_numRows = 0 %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername=CStr(Request.Form("user")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="contenidos_espanol/area_privada/registro.asp" MM_redirectLoginFailed="acceso_error.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_MCWEB_STRING MM_rsUser.Source = "SELECT codigo, pass" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM clientes_web WHERE codigo='" & Replace(MM_valUsername,"'","''") &"' AND pass='" & Replace(Request.Form("pass"),"'","''") & "'" 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 %>

Política de privacidad Los datos de carácter personal de los visitantes y usuarios de esta web, son los recogidos de dichos sujetos a través de los correspondientes formularios de solicitud de información personal, y que han sido suministrados por ellos con total libertad. Cualquier tipo de dato personal recabado por Mc Informática mediante su web incluye un enlace con su política de privacidad. La recogida de información de carácter personal que Mc Informática recaba tiene como único objetivo el utilizarla para poder prestar a los usuarios de dicha web un trato personalizado, y satisfacer los requisitos de información, o de otro tipo, planteados por los visitantes y / o usuarios de la web. Los datos personales están incorporados a una base de datos, cuyo titular exclusivo es Mc Informática. El tratamiento de dicha información, en lo referente a los datos personales, cuenta con las medidas de seguridad exigidas legalmente conforme a la naturaleza de los datos obtenidos y su tratamiento cumple con lo dispuesto en la Ley Orgánica 15/1999, de 13 de diciembre, de Protección de Datos de Carácter Personal. Mc Informática no desvelará los datos de carácter personal facilitados por sus visitantes y/o usuarios salvo autorización por parte de los mismos, o cuando considere de buena fé, que es necesario por razones legales. En cualquier caso, debe de tenerse en cuenta que cuando se facilita información de carácter personal on-line por una línea accesible al público, dicha información puede ser captada y utilizada por otros. Es por este motivo por el que se recomienda mantener el secreto de sus claves de acceso y, en general, la utilización responsable de los servicios.