<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** 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("Cliente")) If MM_valUsername <> "" Then MM_Ira=CStr(Request.Form("Ira")) Select Case MM_Ira Case "1" MM_redirectLoginSuccess="../temporal_principal.asp" Case "2" MM_redirectLoginSuccess="../temporal_micuenta.asp" Case "4" MM_redirectLoginSuccess="../temporal_presupuestos.asp" Case "3" MM_redirectLoginSuccess="../temporal_pedidos.asp" End Select MM_fldUserAuthorization="" MM_redirectLoginFailed="index.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_Colomenca_STRING MM_rsUser.Source = "SELECT Codigo_Cliente, Password, Razon_Social" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM Clientes WHERE Codigo_Cliente='" & Replace(MM_valUsername,"'","''") &"' AND Password='" & 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 Session("R_S") = MM_rsUser.Fields.Item("Razon_Social").Value 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 %> COLOMENCA - ÁREA DE CLIENTES

C./ Del Rio, 7 - 08291 RIPOLLET (Barcelona) ESPAÑA
Telf. 34 93 594 46 10 - Fax. 34 93 580 13 92

EMPRESAPRODUCTOSÁREA DE CLIENTESCONTACTAR
 

Página Principal

 
 
Empresa
Productos
Contactar
 
Boletín de Noticias
Enlaces
ACCESO AREA DE CLIENTES


Su información ha sido enviada correctamente,

Gracias por su interés.

 
Condiciones Legales
Mapa del Web