<% 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 = Server.CreateObject ("ADODB.Connection") 'Set Ob_Command = Server.CreateObject ("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 = 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, 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 = 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 () %> <% 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 %> <% end if %> Página Web: <% WWW = mid(WWW, 2, len(WWW)-2) %> <% response.write WWW %>