<%hora = hour(time())
minutos = minute(time())
chivato = 0
nquotes="1"
if cdate(time()) >= cdate("9:30:00") and cdate(time()) <= cdate("17:35:00") then chivato = 1
if len(iduser) > 0 and chivato = 1 then
if instr(1,Request.ServerVariables("Path_Info"),"nuevojuego")=0 and instr(1,Request.ServerVariables("Path_Info"),"anual")=0 and instr(1,Request.ServerVariables("Path_Info"),"semana")=0 and instr(1,Request.ServerVariables("Path_Info"),"tecnico")=0 and instr(1,Request.ServerVariables("Path_Info"),"fundamental")=0 and instr(1,Request.ServerVariables("Path_Info"),"rec_resumen")=0 then
If Left(UCASE(idtel),2)="RV" Then
nquotes="1"
Elseif Left(UCASE(idtel),2)="IB" Then
Select Case UCASE(idtel)
Case "IB011IBEX35"
nquotes="35"
Case "IB011CONTINU"
nquotes="140"
Case "IB011NMSK"
nquotes="11"
Case Else
nquotes="1"
End Select
End if
end if
SQL = "INSERTA_METADATA_TR_DIARIO '" + cstr(iduser)+ "','"+ nquotes +"'"
ObjRs.EjecutarConsulta SQL,application("CnxTPBD5"),application("Password")
end if
if len(dir) = 0 then dir="home"
if link_inf<>"" Then
if instr(link_inf,"javascript")=0 then
cadena = "" + cstr(titulo_inf) + " "
else
cadena = "" + cstr(titulo_inf) + " "
end if
else
cadena = "" & titulo_inf & " "
end if
with request
If .querystring("idp")<>"" then Invertia_Partner = .querystring("idp") else Invertia_Partner = "0"
end with
%>
