DEPARTAMENTO DE CONTROL AUTOMÁTICO. Personal
<%
Dim datos
Dim salto
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_Command = Server.CreateObject ("ADODB.Command")
Ob_Conn.Open "personal"
Ob_Command.ActiveConnection = Ob_Conn
Ob_Command.CommandType = adCmdText
Sql= "SELECT IdPersonal, Nombre_, Apellidos_, Apellidos_1, Cargo FROM Personal, Cargos "
Sql= Sql & "WHERE Personal.IdCargos = Cargos.IdCargos AND IdDepartamento = 2 And Personal.Activo ORDER BY Ranking, Apellidos_ "
Ob_Command.CommandText = Sql
SET Ob_RS = Ob_Command.Execute () %>
<% salto = 0 %>
| Jefe del Departamento |
Cargo |
|
Pablo González de Santos |
Investigador Científico |
| |
|
| Personal Científico |
Cargo |
<% DO UNTIL Ob_RS.Eof %>
<% if ob_rs("Apellidos_1") <> ("Santos") then %>
|
<%= Ob_RS ("Nombre_") & " " & Ob_RS ("Apellidos_") & " " & Ob_RS ("Apellidos_1")%> |
<%= Ob_RS ("Cargo") %> |
<% salto = salto +1 %>
<% end if %>
<% Ob_RS.MoveNext
LOOP
Ob_RS.Close
Ob_Conn.Close %>
