Indsæt nye data i toppen af en xml fil.
Hej.Jeg ville høre om nogle af jer kunne hjælpe mig, med at få sat nye dater ind i toppen af min xml fil.
Jeg bruger denne kode til at tilføje daterne.
Imports System.Xml
Partial Class Write
Inherits System.Web.UI.Page
Protected Sub btnOpret_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOpret.Click
Dim doc As XmlDocument = New XmlDocument
doc.Load(Server.MapPath("Biler.xml"))
Dim navn As XmlNode = doc.CreateAttribute("Navn")
navn.AppendChild(doc.CreateTextNode(txtNavn.Text))
Dim model As XmlNode = doc.CreateAttribute("Model")
model.AppendChild(doc.CreateTextNode(txtModel.Text))
Dim aar As XmlNode = doc.CreateAttribute("Aar")
aar.AppendChild(doc.CreateTextNode(txtAar.Text))
Dim img As XmlNode = doc.CreateAttribute("Img")
img.AppendChild(doc.CreateTextNode(txtImg.Text))
Dim link As XmlNode = doc.CreateAttribute("Link")
link.AppendChild(doc.CreateTextNode(Replace(txtLink.Text, "&", "AND")))
Dim info As XmlNode = doc.CreateElement("info")
info.Attributes.Append(navn)
info.Attributes.Append(model)
info.Attributes.Append(aar)
info.Attributes.Append(img)
info.Attributes.Append(link)
doc.DocumentElement.AppendChild(info)
doc.Save(Server.MapPath("Biler.xml"))
Response.Redirect("Read.aspx")
End Sub
End Class
På forhånd tak :)