<% 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 = 738044 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) %> Biden traslada a Erdogan sus condolencias tras terremotos devastadores

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

Washington, 6 feb (EFE).- El presidente estadounidense, Joe Biden, conversó este lunes por teléfono con su homólogo turco, Recep Tayyip Erdogan, para expresarle sus condolencias por los terremotos devastadores que han sacudido el país, cerca de su frontera con Siria, dejando miles de muertos.

Biden, además, reiteró a Erdogan que Estados Unidos está listo para otorgarle "toda" la ayuda que necesite, informó la Casa Blanca en un comunicado.

Al respecto, Biden explicó que ya hay equipos de EE.UU. que se están desplegando "rápidamente" en Turquía para ayudar en las labores de búsqueda y rescate, así como para dar cualquier otra asistencia que sea necesaria para los afectados por el terremoto, incluyendo atención sanitaria.

En concreto, EE.UU. tiene planes de enviar a Turquía dos equipos especializados en búsqueda y rescate urbano, con 79 personas cada uno, detalló John Kirby, uno de los portavoces de la Casa Blanca.

Según los últimos datos, más de 3.600 personas han muerto y otras 16.000 han resultado heridas en Siria y Turquía.

Los terremotos, que sacudieron el sureste de Turquía, cerca de la frontera con Siria, también han dejado miles de edificios derruidos en los que se sigue buscando a supervivientes en medio de bajas temperaturas.


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