Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
 
' Um das Aufrufen dieses Webdiensts aus einem Skript mit ASP.NET AJAX 
' zuzulassen, heben Sie die Auskommentierung der folgenden Zeile auf.
' <System.Web.Script.Services.ScriptService()> _
<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
<System.Web.Services.WebServiceBinding( _
ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class Service1
    Inherits System.Web.Services.WebService
 
    <WebMethod(EnableSession:=True)> _
    Public Function GetMessage() As String
        Return Session("Message")
    End Function
 
    <WebMethod(EnableSession:=True)> _
    Public Sub SetMessage(ByVal pMessage As String)
        Session("Message") = pMessage
    End Sub
 
End Class