Create Atom 1.0 Feeds With Classic ASP
This vbscript class implements most features described by the Atom 1.0 reference.
Minimum code needed to create a valid Atom 1.0 feed:
Set oAtom = New cCreateAtomFeed
With oAtom
.SavePath = Server.MapPath("atom.xml")
.Title "My Atomic News Service", "text"
.ID = "http://www.yourdomain.com/"
.Updated = "2006-04-12T23:20:50Z"
Call .CreateAtomFeed(oRecordset)
End With
All features available for the feed header:
Set oAtom = New cCreateAtomFeed
With oAtom
'// THE ATOM HEADER:
.SavePath = Server.MapPath("atom.xml")
.Title "My Atomic News Service", "text"
.ID = "http://www.yourdomain.com/"
.Updated = "2006-04-12T23:20:50Z"
.Author "Elvis Presley", "elvis@presley.com", "http://www.elvis-presley.com/"
.LinkSelf = "http://www.yourdomain.com/atom.asp"
.LinkAlternate = "http://www.yourdomain.com/"
.Stylesheet = "style.css"
.SubTitle "My Sub Title Goes Here.", "text"
.Contributor "Priscilla Presley", "priscilla@presley.com", "http://www.priscilla-presley.com/"
.Rights "Copyright (c) 2006, Your Name", "text"
.Generator "u229Atom", "http://www.u229.no/stuff/atom/", "1.0"
.Category = "Sports, Football"
.Icon = "http://www.mydomain.com/icon.jpg"
.Logo = "http://www.mydomain.com/logo.jpg"
'// THE ATOM BODY:
Call .CreateAtomFeed(oRecordset)
End With
![[Valid Atom 1.0]](valid-atom.png "Validate my Atom 1.0 feed"){kind=small}
PRICE: FREE.
