<% 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 = 722335 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) %> Portugal facilita el control de pasaportes a pasajeros de EEUU y Canadá

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

Lisboa, 15 jun (EFE).- Portugal facilita desde este miércoles el control de pasaportes a los ciudadanos procedentes de Estados Unidos y de Canadá, que podrán pasar por las puertas electrónicas para agilizar el proceso en un momento de gran tráfico para los aeropuertos lusos, especialmente el de Lisboa.

La medida entró en vigor en los aeropuertos de Lisboa y Ponta Delgada (Azores), y "posteriormente" será ampliada a los de Oporto (norte) y Faro (sur), informó en un comunicado el Ministerio de Administración Interna.

El pasado 14 de junio, cuando este sistema estaba en fase de pruebas, el 25 % de los pasajeros que llegaron al aeropuerto de Lisboa procedían de Canadá y Estados Unidos, según Administración Interna.

El aeropuerto de Lisboa ha protagonizado varios episodios de colas de hasta cinco horas en los controles de pasaporte, que la gestora aeroportuaria ANA atribuyó a la "insuficiencia de recursos" del Servicio de Extranjeros y Fronteras (SEF).

El Gobierno luso presentó un plan de contingencia para reforzar en un 82 % a los efectivos policiales -del SEF y cuerpos de seguridad- en los aeropuertos del país durante el verano, pero la implementación es gradual.

El plan también incluye más medios tecnológicos.


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