[ASP+XML] Outputing XML from DB

[WeHelpSchools]

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.Re sponse.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