<% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <% if len(session("LogOk"))=0 then session("LogOk")=0 end if %> <% Dim LcIdArticulo LcIdArticulo = 689103 CadenaConexion="Provider=SQLNCLI11;Server=184.107.19.212;Database=LaConexion; Uid=hr2m;Pwd=Lifeisx1980;Persist security info=true;" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open CadenaConexion txtSQL = "select v1,v2,v3,v4,v5,v6,intlecturas from be_articulo where id = " & LcIdArticulo Set RS = Conn.Execute(txtSQL) %> La tasa de desempleo baja al 6% en marzo y se crean 916.000 empleos

<% dim fs dim sFichero set fs=Server.CreateObject("Scripting.FileSystemObject") sFichero = "C:\inetpub\sitios\laconexionusa\Noticias\mp3\202104021178711_lc117871102.mp3" if fs.FileExists(sFichero) then %> <% end if set fs=nothing %>
Fuente: EFE
04/02/2021

Washington, 2 abr (EFE News).- La tasa de desempleo bajó al 6 % en marzo, dos décimas menos que la tasa registrada en febrero, en una nueva muestra de la reactivación de la economía en el país tras la crisis provocada por la pandemia, informó este viernes la Oficina de Estadísticas Laborales.

Además, en el tercer mes del año de 2021, la economía generó 916.000 puestos de trabajo, una cifra superior a las previsiones de los analistas, y la más alta en meses en EEUU.


<%response.write(RS("v1"))%> Me alegra <%response.write(RS("v2"))%> Me gusta <%response.write(RS("v3"))%> Me enoja <%response.write(RS("v4"))%> No me gusta

2016 HR2M WebSolutions LLC - ALL RIGHTS RESERVED
LaConexionUsa POBOX 228

Bienvenido a LaConexión



<% Dim xhora xhora = hour(time()) x = Right (time(), 2) if x = "PM" then if xhora=1 then xhora=13 end if if xhora=2 then xhora=14 end if if xhora=3 then xhora=15 end if if xhora=4 then xhora=16 end if if xhora=5 then xhora=17 end if if xhora=6 then xhora=18 end if if xhora=7 then xhora=19 end if if xhora=8 then xhora=20 end if if xhora=9 then xhora=21 end if if xhora=10 then xhora=22 end if if xhora=11 then xhora=23 end if if xhora=12 then xhora=12 end if end if txtSQL = "update be_articulo set intlecturas=intlecturas+1,bitgrafico=1 where id = " & LcIdArticulo Set RS = Conn.Execute(txtSQL) txtSQL = "insert into be_LecturasxHora (idarticulo,inthora,intlecturas,stridcontrol,idcarpeta) values ("&LcIdArticulo&","&xhora&",1,'2015',126)" Set RS = Conn.Execute(txtSQL) conn.close set conn = nothing %>