<%@ WebService Language="VB" Class="SuchService" %>
 
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Data
 
' 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()> _
<WebService(Namespace:="http://xxx.org/")>
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class SuchService
    Inherits System.Web.Services.WebService
    <WebMethod()> _
    Public Function GetSeekHelp(ByVal prefixText As String) As String()
 
        Dim SQL as string = "select * from irgendwas where Text like '" & _
          prefixtext & "%';" 
 
        'Das Ergebnis ermitteln und in Result schreiben...
        Return Result
 
    End Function
End Class

'...
        Dim SQL as string = "select * from irgendwas where Text like '" & _
          prefixtext & "%' and Session='" & Session.SessionID & "';" 
'...

Joachim