<% response.ContentType="text/xml" response.Write("") Dim objconn objconn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("main.mdb") strsql="SELECT TOP 10 * FROM main ORDER BY id DESC" set RSitem = objconn.execute(strsql) %> http://www.mysite.co.uk Information about the the feed goes here. en Copyright 2008. My Site <%date()%> 60 <%Do While Not RSitem.EOF%> <% 'make the object MsXML2.DOMDocument Set xmlDoc = Server.CreateObject("msxml2.DOMDocument") %> http://www.mysite.co.uk/items/info.asp?itemid=<%=(RSitem("title"))%> ]]> <%=RSitem("userdate")%> <% RSitem.MoveNext Loop %>