<% Dim RutaHTTP Dim Favorito Dim Fecha Dim prom Dim cont Dim strTemp numArticulo="7920" Fecha = "" ' ' ' ' ' RutaHTTP = "http://" & Request.ServerVariables("SERVER_NAME") & Left(Request.ServerVariables("PATH_INFO"), InstrRev(Request.ServerVariables("PATH_INFO"), "/")) txtTituloPagina = "" 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%> <% 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 "" 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 %> <% 'El siguiente ajuste se realiza para que al no tener el dato a imprimir no se coloquen lineas en blanco 'Realizo Edgar Guerrero 'Diciembre 17 de 2004 ' %>
<% Antetitulo="Presentación interactiva" Titulo="Salud Ocupacional, factores de riesgo, prevención y RSE" %> <% if Session("CodWebsite")=2 then if numArticulo < 10329 or numArticulo > 11708 then if trim(Antetitulo) <> "" then %> <%=Antetitulo%>
<%end if%> <% if trim(Titulo) <> "" then %> <%=Titulo%>

<%end if%> <% end if%> <% else if trim(Antetitulo) <> "" then %> <%=Antetitulo%>
<%end if%> <% if trim(Titulo) <> "" then %> <%=Titulo%>

<%end if%> <% end if %> <% strAutor="Adriana Suárez" %> <% varSumario = "Con esta sala de aprendizaje, usted podrá aprender, identificar, desarrollar, evaluar y mejorar los factores de riesgo latentes en su empresa. También, complementará sus conocimientos referentes a la prevención y la Responsabilidad Social Empresarial (RSE)." %> <% if Session("CodWebsite")=2 then if numArticulo < 10329 or numArticulo > 11708 then %> <%=varSumario%> <%if trim(strAutor) <> "" then %>

<%end if%> <% end if%> <% else %> <%=varSumario%> <%if trim(strAutor) <> "" then %>

<%end if%> <% end if %> <% If strAutor <> "" OR Fecha <> "" then %>
<% End If If strAutor <> "" Then Response.write "Por " & strAutor & "" End If If Fecha <> "" Then Response.write ("
" & Day(Fecha) & " de " & Meses(Month(Fecha)) & " de " & Year(Fecha)) End If If strTiempo <> "" Then Response.write("
Tiempo estimado de lectura:" & strTiempo) End If %>

Documento sin título
Espere un momento mientras se descarga el archivo...




<% if Request("IframePanel") <> 1 and Session("EsIframe")="" then Server.execute("../../../PaisPataArticulo.asp") else %>
<% end if %>