Dim myFileStream As New FileStream(xmlSentPath & drDataToDump("part_xml_filename"), FileMode.Create)
Dim myXmlWriter As New XmlTextWriter(myFileStream, Encoding.UTF8)
myXmlWriter.Formatting = Formatting.Indented
'myXmlWriter.Namespace()
myXmlWriter.WriteStartDocument(False)
dsXML.WriteXml(myXmlWriter)
xmlOutputToString = dsXML.ToString 'Tillagt
myXmlWriter.Close()
'Artikeln ska även markeras som skickad;
intsvar = objAC.MarkArticleAsSent(dgi.Cells(10).Text, Replace(System.Web.HttpContext.Current.User.Identity.Name.ToString, "VCN\", ""))
'Slutligen - släng ut en rad i databasens kötabell
'Call PlaceMessageInQueueTable(dsXML, Replace(System.Web.HttpContext.Current.User.Identity.Name.ToString, "VCN\", ""), "SEND", drDataToDump("part_xml_filename"))
'Skit i kötabellen nu, slänger på ett meddelande direkt istället..
Call PlaceMessageInQueue(xmlOutputToString)
xmlOutputToString = Nothing 'Clean up
noOfSentArticles = noOfSentArticles + 1 'Incr. counter