<%@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 + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername=CStr(Request.Form("user")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="../../../indexboe.php" MM_redirectLoginFailed="../../../error.php" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_xusers_STRING MM_rsUser.Source = "SELECT name, pass" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM xusers WHERE name='" & Replace(MM_valUsername,"'","''") &"' AND pass='" & Replace(Request.Form("clave"),"'","''") & "'" 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 true 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 %> contaaudi :: portal de contabilidad y auditoría :: Bienvenid@
 
  |  
 
     
 
usuario
clave
 
   
   
 
 

  B.O.E  ››   1992

LISTA POR AÑOS

 

ORDEN de 30 de septiembre de 1992 por la que se modifica la de 18 de enero de 1991 sobre información pública periódica de las entidades emisoras de valores admitidos a negociación en Bolsa. (BOE núm. 252, de 20 de octubre de 1992).

Í N D I C E

Exposición de motivos.

Norma única.

Disposición final.