# \[ASP+XML\] Outputing XML from DB

**URL:** <https://forum.kirupa.com/t/asp-xml-outputing-xml-from-db/263511>\
**Category:** programming\
**Created:** [June 16, 2008, 7:38pm UTC](https://forum.kirupa.com/t/asp-xml-outputing-xml-from-db/263511 "2008-06-16T19:38:33Z")\
**Posts on this page:** 1\
**Page:** 1

<div class="post-metadata">

**Author:** ![WeHelpSchools](https://avatars.discourse-cdn.com/v4/letter/w/c5a1d2/32.png) [@WeHelpSchools](https://forum.kirupa.com/u/WeHelpSchools)\
**Post date:** [June 16, 2008, 7:38pm UTC](https://forum.kirupa.com/t/asp-xml-outputing-xml-from-db/263511/1 "2008-06-16T19:38:33Z")

</div>

I’ve been able to use the below code to output 1 record from a table in the database, but I want to be able to write to the XML output multiple records. How can I do this?

```auto
Dim strSql as string = "Select tblEzineArticles.Headline, tblEzineArticles.Author, tblEzineArticles.ATitle, tblEzineArticles.Email, tblEzineArticles.Article, tblEzine.Name AS 'eName', tblEzineAcct.Name AS 'aName' FROM tblEzineArticles JOIN tblEzine ON tblEzineArticles.EzineID = tblEzine.EzineID JOIN tblEzineAcct ON tblEzineAcct.AccountID = tblEzine.AccountID WHERE tblEzineArticles.EzineID = '" & ezineid & "' AND tblEzineArticles.ArticleID = '" & articleID & "'"
    Dim objAdapter as OleDbDataAdapter = New OleDbDataAdapter(strSql, Conn)
    Dim objDataSet as New Dataset()
    objAdapter.Fill(objDataSet, "getArticle")
    Dim objTable as DataTable = objDataSet.Tables("getArticle")
    Dim objRows as DataRow = objTable.Rows(0)
    dim articleText as string = Replace(trim(objRows("Article")), vbCrLf & "" & vbCrLf, "<br><br>")
      articleText = Replace(articleText, vbCrLf, "<br>")
    
      Using Temp As XmlWriter = XmlWriter.Create(System.Web.HttpContext.Current.Response.OutputStream)
      ' Write XML data.
      Temp.WriteStartElement("root")
      Temp.WriteElementString("aName", trim(objRows("aName")))
      Temp.WriteElementString("eName", trim(objRows("eName")))
      Temp.WriteElementString("Headline", trim(objRows("Headline")))
      Temp.WriteElementString("Author", trim(objRows("Author")))
      Temp.WriteElementString("ATitle", trim(objRows("ATitle")))
      Temp.WriteElementString("Email", trim(objRows("Email")))
      Temp.WriteElementString("Article", articleText)
      Temp.WriteEndElement()
      Temp.Flush()
    End Using

```