<%
if len(session("LogOk"))=0 then
session("LogOk")=0
end if
%>
<%
Dim LcIdArticulo
LcIdArticulo = 491201
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)
%>
Causa de muerte de Hania Aguilar fue asfixia
<%
dim fs
dim sFichero
set fs=Server.CreateObject("Scripting.FileSystemObject")
sFichero = "C:\inetpub\sitios\laconexionusa\Noticias\mp3\20190213_13275071313.mp3"
if fs.FileExists(sFichero) then
%>
<%
end if
set fs=nothing
%>
<%
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
%>