[ASP+XML] Outputing XML from DB

programming
1

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?

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