Referring to rss2.0 wrote rss release of two classes Class Rss Private strRdfLiResource As String Private strH As String Private strAbout As String Private strlink As String Private strTitle As String Private strdescription As String Sub New () End Sub Property Set about As Variant strAbout = about End Property Property Set title As Variant strTitle = title End Property Property Set description As Variant strDescription = description End Property Property Set link As Variant strLink = link End Property Private Function getChannel () As String Dim strRss As String strRss = |
Class Rssitem Private strXml As String Private strAbout As String Private strTitle As String Private strLink As String Private strDescription As String Private strDate As String Private strCreator As String Private strResouce As String Private strCreateDate As String Private strAuthorMail As String Sub New () strDate = Now End Sub Property Set about As String strAbout = about End Property Property Get about As String about = strAbout End Property Property Set title As String strtitle = title End Property Property Set link As String strlink = link End Property Property Set description As String strdescription = description End Property Property Set date As String strdate = Date End Property Property Set creator As String strcreator = creator End Property Property Set resouce As String strresouce = resouce End Property Property Set createDate As String strcreateDate = createDate End Property Property Set authorMail As String str authorMail = authorMail End Property Function getXML () As String Call createXml () getXML = strXml End Function Private Sub createXml () Dim strH As String strH = |