Web Wiz - Green Windows Web Hosting
Web Wiz Homepage Search Web Wiz

  New Posts New Posts RSS Feed - append to XML file
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

append to XML file
 Post Reply Post Reply
Author
  Topic Search Topic Search  Topic Options Topic Options
Mart View Drop Down
Senior Member
Senior Member
Avatar

Joined: 30 November 2002
Status: Offline
Points: 2304 		Post Options Post Options   Thanks (0) Thanks(0)   Quote Mart Quote  Post ReplyReply Direct Link To This Post Topic: append to XML file
    Posted: 23 November 2003 at 11:54am

Hi i have made the following code, but it doesnt work no error it just doesnt add it. Its proabably really simple but i cant get my head around it



Dim pass As String = p1.Text


Dim user As String = username.Text


Dim hashedpass As String


Dim XMLdoc As New XmlDocument


Dim ConfigFile As String = Server.MapPath("/auth/users.Config")


Dim elem As XmlElement = XMLdoc.CreateElement(user)


 


hashedpass = FormsAuthentication.HashPasswordForStoringInConfigFile(pass, "MD5")


XMLdoc.Load(ConfigFile)


Dim elemPass As XmlElement = XMLdoc.CreateElement("pass")


elemPass.InnerText = pass


elem.AppendChild(elemPass)


Dim elemreturn As XmlElement = XMLdoc.CreateElement("return")


elemreturn.InnerText = "userdetails.aspx"


elem.AppendChild(elemreturn)


Dim elemname As XmlElement = XMLdoc.CreateElement("fullname")


elemname.InnerText = fullname.Text


elem.AppendChild(elemname)


Dim elememail As XmlElement = XMLdoc.CreateElement("email")


elememail.InnerText = email.Text


elem.AppendChild(elemname)


Dim elemRole As XmlElement = XMLdoc.CreateElement("role")


elemRole.InnerText = "user"


elem.AppendChild(elemRole)


 


XMLdoc.Save(ConfigFile)


Response.Redirect("default.aspx?user=" & user, True)



Any ideas?
Thanks, Mart.



Edited by Mart
Back to Top
Diep-Vriezer View Drop Down
Senior Member
Senior Member
Avatar

Joined: 06 August 2003
Location: Netherlands
Status: Offline
Points: 831 		Post Options Post Options   Thanks (0) Thanks(0)   Quote Diep-Vriezer Quote  Post ReplyReply Direct Link To This Post Posted: 23 November 2003 at 3:22pm
 Not really. Maybe you should rewrite the code, sometimes that'll work for me.

Edited by Diep-Vriezer
Gone..
Back to Top
Mart View Drop Down
Senior Member
Senior Member
Avatar

Joined: 30 November 2002
Status: Offline
Points: 2304 		Post Options Post Options   Thanks (0) Thanks(0)   Quote Mart Quote  Post ReplyReply Direct Link To This Post Posted: 24 November 2003 at 10:42am
Thanks, i just did that and it works now.
Back to Top
Diep-Vriezer View Drop Down
Senior Member
Senior Member
Avatar

Joined: 06 August 2003
Location: Netherlands
Status: Offline
Points: 831 		Post Options Post Options   Thanks (0) Thanks(0)   Quote Diep-Vriezer Quote  Post ReplyReply Direct Link To This Post Posted: 28 November 2003 at 12:58am

Wait, the code above does contains some errors:



Dim elemname As XmlElement = XMLdoc.CreateElement("fullname")


elemname.InnerText = fullname.Text


elem.AppendChild(elemname)


Dim elememail As XmlElement = XMLdoc.CreateElement("email")


elememail.InnerText = email.Text


elem.AppendChild(elemname)

Anyway, if it works now, that's great!
Gone..
Back to Top
Mart View Drop Down
Senior Member
Senior Member
Avatar

Joined: 30 November 2002
Status: Offline
Points: 2304 		Post Options Post Options   Thanks (0) Thanks(0)   Quote Mart Quote  Post ReplyReply Direct Link To This Post Posted: 28 November 2003 at 9:27am
This is the code i used:



Dim account As XmlElement = XMLdoc.CreateElement("account")


 
         &nbs p;       Dim nextnode As XmlNode
 
         &nbs p;       nextnode = XMLdoc.LastChild


 
         &nbs p;       nextnode.AppendChild(account)


 
         &nbs p;       Dim UserNameEle As XmlElement = XMLdoc.CreateElement("user")
 
         &nbs p;       UserNameEle.InnerText = user
 
         &nbs p;       account.AppendChild(UserNameEle)


 
         &nbs p;       Dim UserPass As XmlElement = XMLdoc.CreateElement("pass")
 
         &nbs p;       UserPass.InnerText = hashedpass
 
         &nbs p;       account.AppendChild(UserPass)


 
         &nbs p;       Dim UsersName As XmlElement = XMLdoc.CreateElement("fullname")
 
         &nbs p;       UsersName.InnerText = fullname.Text
 
         &nbs p;       account.AppendChild(UsersName)


 
         &nbs p;       Dim UsersEmail As XmlElement = XMLdoc.CreateElement("email")
 
         &nbs p;       UsersEmail.InnerText = email.Text
 
         &nbs p;       account.AppendChild(UsersEmail)


 
         &nbs p;       Dim role As XmlElement = XMLdoc.CreateElement("role")
 
         &nbs p;       role.InnerText = "user"
 
         &nbs p;       account.AppendChild(role)


 
         &nbs p;       Dim active As XmlElement = XMLdoc.CreateElement("active")
 
         &nbs p;       active.InnerText = "1"
 
         &nbs p;       account.AppendChild(active)




 
         &nbs p;       XMLdoc.Save(ConfigFile)

Back to Top
Mart View Drop Down
Senior Member
Senior Member
Avatar

Joined: 30 November 2002
Status: Offline
Points: 2304 		Post Options Post Options   Thanks (0) Thanks(0)   Quote Mart Quote  Post ReplyReply Direct Link To This Post Posted: 28 November 2003 at 9:28am
Sorry about the formatting wwf and mozilla firebird don't mix
Back to Top
 Post Reply Post Reply

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.08
Copyright ©2001-2026 Web Wiz Ltd.

Become a Fan on Facebook Follow us on X Connect with us on LinkedIn Web Wiz Blogs
About Web Wiz | Contact Web Wiz | Terms & Conditions | Cookies | Privacy Notice

Web Wiz is the trading name of Web Wiz Ltd. Company registration No. 05977755. Registered in England and Wales.
Registered office: Web Wiz Ltd, Unit 18, The Glenmore Centre, Fancy Road, Poole, Dorset, BH12 4FB, UK.

Prices exclude VAT at 20% unless otherwise stated. VAT No. GB988999105 - $, € prices shown as a guideline only.

Copyright ©2001-2026 Web Wiz Ltd. All rights reserved.