info su feeds

[lella69]

Ciao a tutti.

Oggi con le istruzioni di questo sito ho creato la mia pagina rss e con il copia incolla sono riuscita a visualizzare i miei feeds in feedreader.

Ora vorrei fare come c'è sul sito di html, cioè quando incollo il collegamento vorrei che apparisse l'elenco degli rss, mentre adesso posso copiarne uno solo per volta.

sapete aiutarmi ?

[lella69]

Come codice ho usato questo script http://freeasp.html.it/articoli/vie...colo.asp?id=172

[supergeniux]

Non c'ho capito molto... :berto:

[lella69]

Se vai alla home di questo html in alto a sinistra c'è il pulsante RSS.

Se copi il collegamento e lo incolli in feedreader appare una finestra dove dice "sono stati trovati i seguenti feeds" te selezioni il feed che ti interessa e fatto.

Volevo creare più feeds e con un pulsante solo (come descritto in precedenza) visualizzare l'elenco in feedreader.

[supergeniux]

Fai un ciclo per estrarre i dati.

[lella69]

Scusa ma non sono così preparata.

Il codice cho ho è questo.
------------------------------------
<% SQL = "SELECT * FROM tabella Order by campo desc"

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open SQL, db, 1,1

totfiles = rs.recordcount

xml = "<?xml version=""1.0"" encoding=""UTF-8""?>" & _
"<rss version=""0.91""><channel><title>News</title>" & _
"<description>Notizie e Aggiornamenti in tempo reale - </description>" & _
"<link>http://www.miosito.com</link>"

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.miosito.com/index.asp?fee...m/news.asp?id="& rs("id") &"]]></link></item>"

rs.movenext
Loop
End if

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

response.ContentType = "text/xml"
response.write xml


rs.close
set rs=nothing

db.close
set db=nothing %>

[supergeniux]

Su un mio sito, uso questo codice, adattalo alle tue esigenze:

<%
sql = "SELECT TOP 10 * FROM articolo WHERE condizione ORDER BY id DESC"
set rs = conn.execute(sql)

Response.ContentType = "text/xml"
Response.Write "<?xml version=""1.0"" encoding=""iso-8859-1"" ?>" & vbCrlf
Response.Write "<rss version=""2.0"">" & vbCrlf

Response.Write "<channel>" & vbCrlf
Response.Write "<title>News Sport</title>" & vbCrlf
Response.Write "<link>http://www.sito.it</link>"

do until rs.eof

Response.Write "<item>" & vbCrlf         
Response.Write "<title>" & rs("titolo").Value & "</title>" & vbCrlf
Response.Write "<link>http://www.sito.it/news/articolo.asp?vedi="&rs("id")&"</link>" & vbCrlf
Response.Write "<author>"&rs("autore").Value & "</author>" & vbCrlf
Response.Write "<pubdate>"&rs("data").Value &"</pubdate>" & vbCrlf
Response.Write "</item>" & vbCrlf   

rs.MoveNext
Loop

Response.Write "</channel>" & vbCrlf  
Response.Write "</rss>" & vbCrlf 
  
rs.Close
set rs = nothing
conn.close
set conn = NOTHING
%>