<%
if len(session("LogOk"))=0 then
session("LogOk")=0
end if
%>
<%
Dim LcIdArticulo
LcIdArticulo = 552045
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 rey de España no propone candidato y se abre el camino a nuevas elecciones
<%
dim fs
dim sFichero
set fs=Server.CreateObject("Scripting.FileSystemObject")
sFichero = "C:\inetpub\sitios\laconexionusa\Noticias\mp3\20190917176758_lc17675817.mp3"
if fs.FileExists(sFichero) then
%>
<%
end if
set fs=nothing
%>
Fuente: EFE
09/17/2019
Madrid, 17 sep (EFE).- El rey de España no propuso hoy ningún candidato a la investidura como presidente del Gobierno tras su ronda de contactos con los líderes políticos, por lo que se abre el camino para la repetición de las elecciones generales el 10 de noviembre.
<%
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
%>