<% session("PalabrasClaves") = "" session("Description") = "" Session("Autor") = "" Session("txtTituloPagina") = "" session("ImagenPrincipal") = "" %> <% Dim RutaHTTP Dim Favorito Dim Fecha Dim prom Dim cont Dim strTemp numArticulo="14469" Fecha = "" session("PalabrasClaves") = "Presentación de la conferencia y guía de trabajo" ' ' 'Presentación de la conferencia y guía de trabajo '' ' ' ' ' ' txtSql = "SELECT Texto FROM ObjetoSEContenido WHERE CodObjetoSE=" & NumArticulo & " AND Elemento='FotoHome' AND Atributo='MEDIA_IMG_FotoHome'" set Rs = Conn.Execute(txtSQL) If not Rs.eof then session("ImagenPrincipal") = Rs("Texto") end if txtSQL = "SELECT ISNULL(texto,ContenidoLargo) AS Texto FROM ObjetoSEContenido LEFT JOIN ContenidoLargo ON Id_ContenidoLargo=CodContenidoLargo WHERE CodObjetoSE="&numArticulo&" AND Elemento='Sumario' " set Rs = Conn.Execute(txtSQL) if not Rs.eof then session("Description") = left(Rs("Texto"),160) End If txtSQL = "SELECT Texto FROM ObjetoSEContenido WHERE CodObjetoSE="&numArticulo&" AND Elemento='Autor' " set Rs = Conn.Execute(txtSQL) if not Rs.eof then session("Autor") = Rs("Texto") End If RutaHTTP = "http://" & Request.ServerVariables("SERVER_NAME") & Left(Request.ServerVariables("PATH_INFO"), InstrRev(Request.ServerVariables("PATH_INFO"), "/")) ' se valida de la url si contiene los parametro que dan acceso para los contenidos de evaluaciones de la plataforma de capacitacion RutaCompleta = Request.ServerVariables("HTTP_REFERER") Cadena1 = RutaCompleta Cadena2= "IFramePanel.asp" If InStr(Cadena1,Cadena2)>0 then EsPanel = 1 Else EsPanel = 0 End if 'fin validacion txtTituloPagina = "" Session("txtTituloPagina")= left((txtTituloPagina),70) If Request("print") = 1 then If Session("CodWebsite")=1 then %> <%=Application("website")%> - <%=txtTituloPagina%> <% Response.write( "") %>
<%=prObtieneBanner(Session("txtTituloPagina"),"TOPE")%>
<% else %> <%=Application("website")%> - <%=txtTituloPagina%> <% Response.write( "") %>
<%=prObtieneBanner(Session("txtTituloPagina"),"TOPE")%>
<% End if else if Request("IframePanel") <> 1 and Session("EsIframe")="" then Server.execute("../../../PaisEncabezadoArticulo.asp") else %> <%=Application("website")%> - <%=txtTituloPagina%> <% Response.write( "") %>
Planes de capacitación
<% end if end if %> <% if Request("IframePanel") <> 1 and Session("EsIframe")="" then if Request("print") <> 1 then Server.execute("../../../Include/Menu.asp") end if end if%> <% if Request("IframePanel") <> 1 then %> <% if Request("print") <> 1 then Response.write "" If Session("ID_Suscriptor") <> "" AND numArticulo <> "" Then Cadena_SQL = "SELECT COUNT(*) as cuantos FROM FavoritoArticulo WHERE CodSuscriptor=" & Session("ID_Suscriptor") & _ " AND CodObjetoSE=" & numArticulo ' Response.write (Cadena_SQL) Set RS = Conn.Execute(Cadena_SQL) If not RS.EOF Then If Rs("Cuantos")>0 Then favorito = "" Else favorito = "" End If Else favorito = "" End If Rs.close Set Rs=Nothing End If Response.write "" Response.write "" end if end if %>
    " & favorito & "    " If Session("CodWebsite")=1 then Response.write "      " End if Response.write "


<% Cadena_SQL = "select calificacion from calificaArticulo where CodObjetoSE = "&numarticulo Set RS = conn.execute(Cadena_SQL) cont = 0 prom = 0 Do while not RS.EOF prom = prom + RS("calificacion") RS.MoveNext cont = cont + 1 loop if cont=0 then cont=1 for i=1 to prom/cont Response.write " " next %> <% varAntetitulo1 = "Memorias de eventos: Gestión del talento y la sucesión" varTitulo1 = "Cuándo es el momento clave para implementar un programa de sucesión" varAntetituloTitulo = ""&varAntetitulo1&"
"&varTitulo1&"" %> <% varSumario1 = "Se ha preguntado: para qué, cuándo y cómo comenzar un proceso de gestión del talento y sucesión. Identifique en qué estado de desarrollo se encuentra su organización, antes de implementar una estrategia de este tipo." varSumario = ""&varSumario1&"" %> <% if Session("CodWebsite")=2 then if numArticulo < 10329 or numArticulo > 11708 then %>
<%=varAntetituloTitulo%>
<%=varSumario%>
<% end if%> <%else%>
<%=varAntetituloTitulo%>
<%=varSumario%>
<% end if %>

<% strAutor="Alejandro Rodríguez
Gerente – Socio de la firma TRI." strTiempo="" If strAutor <> "" Then Response.write "Por " & strAutor & "" End If Session("Fecha") = Fecha If Fecha <> "" Then Response.write ("
" & Day(Fecha) & " de " &Meses(Month(Fecha)) & " de " & Year(Fecha)) End If If strTiempo <> "" Then%>
Tiempo estimado de lectura: <%'Response.write("
Tiempo estimado de lectura:" & " " & strTiempo) Response.write strTiempo End If %>
<% %>
<% txturl = "" txturl = Replace(txtUrl,"'>","' class=""Parrafo"">") Response.write txturl %> Descargue la presentación

<% If EsPanel then datosconcatena = "IDUSUARIO=" & request("IDUSUARIO") & "&ITEM=" & request("ITEM")& "&CODPLANDESARROLLOUSUARIO=" & request("CODPLANDESARROLLOUSUARIO") %> <% End if if Request("IframePanel") <> 1 and Session("EsIframe")="" then Server.execute("../../../PaisPataArticulo.asp") else %>
<% end if If Request("IdUsuario")="" then Session("EsIframe") = "" end if %>