<% 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 = 554542 CadenaConexion="Provider=SQLNCLI11;Server=67.205.101.180;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) %> País enviará 200 soldados de refuerzo y equipamiento militar a Arabia Saudí

<% dim fs dim sFichero set fs=Server.CreateObject("Scripting.FileSystemObject") sFichero = "C:\inetpub\sitios\laconexionusa\Noticias\mp3\20190926786805_lc78680526.mp3" if fs.FileExists(sFichero) then %> <% end if set fs=nothing %>
Fuente: EFE
09/26/2019

Washington, 26 sep (EFEUSA).- El secretario de Defensa, Mark Esper, anunció hoy que el Pentágono enviará 200 efectivos de refuerzo, además de una batería antimisiles y radares a Arabia Saudí, en medio de la escalada de tensión con Irán por el ataque a refinerías saudíes de hace dos semanas.

"A la luz de los recientes ataques contra el reino de Arabia Saudita, y a petición suya, el secretario de Defensa Mark Esper anunció hoy que Estados Unidos desplegará el siguiente equipo en el reino: una batería antimisil Patriot, cuatro radares de tipo Sentinel y aproximadamente 200 personas de apoyo", dijo el portavoz del Pentágono, Jonathan Hoffman, en un comunicado.

Tras los ataques a las refinerías saudíes del pasado 14 de septiembre, que, según Riad, estuvieron coordinados por Irán, el Gobierno del presidente, Donald Trump, anunció más sanciones contra el Gobierno iraní, aunque aseguró que quiere evitar entrar en guerra.


<%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 %>