CONSEJO SUPERIOR DE INVESTIGACIONES CIENTÍFICAS
INSTITUTO DE AUTOMÁTICA INDUSTRIAL
Icono organigramaORGANIGRAMA
Icono memoriasMEMORIAS
Icono enlacesENLACES
Icono Mapa webMAPA WEB
Icono InicioINICIO

IAI: Carretera de Campo Real, km 0.200.
La Poveda. Arganda del Rey.
Madrid. E-28500 (España).

Tel: (+34) 91 871 19 00
Fax:(+34) 91 871 70 50


PERSONAL DEL INSTITUTO

<% DIM foto DIM cadenadatos DIM WWW dim correo dim idcar dim ext nombre = request.querystring ("nm") apellido1 = request.querystring ("ap") apellido2 = request.querystring ("ap2") mail = request.querystring ("cor") ' Set Ob_Conn = XXXXXXXXXXXXXXXXXXX ("ADODB.Connection") 'Set Ob_Command = XXXXXXXXXXXXXXXXXXX ("ADODB.Command") 'Ob_Conn.Open "personal_copia" 'Ob_Command.ActiveConnection = Ob_Conn 'Ob_Command.CommandType = adCmdText 'Sql= "SELECT IdPersonal, Nombre_, Apellidos_, Apellidos_1, NombreDepartamento, Cargo, Web, Extensión, DirCorreoElectrónico, Fotografia FROM Personal, Cargos, Departamentos " 'Sql= Sql & "WHERE Personal.IdCargos = Cargos.IdCargos AND Personal.IdDepartamento = Departamentos.IdDepartamento AND Personal.Activo ORDER BY Apellidos_ " 'Ob_Command.CommandText = Sql 'SET Ob_RS = Ob_Command.Execute () Set Ob_Conn = XXXXXXXXXXXXXXXXXXX ("ADODB.Connection") Set Ob_Command = XXXXXXXXXXXXXXXXXXX ("ADODB.Command") Ob_Conn.Open "personal" Ob_Command.ActiveConnection = Ob_Conn Ob_Command.CommandType = adCmdText Sql= " SELECT IdPersonal, Nombre_, Apellidos_, Apellidos_1, Personal.IdCargos, NombreDepartamento, Web, Extensión, DirCorreoElectrónico, Fotografia FROM Personal, Departamentos " Sql=Sql & " WHERE Personal.IdDepartamento = Departamentos.IdDepartamento AND Personal.Activo ORDER BY Apellidos_, Apellidos_1" Ob_Command.CommandText = Sql SET Ob_RS = Ob_Command.Execute () %> <% Set Ob_Conn2 = XXXXXXXXXXXXXXXXXXX ("ADODB.Connection") Set Ob_Command2 = XXXXXXXXXXXXXXXXXXX ("ADODB.Command") Ob_Conn2.Open "personal" Ob_Command2.ActiveConnection = Ob_Conn2 Ob_Command2.CommandType = adCmdText Sql= " SELECT IdCargos, Cargo FROM Cargos" Ob_Command2.CommandText = Sql SET Ob_RS2 = Ob_Command2.Execute () %> <% DO UNTIL Ob_RS.Eof %> <% cadenadatos = CStr (ob_rs("IdPersonal")) %> <% idcar = ob_rs ("IdCargos") %> <% if cadenadatos = request.querystring ("datos") then %> <% cambio = cadenadatos %>
<% if not isnull (idcar) then%> <% DO UNTIL OB_RS2.EOF %> <% if idcar = ob_rs2 ("IdCargos") then %> <% end if %> <% ob_rs2.movenext %> <% loop %> <%end if %> <% ext = ob_rs("Extensión") %> <% If not isnull (ext) then %> <% end if %> <% correo = OB_RS ("DirCorreoElectrónico") %> <% If not isnull (correo) then%> <% WWW = Ob_RS ("Web") %> <% if isnull (WWW) then %> <% else %> <% end if %> <% end if %> <% Ob_RS.MoveNext LOOP Ob_RS.Close Ob_Conn.Close %>
<% foto = ob_rs("Fotografia") %> <% if isnull (foto) then %> <% else %> <% foto = mid(foto, 2, len(foto)-2) %> <% end if %>
Apellidos:
<%= Ob_RS ("Apellidos_") & " " & Ob_RS ("Apellidos_1") %>
Nombre:
<%= Ob_RS ("Nombre_") %>
Departamento:
<%= Ob_RS ("NombreDepartamento") %>
Cargo:
<%= Ob_RS2 ("Cargo") %>
Ext:
<%= ext %>
Correo:
<% arroba = Right (correo,12) %> <% correo = replace(correo,arroba, "")%>
<%= correo %>arrobaiai.csic.es
<% end if %>
Página Web:
<% WWW = mid(WWW, 2, len(WWW)-2) %> <% XXXXXXXXXXXXXX WWW %>