da ASP a RSS ( XML)

[Fool]

Ho il mio sistema di gestione dei contenuti fatto in ASP, ora vorrei dare modo di esportare le notizie in XML, in modo da piazzarle su altri siti. Il visitatore cliccando su qeulla notizia viene portato sul mio sito.

Il problema è : come arrivo dalle notizie e dal sistema asp a generare un XML con le notizie, e mantenerlo aggiornato?

Ciao

[deleted_c]

su www.w3c.org c'è la documentazione per aggiungere support rss

[Fool]

ma serve qualche libreria esterna ?

Non ce qualcosa in italiano ?

[weppos]

http://freeasp.html.it/articoli/view...olo.asp?id=172

[Fool]

ottimo grazie

[serpiko]

anche io ho lo stesso problema puoi farmi sapere se hai risolto e soprattutto come?!!?

[Fool]

no, son passato a php

[serpiko]

ho visto il file http://freeasp.html.it/articoli/vie...colo.asp?id=172
e così ho fatto il mio file che pesca dal mio db modificando questo file presente nell'esempio (il cui indirizzo ho riportato opra):
__________
<%
'Stringa di connessione al nostro Data Base di news
'Modificatela in base al percorso del vostro Data Base
StrConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/rss/ASP") & "\News.mdb"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConnessione

'Istruzione SQL che prende le news dal Data Base; modificate il nome della vostra tabella e i vari nomi dei campi
SQL ="SELECT * FROM news Order by idnews desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.CursorLocation=3
rs.Open SQL, Conn, 1,1

' Numero totale di records
totfiles = rs.recordcount

xml = "<?xml version=""1.0"" encoding=""UTF-8""?><rss version=""0.91""><channel><title>Le Ultime
Notizie</title><description>Notizie dal mondo in tempo
reale</description><link>http://www.tgcom.it</link><language>it</language>"

'Se il Record Set non è vuoto
if totfiles <>0 then

Do while not rs.eof
xml = xml & "<item>"
xml = xml & "<title><![CDATA[" & rs("titolo") & "]]></title>"
xml = xml & "<description><![CDATA[" & rs("descrizione") & "]]></description>"
xml = xml & "<link><![CDATA[http://www.tuosito.com/legginews.asp?id=" & rs("idnews") & "]]></link></item>"
rs.movenext
Loop

End if

xml = xml & "</channel></rss>"

' Impostazione che setta il tipo di file in output su XML
response.ContentType = "text/xml"
response.write xml

'Libero Risorse
rs.close
set rs=nothing
Conn.Close
set Conn=nothing
%>
e mi dà questo risultato ovviamente con i dati che va a pescare dal mio db:
<?xml version="1.0" encoding="UTF-8"?>
<rss version="0.91">
<channel>
<title>Titolo del vostro RSS </title>
<description>Descrizione del vostro RSS</description>
<link>URL del vostro RSS</link>
<item>
<title><![CDATA[ Titolo notizia 1 ]]></title>
<description><![CDATA[ Descrizione o Corpo notizia 1]]></description>
<link><![CDATA[ URL per leggere la notizia 1 sul web]]></link>
</item>

<item>
<title><![CDATA[ Titolo N ]]></title>
<description><![CDATA[ Descrizione o Corpo notizia N]]></description>
<link><![CDATA[ URL per leggere la notizia N sul web]]></link>
</item>
</channel>
</rss>
___
ora il punto è questo... il codice che riporto sotto dovrebbe servire per visualizzare su un altro sito i dati del mio db giusto? e allora cosa devo modificare affinché funzioni e soprattutto come posso fare affinché il risultato sia simile a quello che si può vedere su http://www.steweb.net dove vengono riprese le notizie del sito di aspitalia?!!?
____
<%
' Script ASP che rielabora un documento XML RSS e RDF e fornisce in output un documento HTML
url=request("url")

' Creo oggetto DOM XML
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
objXML.async = false
objXML.setProperty "ServerHTTPRequest", True

' validazione del documento XML
objXML.validateOnParse =false' true

' non conservare spazi
objXML.preserveWhiteSpace = false

blnLoaded = objXML.Load(url)
If Not blnLoaded Then
Response.write "Nessuna news 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/>" + strTitle + "
" + 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>