<% Option Explicit Response.Buffer = true Response.ExpiresAbsolute = Now () - 1 Response.Expires = 0 %> <% '----------------------------------------------------------------------------- ' Name : ASPRSSReader.asp ' Description : very sample RSS Reader in ASP ' Company : ITCom3 ' Modify by : Pierre Rouarch ' Date : March, 27, 2004 '-------------------------------------------------------------------------------- %> <% ' Variables Dim myRSSURL, myRSSDocument, myNews, mychannelNodes, entry, myChannelTitle, myChannelLink, myChannelDescription, myBase, myitemNodes, item, myitemTitle, myitemLink, myitempubDate, myitemDescription ' get RSS Address e.g : http://www.mysite.com/ASPRSSReader.asp?rssurl=http://www.rsssite.com/rssfile myRSSURL=request("rssurl") if Len(myRSSURL)=0 then ' Change with your default RSS URL myRSSURL = "http://hairforlife.romandie.com/rss.php?profile=rss20" end if ' Load RSS file set myRSSDocument = createObject("Msxml.DOMDocument") myRSSDocument.async = false myRSSDocument.setProperty "ServerHTTPRequest", true myRSSDocument.load(myRSSURL) ' Check if it 's loaded If (myRSSDocument.parseError.errorCode <> 0) then ' Save error in myNews for displaying myNews = "XML error: " & myRSSDocument.parseError.reason ' Continue if OK Else 'Get elements set mychannelNodes = myRSSDocument.selectNodes("//channel/*") for each entry in mychannelNodes ' Normaly one Channel if entry.tagName = "title" then myChannelTitle = entry.text elseif entry.tagName = "link" then myChannelLink = entry.text elseif entry.tagName = "description" then myChannelDescription = entry.text ' Save all in myBase for displaying myBase = myBase & "

" & myChannelTitle & "

" myBase = myBase & "

" & myChannelDescription & "

" myBase = myBase & "

" & myChannelTitle & "

" & "
" end if next ' next element ' Get elements set myitemNodes = myRSSDocument.selectNodes("//item/*") For each item in myitemNodes if item.tagName = "title" then myItemTitle = item.text elseif item.tagName = "description" then myItemDescription = item.text elseif item.tagName = "link" then myItemLink = item.text elseif item.tagName = "pubDate" then myItempubDate = item.text ' Save all in myNews for displaying myNews = myNews & myItempubDate & "
" myNews = myNews & "
" & myItemTitle & "
" myNews = myNews & "

" & myItemDescription & "

" myNews = myNews & "

" & myItemTitle & "

" & "
" end if next ' Next element ' Liberate Nodes set mychannelNodes = nothing set myitemNodes = nothing End If ' if no error %> Hair for Life - Conclusion
English - Français - Portuguèse 
Hair-For-Life / Hair For Life, des cheveux pour la vie
· Page d'accueil
· Introduction
· Déterminez votre degré de calvitie
· Les différentes solutions et techniques
· Conclusion
· FAQ (Foire aux questions)
· Thèmes
· Cheveu et
   sexualité

· Emission Radio
· LE BLOG !
· Témoignages
· Témoignages I
· Témoignages II
· Contactez Nous !
· Informations pour
les Professionnels

· Nouvelles
  Scientifiques

· ESHRS, Photos
· EMAA, Paris
   


SUIVEZ LE BLOG ! HAIR-FOR-LIFE

LE BLOG ! de la chirurgie esthétique !

Toutes les infos mises à jour par un professionnel
Des dizaines d'articles - des réponses précises à vos questions

Plus d'info sur
>> http://hairforlife.romandie.com <<

 


EXTRAITS DU BLOG:
<% Response.write myNews %> Plus d'info sur
http://hairforlife.romandie.com

 



Hair for Life  -  c/o CMMA - 20, route de Pré Bois - CP 1215 Genève 15 - Suisse
  hair@cmma.ch  -  Téléphone: +41 22 545 05 45  -  Fax: +41 22 545 05 46