Events Between Web Forms

Imports System.Web.Script.Services
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports System.IO




<ScriptService()> _
    Partial Public Class WSUsers
    Inherits System.Web.Services.WebService

    ''' <summary>
    ''' Adds a new user to the list
    ''' </summary>
    ''' <param name="Name">Name of the user</param>
    ''' <param name="Age">Age of the user</param>
    ''' <returns>A message</returns>
    <WebMethod(Description:="Add a new uer")> _
    <ScriptMethod()> _
    Public Function AddUser(ByVal Name As String, ByVal Age As Integer) As String

        'The data source
        Dim DS As New DataSet
        'Check if the file exists
        Dim file As New FileInfo(Server.MapPath(System.Web.HttpRuntime.AppDomainAppVirtualPath) & "/Data.xml")
        If Not file.Exists Then
            DS.Tables.Add("Users")
            DS.Tables("Users").Columns.Add("User Name", GetType(String))
            DS.Tables("Users").Columns.Add("Age", GetType(Integer))
        Else
            DS.ReadXml(file.FullName)
        End If
        'Add the new user
        Dim user As DataRow = DS.Tables("Users").NewRow
        user(0) = Name
        user(1) = Age
        DS.Tables("Users").Rows.Add(user)
        'write the DS to the file
        DS.WriteXml(file.FullName, XmlWriteMode.WriteSchema)

        Return "User:" & Name & " Age:" & Age.ToString & "    Added At:" & Date.Now

    End Function

End Class