'Call this function passing data in it and set ur fields below.
Imports System
Imports System.Data
Imports System.Xml
Imports System.Web
Imports System.Text
Sub GetXML(ds As DataSet) '
Try
HttpContext.Current.Response.Clear()
HttpContext.Current.Response.ContentType = "text/xml"
Dim objX As New XmlTextWriter(HttpContext.Current.Response.OutputStream, Encoding.UTF8)
objX.WriteStartDocument()
objX.WriteStartElement("rss")
objX.WriteAttributeString("version", "2.0")
objX.WriteStartElement("channel")
objX.WriteElementString("title", "C-Sharpcorner Articles")
objX.WriteElementString("link", "http://www.c-sharpcorner.com")
objX.WriteElementString("description", "Watch C-Sharpcorner latest articles")
objX.WriteElementString("copyright", "© 2000 - 2006 Mindcracker LLC. All Rights Reserved")
objX.WriteElementString("ttl", "5")
If Not (ds Is Nothing) Then
Dim dr As DataRow
For Each dr In ds.Tables(0).Rows
objX.WriteStartElement("item")
objX.WriteElementString("title", dr("title").ToString())
objX.WriteElementString("description", dr("description").ToString())
objX.WriteElementString("link", dr("Path").ToString())
objX.WriteElementString("link", dr("URL").ToString())
objX.WriteElementString("pubDate", dr("date").ToString())
objX.WriteElementString("author", dr("author").ToString())
objX.WriteEndElement()
Next dr
End If
objX.WriteEndElement()
objX.WriteEndElement()
objX.WriteEndDocument()
objX.Flush()
objX.Close()
Catch ex As Exception
HttpContext.Current.Response.Write(ex.ToString())
End Try
End Sub 'GetXML