salve a tutti
premetto che ho già chiesto in questo topic (http://forum.html.it/forum/showthrea...20#post8608620) e non mi ha risposto niuno!!!e così ho pensato bene (scusatemi se ho sbagliato a farlo secondo voi)
di aprirne uno nuovo nuovo
ok!!... allora.... 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)
%>
poi prosegue con il form per inserire l'indirizzo della pagina da cui si vuole leggere l'rss, ma questa parte (cioè il form), non credo debba interessarmi! giusto!??! se il risultato che voglio ottenere è quello indicatovi in steweb.net!
<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>
Rispondi quotando
