<%
Server.ScriptTimeOut =100
seccionURL = request.QueryString("sec")
activo=1
%>
<%if ((seccionURL<>"") and (activo>0)) then%>
Lo mas de ABC.es
<%end if%>
<%
' lomas, id_medio, edition, numero_items, seccion
Function DameXMLFor(webserviceMethod, id, edicion, numero, id_tipo_contenido, seccion)
set oXML = Server.CreateObject("MSXML2.DOMDocument")
Select Case webserviceMethod
Case "Lomas"
If id="15" Then
tags="websevilla"
Else
tags="webabc"
End if
params ="id_medio="&id&"&edition="&edicion&"&tags="&tags&"&content_type="&id_tipo_contenido&"&click_type=1&origin=web&limit="&numero&"§ion="&seccion
'params ="id_medio="&id&"&edition="&edicion&"&xml=1&id_tipo_contenido="&id_tipo_contenido&"&id_tipo_clic=1&numero_items="&numero&"&seccion="&seccion
'response.write("http://comm.abc.es/stats/get/lomas.php?"¶ms)
Case "Ultimas"
'params = "SiteId=" & Common_GetSiteTag & "&Cuantos=10&x="
End Select
'On Error Resume Next
Dim Num, StrHTML
StrHTML = ""
Num = 1
StrHTML = "
" & VbCrLf
Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load("http://stats.abc.es/stats/v2/most-viewed/xml?" & params)
'objXML.Load("http://comm.abc.es/stats/get/lomas.php?" & params)
If objXML.parseError.errorCode = 0 Then
Set objItemXML = objXML.getElementsByTagName("item")
'Set objItemXML = objXML.getElementsByTagName("estadistica")
Set objXML = Nothing
For Each objItem In objItemXML
'OBTENEMOS LOS DISTINTOS NODOS
For Each NodosElementos In objItem.childNodes
select case ucase(NodosElementos.nodeName)
case ucase("titulo") 'Tituloultimos
titularStat = NodosElementos.Text
case ucase("title") 'Tituloultimos
titularStat = NodosElementos.text
case ucase("url") 'Descripcionultimos
urlStat = NodosElementos.Text
case ucase("numero_visita") 'Descripcionultimos
numerovisita = NodosElementos.Text
case ucase("total_visits") 'Descripcionultimos
numerovisita = NodosElementos.Text
end select
Next
StrHTML = StrHTML & "" & Num & "