Apellidos
<%=apellidos%>
Nombre
<%=nombre%>
Fecha y lugar de nacimiento
<%=fecha1%> (<%=lugar1%>)
<%if fecha2<>"" and lugar2<>"" then%>
Fecha y lugar de fallecimiento
<%=fecha2%> (<%=lugar2%>)
<%end if%>
Edad
<%=anio%>
Nacionalidad
<%=nacion%>
<%
if profe<>"" then
%>
Profesión
<%=profe%>
<%
end if
%>
<%
srel=0
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open Application("strConnection")
strSQL="SELECT f.nombre_artistico as famoso, f.id as id, t.nombre as rela From relaciones as r, tipo_relacion as t, famosos as f where r.id_famoso1="&id&" and r.id_famoso2=f.id and t.id=r.id_relacion "
set rs=cn.Execute(strSQL)
do while not rs.EOF
srel=srel+1
if srel=1 then
%>
Relaciones
<%
end if
%>
<%=rs("rela")%>: &historia=<%=rs("id")%>" ><%=rs("famoso")%>
<% rs.movenext loop cn.close() %> <% if srel<>0 then response.Write("
")
end if
%>
<% rs.movenext loop cn.close() %> <% if srel<>0 then response.Write("
Currículum Vitae
<%=CortarCadena2(cv)%> <% if len(cv)>600 then %>ver más<% end if%>
<%
d=Day(date())
m=month(date())
a=year(date())
if m=1 or m=2 or m=3 or m=4 or m=5 or m=6 or m=7 or m=8 or m=9 then
m="0"&m
end if
if d=1 or d=2 or d=3 or d=4 or d=5 or d=6 or d=7 or d=8 or d=9 then
d="0"&d
end if
fech=d&m&a
if request.QueryString("historia")=11 then
alias="raul real madrid"
end if
alias2=trim(alias)
alias2=server.URLEncode(alias2)
titulo1=""
titulo2=""
titulo3=""
titulo4=""
titulo5=""
titulo6=""
titulo7=""
titulo8=""
titulo9=""
URL="http://www.abc.es/hemeroteca/rss/1/20/0/01012002/"&fech&"/CRON,+,+,+,+,"&alias2&".html"
Response.Charset = "iso-8859-1"
Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load(URL)
titulo1=objXML.getElementsByTagName("item").Item(0).childNodes(0).text
if titulo1<>"Canal Inexistente" then
numero= ubound(objXML.getElementsByTagName("item").Item)
response.Write(numero)
titulo2=objXML.getElementsByTagName("item").Item(1).childNodes(0).text
titulo3=objXML.getElementsByTagName("item").Item(2).childNodes(0).text
titulo4=objXML.getElementsByTagName("item").Item(3).childNodes(0).text
titulo5=objXML.getElementsByTagName("item").Item(4).childNodes(0).text
titulo6=objXML.getElementsByTagName("item").Item(5).childNodes(0).text
titulo7=objXML.getElementsByTagName("item").Item(6).childNodes(0).text
titulo8=objXML.getElementsByTagName("item").Item(7).childNodes(0).text
titulo9=objXML.getElementsByTagName("item").Item(8).childNodes(0).text
if (titulo2=titulo1) then
titulo2=""
end if
if (titulo3=titulo1 or titulo3=titulo2) then
titulo3=""
end if
if (titulo4=titulo1 or titulo4=titulo2 or titulo4=titulo3) then
titulo4=""
end if
if (titulo5=titulo1 or titulo5=titulo2 or titulo5=titulo3 or titulo5=titulo4) then
titulo5=""
end if
if (titulo6=titulo1 or titulo6=titulo2 or titulo6=titulo3 or titulo6=titulo4 or titulo6=titulo5 ) then
titulo6=""
end if
if (titulo7=titulo1 or titulo7=titulo2 or titulo7=titulo3 or titulo7=titulo4 or titulo7=titulo5 or titulo7=titulo6) then
titulo7=""
end if
if (titulo8=titulo1 or titulo8=titulo2 or titulo8=titulo3 or titulo8=titulo4 or titulo8=titulo5 or titulo8=titulo6 or titulo8=titulo7) then
titulo8=""
end if
if (titulo9=titulo1 or titulo9=titulo2 or titulo9=titulo3 or titulo9=titulo4 or titulo9=titulo5 or titulo9=titulo6 or titulo9=titulo7 or titulo9=titulo2) then
titulo9=""
end if
url1=objXML.getElementsByTagName("item").Item(0).childNodes(2).text
url2=objXML.getElementsByTagName("item").Item(1).childNodes(2).text
url3=objXML.getElementsByTagName("item").Item(2).childNodes(2).text
url4=objXML.getElementsByTagName("item").Item(3).childNodes(2).text
url5=objXML.getElementsByTagName("item").Item(4).childNodes(2).text
url6=objXML.getElementsByTagName("item").Item(5).childNodes(2).text
url7=objXML.getElementsByTagName("item").Item(6).childNodes(2).text
url8=objXML.getElementsByTagName("item").Item(7).childNodes(2).text
url9=objXML.getElementsByTagName("item").Item(8).childNodes(2).text
fecha1=objXML.getElementsByTagName("item").Item(0).childNodes(4).text
fecha2=objXML.getElementsByTagName("item").Item(1).childNodes(4).text
fecha3=objXML.getElementsByTagName("item").Item(2).childNodes(4).text
fecha4=objXML.getElementsByTagName("item").Item(3).childNodes(4).text
fecha5=objXML.getElementsByTagName("item").Item(4).childNodes(4).text
fecha6=objXML.getElementsByTagName("item").Item(5).childNodes(4).text
fecha7=objXML.getElementsByTagName("item").Item(6).childNodes(4).text
fecha8=objXML.getElementsByTagName("item").Item(7).childNodes(4).text
fecha9=objXML.getElementsByTagName("item").Item(8).childNodes(4).text
%>
<%
if titulo1<>"" then
%>
<%
end if
%>
<%
if titulo2<>"" then
%>
<%
end if
if titulo3<>"" then
%>
<%
end if
if titulo4<>"" then
%>
<%
end if
if titulo5<>"" then
%>
<%
end if
if titulo6<>"" then
%>
<%
end if
if titulo7<>"" then
%>
<%
end if
if titulo8<>"" then
%>
<%
end if
if titulo9<>"" then
%>
<%
end if
%>
<%
end if
%>
<%
i=0
a=0
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open Application("strConnection")
strSQL="SELECT * From especiales where id_famoso="&id
set rs=cn.Execute(strSQL)
do while not rs.EOF
i=i+1
a=a+1
if a=1 then
response.Write("")
end if
%>
<%
rs.movenext
loop
if a>0 then
%>
<%
end if
%>
<%
i=0
a=0
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open Application("strConnection")
strSQL="SELECT * From galeria where id_famoso="&id
set rs=cn.Execute(strSQL)
do while not rs.EOF
i=i+1
a=a+1
if a=1 then
response.Write("")
end if
%>
<%
if i=3 then
response.Write("")
i=0
end if
rs.movenext
loop
if a>0 then
%>
<%
end if
%>
<%
i=0
a=0
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open Application("strConnection")
strSQL="SELECT * From enlaces where id_famoso="&id
set rs=cn.Execute(strSQL)
do while not rs.EOF
i=i+1
a=a+1
if a=1 then
response.Write("")
end if
%>
<%
rs.movenext
loop
if a>0 then
%>
<%
end if
%>
<%if frases<>"" then%>
<%
fr=split(frases,";")
for each valor in fr
%>
<%
next
%>
<%
end if
%>
NOTICIAS
<%=titulo1%>
<%=fecha1%>
<%=titulo2%>
<%=fecha2%>
<%=titulo3%>
<%=fecha3%>
<%=titulo4%>
<%=fecha4%>
<%=titulo5%>
<%=fecha5%>
<%=titulo6%>
<%=fecha6%>
<%=titulo7%>
<%=fecha7%>
<%=titulo8%>
<%=fecha8%>
<%=titulo9%>
<%=fecha9%>
ESPECIALES
" alt="<%=rs("titulo")%>" width="400" />GALERÍAS
OTRA INFORMACIÓN
"><%=rs("titulo")%>
<%=rs("fecha")%> <% if rs("fuente")<>"" then response.Write(" - "&rs("fuente"))end if%>
LAS FRASES
<%=valor%>
Copyright © ABC Periódico Electrónico S.L.U, Madrid, 2009.