<% '------------------------- 'Powered By www.tungsten-directory.com '------------------------- Response.Charset = "UTF-8" Response.ContentType = "text/xml" Response.Expires = 60 Dim ClassID, NRF_Site ClassID = NRF_CLng(Trim(Request("ClassID"))) Set NRF_Site = New WebSite Response.Write NRF_Site.CreateRssFeed(ClassID) Set NRF_Site = Nothing Call CloseConn %>