Salve ragazzi,
ho prelevato uno script da quì http://asp.html.it/articoli/leggi/69...-rss-in-asp/2/
lo script mi dà
"HTTP 500 - Errore interno del server"
ovviamente ho adattato i campi ai miei. La cosa strana e che la loro demo online funziona la mia no.
C'è qualcosa da sapere in più?
Grazie
Pochi sanno, molti presumono di sapere.
Dalle opzioni avanzate di explorer devi disattivare la voce Mostra messaggi di errore HTTP brevi.
Grazie
ma voglio segnalare che nello script c'è qualche apice fuori posto. A me funziona così:
<%
url=request("url")
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse = false
objXML.preserveWhiteSpace = false
blnLoaded = objXML.Load(url)
If Not blnLoaded Then
Response.write "Nessuna offerta da visualizzare"
Else
set objNodeList = objXML.getElementsByTagName("channel")
For Each objNode In objNodeList
For Each objNode2 In objNode.childNodes
Select Case objNode2.nodeName
Case "title"
html = html + "<tr><td>"
html = html + objNode2.firstChild.nodevalue
html = html + "</td></tr>"
Case "link"
html = html + "<tr><td><a target=_blank href=objNode2.firstChild.nodevalue>"
html = html + objNode2.firstChild.nodevalue
html = html + "</a></td></tr>"
Case "description"
html = html + "<tr><td>"
html = html + objNode2.firstChild.nodevalue
html = html + "</td></tr>"
End Select
Next
Next
html = html + "<tr><td><hr></td></tr>"
Set objNodeList = objXML.getElementsByTagName("item")
For Each objNode In objNodeList
For Each objNode2 In objNode.childNodes
Select Case objNode2.nodeName
Case "title"
strTitle = objNode2.firstChild.nodevalue
Case "link"
strURL = objNode2.firstChild.nodevalue
Case "description"
strDescription = objNode2.firstChild.nodevalue
End Select
Next
html = html + "<tr><td><li/><a target=_blank href=" + strURL + ">"
html = html + strTitle + "</a>
" + strDescription +"</td></tr>"
strTitle = ""
strURL = ""
strDescription = ""
Next
html = "<table width=400>"+html+"</table>"
set objNodeList = Nothing
End if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>
<body>
<% Response.write (html) %>
<table border="0" width="400" cellspacing="0" cellpadding="0">
<form action="RSSview.asp" method="POST">
<tr><td width="100%"><hr></td></tr>
<tr><td width="100%">Inserire l'URL di un feed RSS o RDF</td></tr>
<tr><td width="100%"><input type="text" size="60" name="url" /></td></tr>
<tr><td width="100%"><input type="submit" value="Visualizza" /></td></tr>
</form>
</table>
</body>
</html>
Pochi sanno, molti presumono di sapere.
Permessi di invio
Rispondi quotando