<% Dim RutaHTTP Dim Favorito Dim Fecha Dim prom Dim cont Dim strTemp numArticulo="16906" Fecha = "10/06/2020" session("PalabrasClaves") = "gestión humana,recursos humanos,clima laboral,riesgo psicosocial,selección,desarrollo,salarios,compensación,evaluación de desempeño,indicadores de gestión humana,empleo" ' ' ' '' ' ' ' ' ' 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 = "Así avanza la reactivación económica en Colombia" Session("txtTituloPagina")= trim(txtTituloPagina) 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 session("PalabrasClaves") = "" %> <% 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 = "Infografía interactiva" varTitulo1 = "Así avanza la reactivación económica en Colombia" varAntetituloTitulo = ""&varAntetitulo1&"
"&varTitulo1&"" %> <% varSumario1 = "Más de 300 mil empresas de cuatro sectores ya tienen aval para realizar su reapertura. Tras meses de operaciones interrumpidas y cierres temporales generados por la pandemia, la disminución en el flujo de caja fue una de las principales afectaciones. ¿Cuáles son las expectativas sobre el comportamiento de ingresos durante los próximos tres meses?

Para tener una interacción completa con las siguientes cifras y datos, no olvides deslizar el cursor sobre las gráficas, colores e íconos." varSumario = ""&varSumario1&"" %> <% if Session("CodWebsite")=2 then if numArticulo < 10329 or numArticulo > 11708 then %>
<%=varAntetituloTitulo%>
<%=varSumario%>
<% end if%> <% else %>
<%=varAntetituloTitulo%>
<%=varSumario%>
<% end if %>

<% strAutor="Dane y Ministerio de Comercio, Industria y Turismo" Session("strAutor") = strAutor 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 %>
<% %>




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