<%
url= Request.QueryString("url")
if url<>"" then
response.write ""
else
dim nombreentorno, entorno, directorio_htmls, contador
'nombreentorno = "desarrollo"
nombreentorno = "produccion"
'nombreentorno = "integracion"
if (nombreentorno = "desarrollo") then
directorio_htmls = "\\abc-nas\d\methodend\desarrollo2010abc\includes_automaticos\cope\cabecera-cope.html"
entorno = "http://desarrollo2010.abc.es"
else
directorio_htmls = "\\abc-nas\d\methodend\quality2010abc\includes_automaticos\cope\cabecera-cope.html"
entorno = "http://www.abc.es"
end if
Server.ScriptTimeOut =100
seccionURL = request.QueryString("sec")
dim AtituloPrograma(10),AsubtituloPrograma(10),Aurlweb(10),Aurladroid(10),Aurlios(10),Atipo(10),Apresentador(10),AfotoPrograma(10),Aimagensolo(10),Anombreimagensolo(10)
Dim StrHTML
StrHTML = ""
Set objXML = Server.CreateObject("MSXML2.DOMDocument")
objXML.async = false
objXML.setProperty "ServerHTTPRequest", true
objXML.load("http://www.cope.es/xml/cpe-current-player.xml")
If objXML.parseError.errorCode = 0 Then
Set objItemXML = objXML.getElementsByTagName("content")
Set objXML = Nothing
contador = 1
For Each objItem In objItemXML
'OBTENEMOS LOS DISTINTOS NODOS
For Each NodosElementos In objItem.childNodes
select case ucase(NodosElementos.nodeName)
case ucase("name") 'TituloPrograma
AtituloPrograma(contador) = NodosElementos.text
case ucase("subtitulo") 'SubtituloPrograma
AsubtituloPrograma(contador) = NodosElementos.text
case ucase("streamingWeb") 'UrlPrograma
Aurlweb(contador) = NodosElementos.text
case ucase("type") 'UrlPrograma
Atipo(contador) = NodosElementos.text
case ucase("newsreader") 'UrlPrograma
Apresentador(contador) = NodosElementos.text
case ucase("image") 'FotoPrograma
AfotoPrograma(contador) = "http://www.cope.es"& NodosElementos.text
Aimagensolo(contador) = entorno&"/imagenes/cope"&mid(AfotoPrograma(contador),instrrev(AfotoPrograma(contador),"/"),Len(AfotoPrograma(contador)))
Anombreimagensolo(contador) = mid(AfotoPrograma(contador),instrrev(AfotoPrograma(contador),"/")+1,Len(AfotoPrograma(contador)))
end select
Next
contador = contador +1
Next
End If
dim posicion
posicion = 1
for i=10 to 1 step -1
if (Len(AtituloPrograma(i))>0) then
if (Atipo(i)="Antena" or Atipo(i)="Cadena") then
posicion = i
exit for
end if
end if
next
tituloPrograma = AtituloPrograma(posicion)
subtituloPrograma = AsubtituloPrograma(posicion)
urlweb = Aurlweb(posicion)
tipo = Atipo(posicion)
presentador = Apresentador(posicion)
fotoPrograma = AfotoPrograma(posicion)
imagensolo = Aimagensolo(posicion)
nombreimagensolo = Anombreimagensolo(posicion)
response.write ""
end if
%>