Asp - exemple simple de génération de flux rss

Commenter

Contenu du snippet

Dans cet exemple, nous utiliserons une connexion ODBC dont le DSN est déclaré sur le serveur.
La Table possède les champs suivant :
- ID : Id de la nouvelle en cours
- AUTEUR : Auteur de la nouvelle en cours
- DATENEWS : Date de la nouvelle en cours
- MESSAGE : Message de la nouvelle

Source / Exemple : 


<%
Set objconn= server.CreateObject("ADODB.connection")
Set objrec=Server.CreateObject("ADODB.recordset")
objconn.open "DSNNouvelles"

SQL = "SELECT * FROM NOUVELLES ORDER BY DATENEWS DESC"

objrec.ActiveConnection = objconn
objrec.Source = SQL
objrec.CursorType = 0
objrec.CursorLocation = 2
objrec.LockType = 3
objrec.Open()

if Not Objrec.eof Then 
   Response.Charset = "UTF-8"
   response.ContentType = "text/xml"
   xml = "<?xml version=""1.0"" encoding=""UTF-8""?><rss version=""2.0""><channel>"
   xml = xml &"<title>Exemple de flux RSS en ASP</title>"
   xml = xml &"<link>http://www.aspfr.com</link>"
   xml = xml &"<description>Les dernières nouvelles</description>"
   xml = xml &"<managingEditor>adressemail@fournisseur.com</managingEditor>"
   xml = xml &"<language>fr</language>"
   xml = xml &"<generator>ASPFR</generator>"
   xml = xml &"<copyright>ASPFR</copyright>"
   xml = xml &"<webMaster>ASPFR Webmaster</webMaster>"
   While not Objrec.eof
      id = objrec("ID")
      
      titre = objrec("AUTEUR") &" - Nouvelle Du Site"
      news = trim(objrec("MESSAGE"))
      news = replace(news, "<BR>", "<BR/>")
      news = replace(news, "&", "&amp;")
      news = replace(news, "<", "<")
      news = replace(news, ">", ">")
      
      xml = xml &"<item>"
      xml = xml &"<author>"& objrec("AUTEUR") &"</author>"
      xml = xml &"<title>"& titre &"</title>"
      xml = xml &"<link>http://VotreSiteWeb/VotrePagedeLecture.asp?ValeurID="& id &"</link>"
      xml = xml &"<pubDate>"& objrec("DATENEWS") &" GMT</pubDate>"
      xml = xml &"<guid>http://VotreSiteWeb/VotrePagedeLecture.asp?ValeurID="& id &"</guid>"
      xml = xml &"<comments>http://VotreSiteWeb/VotrePagedeLecture.asp?ValeurID="& id &"</comments>"
      xml = xml &"<description>"
      
      xml = xml &" news
      
      xml = xml &"</description></item>"
      objrec.movenext   
   Wend

   xml = xml &"</channel></rss>"
   Response.Write xml
End If
%>

Conclusion :


Bon coding

Romelard Fabrice (Alias F___)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_fabrice69)