<%
if len(session("LogOk"))=0 then
session("LogOk")=0
end if
%>
<%
Dim LcIdArticulo
LcIdArticulo = 730231
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)
%>
La nave Crew-5 de la NASA y SpaceX llega a la EEI y se acopla con éxito
<%
dim fs
dim sFichero
set fs=Server.CreateObject("Scripting.FileSystemObject")
sFichero = "C:\inetpub\sitios\laconexionusa\Noticias\mp3\20221006307129_lc30712906.mp3"
if fs.FileExists(sFichero) then
%>
<%
end if
set fs=nothing
%>
Fuente: EFE
10/06/2022
Miami, 6 oct (EFE).- La quinta misión tripulada de la NASA a la Estación Espacial Internacional (EEI) en naves de la compañía privada SpaceX, la Crew-5, llegó este jueves al laboratorio espacial con pocos minutos de retraso, donde atracó con éxito tras un viaje de alrededor de 30 horas, según se pudo comprobar en una transmisión en directo.
<%
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
%>