Criando Atom 1.0 Feeds

[xanburzum 169]

Esta classe implementa as características descritas pelo Atom 1.0,para criar um código válido Atom 1.0 feed:

 

Set MeuAtom = New cCreateAtomFeed

With MeuAtom 
	.SavePath = Server.MapPath("atom.xml")
	.Title "Meu ATOM.Xan", "texto"
	.ID = "http://www.seu_site.com.br/"
	.Updated = "2009-02-19T23:20:50Z"
	Call .CreateAtomFeed(oRecordset)

End With

Todos os recursos disponíveis para a feed header:

 

Set MeuAtom = New cCreateAtomFeed

With MeuAtom 
	'// ATOM HEADER:
	.SavePath = Server.MapPath("atom.xml")
	.Title "Meu ATOM.Xan", "texto"
	.ID = "http://www.seu_site.com.br/"
	.Updated = "2009-02-19T23:20:50Z"
	.Author "Alexandre", "xan@teste.com", "http://www.xan.com/"
	.LinkSelf = "http://www.seu_site.com.br/atom.asp"
	.LinkAlternate = "http://www.seu_site.com.br/"
	.Stylesheet = "style.css"
	.SubTitle "Sub Titulo aquie.", "texto"
	.Contributor "Xanburzum", "Xanburzum@teste.com", "http://www.xanburzum.com/"
	.Rights "Copyright (c) 2009, Xanburzum", "texto"
	.Generator "u229Atom", "http://www.u229.no/stuff/atom/", "1.0"
	.Category = "Sports, Fotebol"
	.Icon = "http://www.seu_site.com.br/icon.jpg"
	.Logo = "http://www.seu_site.com.br/logo.jpg"

	'// ATOM BODY:
	Call .CreateAtomFeed(oRecordset)

End With

[hargon 64]

Não sei se é porque estou com sono demais... mas onde está a Classe?