Sub Initialize
	Dim url As New URLclass 
	Dim params As Variant
	
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim item As NotesItem
	Dim stringData As String
	Set db = session.CurrentDatabase
	
	' read input parameters from feed url
	Dim inputData As String
	params = url.GetParams()
	Forall x In params
		If (Listtag(x) = "myparam") Then inputData = params(Listtag(x))
	End Forall
	
	' do here whatever you want to do
	
	stringData = "<?xml version='1.0' encoding='UTF-8'?>"	
	stringData = stringData + "<atom:feed xmlns:atom='http://www.w3.org/2005/Atom' xmlns:xhtml='http://www.w3.org/1999/xhtml' xmlns:catalog='http://www.ibm.com/xmlns/prod/lotus/mashups/v1.0/catalog-model' xmlns:app='http://www.w3.org/2007/app' xmlns:thr='http://purl.org/syndication/thread/1.0' xmlns:model='http://www.ibm.com/xmlns/prod/lotus/mashups/v1.0/model-elements' xmlns:base='http://www.ibm.com/xmlns/prod/lotus/mashups/v1.0/base'>"
	stringData = stringData + "<atom:title>IBM Lotus Mashups Catalog Category Feed</atom:title>"	
	stringData = stringData + "<atom:id>catalog:collection</atom:id>"
	stringData = stringData + "<atom:updated>2008-07-21T10:52:50.812-04:00</atom:updated>"
	stringData = stringData + "<atom:entry>"
	stringData = stringData + "<atom:id>Data from Notes agent. Value of input parameter of feed:"
	stringData = stringData + " " + inputData + " "
	stringData = stringData + "</atom:id><atom:title/>"
	stringData = stringData + "<atom:summary/>"
	stringData = stringData + "<atom:updated>2008-06-26T04:58:50.015-04:00</atom:updated>"
	stringData = stringData + "<atom:content type='application/xml'>"
	stringData = stringData + "<model:catalog-category>"
	stringData = stringData + "<model:title>"
	stringData = stringData + "<base:nls-string xml:lang='de'>Werkzeuge</base:nls-string>"
	stringData = stringData + "<base:nls-string xml:lang='en'>Tools</base:nls-string>"
	stringData = stringData + "</model:title>"
	stringData = stringData + "<model:description>"
	stringData = stringData + "<base:nls-string xml:lang='de'>Werkzeuge</base:nls-string>"
	stringData = stringData + "<base:nls-string xml:lang='en'>Tools</base:nls-string>"
	stringData = stringData + "</model:description>"
	stringData = stringData + "</model:catalog-category>"
	stringData = stringData + "</atom:content>"
	stringData = stringData + "<atom:link href='http://localhost:8080/mm.webapp/mycontenthandler?uri=catalog:id:Tools' rel='self' type='application/atom+xml'/>"
	stringData = stringData + "<atom:link href='http://localhost:8080/mm.webapp/mycontenthandler?uri=catalog:id:Tools' rel='edit' type='application/atom+xml'/>"
	stringData = stringData + "<atom:link model:rel='entries' href='http://localhost:8080/mm.webapp/mycontenthandler?uri=catalog:collection@id:Tools' rel='related' type='application/atom+xml'/>"
	stringData = stringData + "</atom:entry>"
	stringData = stringData + "</atom:feed>"
	
	Print "Content-type:text/xml"
	Print stringData
End Sub