<%
rssurl objnodelist="objxml.getelementsbytagname(" rssfile false
rssfile="objXML.Load(rssURL)
" errori recupero dai objnodelist
each se
dati (e i not a in non ci
set http://news.studiocataldi.it/rss.asp if proseguo...
else
limite_max="15
limite_min=1
conta=0
" , )
for msxml2.domdocument.3.0 sono serverhttprequest stampo="se" video...
sotto true
objxml.validateonparse="false
objXML.preserveWhiteSpace" non ci sono notizie per favore avvisate il webmaster then
response.write )
objxml.async="false
objXML.setProperty" nodi item objnode nodi)
set conta objxml="Server.CreateObject(" video
if>=limite_min AND conta<=limite_max THEN
For Each objNode2 In objNode.childNodes
Select Case objNode2.nodeName
Case "title"
strTitle = objNode2.firstChild.nodevalue
Case "link"
strURL = objNode2.firstChild.nodevalue
Case "description"
strDesc = objNode2.firstChild.nodevalue
End Select
Next
Response.write "" &_
Left(strTitle,80) & " " & Left(strDesc,300) & "... "
END IF
'azzero tutto per il prossimo passaggio
strTitle = ""
strURL = ""
strDescription = ""
Next
set objNodeList = Nothing
End if
%>
Fonte: www.studiocataldi.it
Post
Nessun commento:
Posta un commento