<% DIM datos DIM idcar 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 Nombre_, Apellidos_, Apellidos_1, IdPersonal, Extensión, Personal.IdCargos, NombreDepartamento 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 = Server.CreateObject ("ADODB.Connection") Set Ob_Command2 = Server.CreateObject ("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 () %> <% ob_rs.move 1 %> <% DO UNTIL Ob_RS.Eof %> <% idcar = ob_rs ("IdCargos") %> <% If isnull (idcar) then %> <% else %> <% DO UNTIL OB_RS2.EOF %> <% if idcar = ob_rs2 ("IdCargos") then %> <% end if %> <% ob_rs2.movenext %> <% loop %> <% end if %> <% OB_RS.MOVENEXT %> <% ob_rs2.movefirst %> <% loop %> <% Ob_RS2.Close Ob_Conn2.Close %> <% Ob_RS.Close Ob_Conn.Close %>

Ext.	Apellidos y nombre	Departamento	Cargo
	" class="texto"><%= Ob_RS ("Apellidos_") & " " & Ob_RS ("Apellidos_1") & ", " & Ob_RS ("Nombre_")%>	<%= Ob_RS ("NombreDepartamento") %>
<%= Ob_RS ("Extensión") %>	" class="texto"><%= Ob_RS ("Apellidos_") & " " & Ob_RS ("Apellidos_1") & ", " & Ob_RS ("Nombre_")%>	<%= Ob_RS ("NombreDepartamento") %>	<%= ob_rs2 ("Cargo")%>