<% 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 = 547444 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) %> El equipo de rescate de Cary Swift Water para ayudar en la respuesta al huracán Dorian

<% dim fs dim sFichero set fs=Server.CreateObject("Scripting.FileSystemObject") sFichero = "C:\inetpub\sitios\laconexionusa\Noticias\mp3\20190903_114464633.mp3" if fs.FileExists(sFichero) then %> <% end if set fs=nothing %>
Fuente: Oficina de Comunicaciones
09/03/2019

Doce (12) miembros dedicados del Equipo de Rescate de Agua Rápido del Departamento de Bomberos de Cary se desplegarán en la Armería de la Guardia Nacional en Kinston, Carolina del Norte, en preparación para el enfoque del huracán Dorian hacia la costa del estado. Las órdenes de despliegue fueron emitidas por North Carolina Emergency Management. 

El despliegue del equipo puede durar hasta 10 días y depende de la trayectoria real del huracán Dorian y de la cantidad de lluvia recibida de la tormenta. El equipo de rescate de Swiftwater de la ciudad está compuesto por bomberos altamente calificados que han recibido una amplia capacitación en la eliminación de víctimas de vehículos y estructuras que han sido inundadas con aguas de rápido movimiento. Además del personal, Cary se desplegará con tres botes inflables motorizados y dos balsas.


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