<Scripts>
<Script scriptID="0" Tag="Intro" Value=", blah blah blah" />
<Script scriptID="1" Tag="Start" Value="blah blah blah...blah blah" />
<Script scriptID="2" Tag="OpenResponse" Value="blah blah blah blah blah blah" />
</Scripts>
Imports System.Xml
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Collections
Imports System.IO
Public Class Default2
Inherits System.Web.UI.Page
Dim myDoc As XmlDocument
Dim FileNode As XmlNode
Public Sub New()
' This call is required by the Windows Form Designer.
InitializeComponent()
myDoc = New XmlDocument
myDoc.Load("C:\RacTelemarketingComplete\WebSite\App_Data\ScriptsList.xml")
FileNode = myDoc.SelectSingleNode("/Files/File[@FileID='0']")
TextBox1.Text = FileNode.Attributes("Value").Value.ToString()
' Add any initialization after the InitializeComponent() call.
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not (TextBox1.Text = FileNode.Attributes("Value").Value.ToString()) Then
FileNode.Attributes("Value").Value = TextBox1.Text
myDoc.Save("C:\RacTelemarketingComplete\WebSite\App_Data\ScriptsList.xml")
End If
End Sub
End Class
<?xml version="1.0" encoding="utf-8" ?>
<Files>
<File FileID="0" Value="Selection Required" Desc="Select a market to begin"/>
<File FileID="1" Value="Website Design" Desc="Web Design Call Scripts" />
<File FileID="2" Value="Seaway Valley Portals" Desc="Community Websites of the Seaway Valley"/>
</Files>
in your code behind:
Imports System.Configuration
myDoc.Load(ConfigurationManager.AppSettings("XMLFileKey"))
in your web config:
<appSettings>
<add key="XMLFileKey" value="C:\RacTelemarketingComplete\WebSite\App_Data\ScriptsList.xml"/>
</appSettings>
Imports System.Xml
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Collections
Imports System.IO
Public Class Default2
Inherits System.Web.UI.Page
Dim myDoc As XmlDocument
Dim FileNode As XmlNode
Dim strCallScripts As String
Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
strCallScripts = "~/App_Data/ScriptsList.xml"
' This call is required by the Windows Form Designer.
'InitializeComponent()
myDoc = New XmlDocument
'myDoc.Load("C:\RacTelemarketingComplete\WebSite\App_Data\ScriptsList.xml")
myDoc.Load(Server.MapPath(strCallScripts))
FileNode = myDoc.SelectSingleNode("/Files/File[@FileID='2']")
TextBox1.Text = FileNode.Attributes("Value").Value.ToString()
' Add any initialization after the InitializeComponent() call.
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not (TextBox1.Text = FileNode.Attributes("Value").Value.ToString()) Then
FileNode.Attributes("Value").Value = TextBox1.Text
myDoc.Save(Server.MapPath(strCallScripts))
End If
End Sub
End Class
If not Page.IsPostBack Then
TextBox1.Text = FileNode.Attributes("Value").Value.ToString()
End If
I also put the textbox as autopostback="true" when playing.
Imports System.Xml
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Collections
Imports System.IO
Public Class Default2
Inherits System.Web.UI.Page
Dim myDoc As XmlDocument
Dim FileNode As XmlNode
Dim strCallScripts As String
Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
strCallScripts = "~/App_Data/TestList.xml"
myDoc = New XmlDocument
myDoc.Load(Server.MapPath(strCallScripts))
FileNode = myDoc.SelectSingleNode("/Files/File[@FileID='2']")
If Not Page.IsPostBack Then
TextBox1.Text = FileNode.Attributes("Value").Value.ToString()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FileNode.Attributes("Value").Value = TextBox1.Text
myDoc.Save(Server.MapPath(strCallScripts))
End Sub
End Class