<% 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 = 740814 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) %> " /> Blinken reitera a Kuleba su apoyo ante los "ataques brutales" de Rusia

<% dim fs dim sFichero set fs=Server.CreateObject("Scripting.FileSystemObject") sFichero = "C:\inetpub\sitios\laconexionusa\Noticias\mp3\202303161340577_lc134057716.mp3" if fs.FileExists(sFichero) then %> <% end if set fs=nothing %>
Fuente: EFE
03/16/2023

Washington, 16 mar (EFE).- El secretario de Estado de EE.UU., Antony Blinken, reiteró este jueves a su homólogo ucraniano, Dmitro Kuleba, su apoyo ante los "ataques brutales" de Rusia, informó en un comunicado el Departamento de Estado.

Los dos titulares de Exteriores mantuvieron una conversación telefónica en la que también hablaron sobre la situación en el campo de batalla, donde las tropas ucranianas siguen defendiendo la devastada ciudad de Bajmut, en el este de Ucrania, que el Ejército ruso intenta capturar.

Según el Departamento de Estado, Blinken reiteró a Kuleba el "firme apoyo" de Estados Unidos a Ucrania ante los "brutales ataques" de Rusia.

Desde el inicio de la guerra contra Ucrania el pasado 24 de febrero de 2022, la Unión Europea (UE), Estados Unidos y otros países han impuesto duras sanciones sobre la economía Rusa, además de enviar a Ucrania cuantiosa ayuda militar.


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