Inteleris - Soluciones Web y Multimedia

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%> <% MM_conexionusuarios_STRING="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("/data/usuarios.mdb"); %> <% // *** Validate request to log in to this site. var MM_LoginAction = Request.ServerVariables("URL"); if (Request.QueryString!="") MM_LoginAction += "?" + Request.QueryString; var MM_valUsername=String(Request.Form("Usuario")); if (MM_valUsername != "undefined") { var MM_fldUserAuthorization="nivel"; var MM_redirectLoginSuccess="reportecliente.asp"; var MM_redirectLoginFailed="denegado.asp"; var MM_flag="ADODB.Recordset"; var MM_rsUser = Server.CreateObject(MM_flag); MM_rsUser.ActiveConnection = MM_conexionusuarios_STRING; MM_rsUser.Source = "SELECT usuario, clave"; if (MM_fldUserAuthorization != "") MM_rsUser.Source += "," + MM_fldUserAuthorization; MM_rsUser.Source += " FROM cuentas WHERE usuario='" + MM_valUsername.replace(/'/g, "''") + "' AND clave='" + String(Request.Form("Clave")).replace(/'/g, "''") + "'"; MM_rsUser.CursorType = 0; MM_rsUser.CursorLocation = 2; MM_rsUser.LockType = 3; MM_rsUser.Open(); if (!MM_rsUser.EOF || !MM_rsUser.BOF) { // username and password match - this is a valid user Session("MM_Username") = MM_valUsername; if (MM_fldUserAuthorization != "") { Session("MM_UserAuthorization") = String(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value); } else { Session("MM_UserAuthorization") = ""; } if (String(Request.QueryString("accessdenied")) != "undefined" && false) { MM_redirectLoginSuccess = Request.QueryString("accessdenied"); } MM_rsUser.Close(); Response.Redirect(MM_redirectLoginSuccess); } MM_rsUser.Close(); Response.Redirect(MM_redirectLoginFailed); } %> Inteleris - Soluciones Web y Multimedia

Inicio ::: Nosotros ::: Servicios ::: Soporte ::: Contactos

:::

Soporte de Clientes

:::

Esta área es de uso exclusivo para nuestros clientes y de personal autorizado por Inteleris Corp. Gracias por interesarse en nuestra empresa.

Inicio ::: Nosotros ::: Servicios ::: Soporte ::: Contactos